Aus Suchfunktion die nur 1. Wert angibt....
27.04.2017 15:55:01
Carsten
ich habe mir eine suchfunktion zusammengebastelt, sie Funktioniert auch sehr gut, allerdings bekomme ich immer nur den ersten Treffer angezeigt.
Ist es möglich das alle treffer angezeigt werden?
Private Sub CommandButton1_Click()
Dim eingabe As String
Dim Zeile As Long
Dim i As String
Dim Spalte As Long
Dim TextBox2 As String
Dim WS As Worksheet: Set WS = ActiveSheet
If TextBox1 = "" Then
MsgBox "Bitte Suchbegriff eingeben!"
Else
eingabe = TextBox1.Value
Zeile = WS.Columns("A:C").Find(What:=eingabe).Row
'Spalte = WS.Columns("A:C").Find(What:=eingabe).Column
MsgBox "Die " & eingabe & " befindet sich in Zeile " & Zeile
'Das hier ist nur zum Testen da
i = 1
Cells(i + 0, 9).Value = "A" & Zeile
Cells(i + 1, 9).Value = "B" & Zeile
Cells(i + 2, 9).Value = "C" & Zeile
End If
End Sub