Suchfunktion geht nicht
10.12.2007 14:59:24
Jonny
habe mal wieder ein Problem
In ersten Schritt versuche ich über die Suchfunktion die Einträge aus der Excel-Tabelle Blattnahme 01 in die ListBox1 zu übernehmen. Der Suchbegriff Bezieht sich auf den Bereich H6:H5000 und kann folgend aussehen 01/ oder 01/123. Es währe schön wenn die Einträge in der ListBox1 auch noch aufsteigend sortiert würden.
Im zweiten Schritt sollte die Markierte Zeile der ListBox1, die Werte in TextBox2, 3, 4 und 5 anzeigen, doch so weit bin ich noch lange nicht.
Private Sub CommandButton1_Click()
Dim xSuche, xAdresse, xErste As String
Dim y As Boolean
Dim arr() As Variant
Dim c As Range
Dim iRowU As Integer
ListBox1.Clear
xSuche = TextBox1.Value
If xSuche = "" Then
MsgBox "Bitte erst einen Suchbegriff eingeben!",
Exit Sub
End If
Set c = ActiveWorksheet.Cells.Find _
(xSuche, LookIn:=xlValues)
If Not c Is Nothing Then
With Worksheets("01")
xErste = c.Address
y = True
Do Until xAdresse = xErste
ReDim Preserve arr(0 To 3, 0 To iRowU)
arr(0, iRowU) = .Cells(c.Row, 7)
arr(1, iRowU) = .Cells(c.Row, 2)
arr(2, iRowU) = .Cells(c.Row, 3)
arr(3, iRowU) = .Cells(c.Row, 4)
iRowU = iRowU + 1
Set c = .Cells.FindNext(after:=c)
xAdresse = c.Adresse(False, False)
Loop
xAdresse = ""
xErste = ""
End With
End If
If y = False Then
MsgBox "Der Suchbegriff wurde nicht gefunden!
Else
ListBox1.Column = arr
End If
End Sub
Bitte um ein Tipp was ich bei der Suchfunktion falsch mache.
bei Set c = ActiveWorksheet.Cells.Find _
(xSuche, LookIn:=xlValues)
Kommt die Fehlermeldung Objekt erforderlich ?
Vielen Dank im Voraus.
Jonny