Hallo zusammen,
ich bräuichte mal einen Tip zum suchen und finden von Werten.
Ich möchte über eine Userform eine Tabelle ausfüllen. Klappt auch soweit. Blättern in den Werten und eintragen von Werten ist fertig. Nun bin ich dabei eine Suche zu kreieren.
Ich möchte hierzu eine Wert in eine Textbox in der Userform schreiben und das Makro solle ein Array mit alle Zeilennummern ausgeben in denen der Wert vorhanden ist.
Meine bisherige Suche sieht so aus.
Public Sub Suchen(Feld As Integer)
Dim finden As Range
If UserForm1.TextBestellnummer.Value <> "" Then
Set finden = Columns(Feld).Find(what:="*" & UserForm1.TextBestellnummer.Value & "*")
End If
End Sub
im Feld wird eine Zahl für das jeweilige Textfeld übergeben. Damit bestimme ich in welcher Spalte ich suchen möchte.
bei dem Makro bekomme ich immer nur den ersten Wert angezeigt. Das Makro springt aber nicht zu den anderen Werten.
Kann mir hier jemand einen Tip geben wie ich das ändern kann.
Eiuch allen schon mal eine schönen ersten Advent.
|