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
|