Marko mit Suchfunktion
31.10.2007 11:47:33
Fabian
Ich habe eine Frage. Und zwar habe ich folgendes Makro:
Private Sub CommandButton1_Click()
Dim rng As Range, rngSource As Range
Dim strFirst As String
Set rngSource = Sheets("H").Range("A2:D2000")
With ListBox1
.Clear
If TextBox1 "" Then
Set rng = rngSource.Find(TextBox1.Text, LookAt:=xlPart)
If Not rng Is Nothing Then
strFirst = rng.Address
Do
.AddItem rng(, 1).Text
.List(ListBox1.ListCount - 1, 1) = rng(, 2).Text
.List(ListBox1.ListCount - 1, 2) = rng(, 3).Text
.List(ListBox1.ListCount - 1, 3) = rng(, 4).Text
Set rng = rngSource.FindNext(rng)
Loop While Not rng Is Nothing And rng.Address strFirst
End If
If .ListCount > 0 Then
Range("B27") = .ListCount & " Treffer"
Else
Range("B27") = "Kein Treffer"
End If
End If
End With
Set rng = Nothing
Set rngSource = Nothing
End Sub
Er sucht auf dem Blatt H in einem definiertem Bereich und gibt dann von dem Fundort die nächsten drei Spalten inkl. den gefundenen Text in einer Listbox aus.
Ich würde da gerne noch eine if Schleife einbauen. Und zwar folgendermaßen. Wenn du etwas in der Spalte B (auf Blatt H) findest dann gib mir in der ersten Spalte der Listbox die Spalte A auf dem Blatt H. Ansonsten kann es so bleiben.
Danke für eure Hilfe.
Gruß
Fabian