Bereich anpassen
05.05.2014 11:39:14
Kim
ich habe ein Userform erstellt mit einem Textfeld zum Suchen.
Hier sollen beliebige Werte aus einem Tabellenblatt gelesen werden.
Das Makro ist nicht von mir und ich habe es etwas angepasst.
Das Makro funktioniert auch allerdings durchsucht wird nur die erste Zeile.
Ich würde gerne die ganze Mappe durchsuchen oder wenigstens die Spalten A bis L.
Ich denke das ich die folgende Zeile anpassen muss, bekomme es aber nicht hin.
If Cells(i, 1) = x Then
Hier mal das ganze Makro
Private Sub CommandButton1_Click()
Dim x As String
Z = Sheets(1).UsedRange.Rows.Count
x = TextBox1
temp = 0
For i = 1 To Z
If Cells(i, 1) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload Me
zeile = i
UserForm2.Show
Else
MsgBox "Suchbegriff nicht vorhanden!", vbExclamation
TextBox1 = ""
End If
End Sub
Über Hilfe würde ich mich freuen.
Danke