Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA - mehrere Suchergebnisse möglich |
20.06.2016 15:01:16 |
Lucas |
|
|
|
20.06.2016 15:13:38 |
Gast30750 |
|
|
|
20.06.2016 15:19:54 |
Gast36848 |
|
|
|
20.06.2016 16:00:47 |
Lucas |
|
|
|
20.06.2016 17:45:31 |
Gast14007 |
|
|
|
21.06.2016 12:15:47 |
Lucas |
|
|
Von:
Lucas |
Datum:
20.06.2016 15:01:16 |
Views:
1482 |
Rating:
|
Antwort:
|
Thema:
VBA - mehrere Suchergebnisse möglich |
Hallo liebe VBA Profis,
ich habe ein kleinen Problem und hoffe jemand von euch kann mir hierbei helfen :).
Ich habe eine Suchabfrage, welche auch einwandfrei funktioniert, gebastelt (Code kommt nach dem Text). Allerdings habe ich jetzt das Problem, dass es inzwischen mehrere mögliche Ergebnisse gibt. Beispiel ich suche Herr Lucas. Nun gibt es 2 in der Datenbank. Mit meinem Code kommt jetzt immer der erste in der Datenbank. Gerne hätte ich es allerdings, dass er den ersten nimmt und in "B7" kopiert und dann weitersucht den zweiten findet und dann in "D7" kopiert. Am besten gleich so, dass es unendlich viele geben kann... in "F7", "H7" etc.
Vielen Dank vorab!
______________________________________________________________________________________________________________
Dim Suchergebnis As Range
Dim SuchWert As String
SuchWert = Range("C16")
With Worksheets("Datenbank").Range("A1:A300")
Set Suchergebnis = .Find(SuchWert)
If Not Suchergebnis Is Nothing Then
Worksheets("Datenbank").Cells(Suchergebnis.Row, 1).Copy
Sheets("Ausgabe").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
MsgBox "Diese Datenbank verzeichnet keine Person mit Ihrer angefragten Befugnis."
End If
End With
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA - mehrere Suchergebnisse möglich |
20.06.2016 15:01:16 |
Lucas |
|
|
|
20.06.2016 15:13:38 |
Gast30750 |
|
|
|
20.06.2016 15:19:54 |
Gast36848 |
|
|
|
20.06.2016 16:00:47 |
Lucas |
|
|
|
20.06.2016 17:45:31 |
Gast14007 |
|
|
|
21.06.2016 12:15:47 |
Lucas |
|
|