Hallo
dann muss man im Code auf das Tabellenblatt referenzieren
das habe ich jetzt mit einer With-Anwesiung gelöst
beachte dabei, dass cor Columns und Cells ein Punkt stehen muss
damit wird auf das Tabellenblatt referenziert
den Blattnamen von der Tabelle anpassen, den Namen in Gänsefüsschen verwenden
der auf der Registerkarte steht
Private Sub CommandButton1_Click()
Dim strSuche As String
Dim strFirst As String
Dim c As Range
Dim lngAnz As Long
strSuche = TextBox1.Text
If strSuche <> "" Then
With Worksheets("Tabelle1") '<-- Blattname des Registers anpassen
Set c = .Columns(1).Find(strSuche, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
strFirst = c.Address
Do
ListBox1.AddItem c.Value
lngAnz = ListBox1.ListCount
ListBox1.List(lngAnz - 1, 1) = .Cells(c.Row, 5).Value
Set c = .Columns(1).FindNext(c)
Loop While Not c Is Nothing And c.Address <> strFirst
End If
End With
End If
End Sub
MfG Tom
|