Verweis nach Stichwortsuche
07.08.2020 23:00:58
Michel
ich ahbe mir gerade den folgenden Code "zusammengeschrieben".
Ich möchte nun aber nicht, die Zelle wo der Datensatz gefunden wurde, sonder den Inhalt aus Spalte A der gefunden Zeile. Ich habe schon mit Column etc. rumprobiert kallpte alles aber nicht....
Hier ist der Code:
Private Sub CommandButton4_Click()
Dim rngZelle As Range
Dim strStart As String
Dim bytWeiter As Byte
If TextBox47.Value "" Then
With Worksheets("Übersicht").Range("A2:Q1002")
Set rngZelle = .Find(TextBox47.Value, lookat:=xlWhole, LookIn:=xlValues) ' _
oderxlpart
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Do
bytWeiter = MsgBox("Gefunden in Zelle: " & _
rngZelle.Address & vbLf & "Weiter suchen?", vbOKCancel)
If bytWeiter = 2 Then Exit Do
Set rngZelle = .FindNext(rngZelle)
If rngZelle.Address = strStart Then MsgBox "Keinen weiteren Datensatz _
gefunden"
If rngZelle.Address = strStart Then Unload Me
Loop While Not rngZelle Is Nothing And rngZelle.Address strStart
Else
If rngZelle Is Nothing Then MsgBox "Suchbegriff nicht gefunden"
End If
End With
Else
MsgBox "Sie müssen einen Suchbegiff eingeben.", _
48, "Hinweis"
End If
Set rngZelle = Nothing
End Sub
Dazu hätte ich gleichzeitig noch eine weitere Frage, da ich den Code dann "umschreiben" könnte für eine weiteres Formular. Wäre es möglich, dass ich das Suchergebnis, also den Inhalt aus Spalte A, direkt als Wert in ein ComboBox einfüge (Name: cbxNummer)?
Vielen Dank schoneinmal im Voraus
Kühle Nächte wünche ich euch
Michel