mit dem folgenden Code prüfe ich, ob im Tabellenblatt "Tabelle1" der Suchbegriff (zu finden in TextBox1) schonmal vorkam. Die entsprechenden Ergebnisse/ Zeilen werden dann in einer Listbox ausgegeben. Funktioniert auch alles super, aber nun möchte ich gerne, dass das Programm in Tabelle1 und Tabelle2 sucht und die Ergebnisse in der Listbox wiedergibt. Habt ihr eine Idee, wie ich das Problem am besten löse?
Ich lerne leider erst noch VBA und hoffe, dass ihr mir hier weiterhelfen könnt.
Lieben Dank im Voraus.
Kati
Dim rngCell As Range
Dim strFirstAddress As String
Dim wks As Worksheet, lngZeile As Long
Set wks = Worksheets("Tabelle1")
With Me.ListBox_Ergebnisse
.Clear
.ColumnCount = 4
.ColumnWidths = "1,5cm;1,7cm;1,7cm;2,5cm"
End With
With wks.Range("A:G")
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
lngZeile = rngCell.Row
With Me.ListBox_Ergebnisse
.AddItem
.List(.ListCount - 1, 0) = wks.Cells(lngZeile, 1).Value
.List(.ListCount - 1, 1) = wks.Cells(lngZeile, 4).Value
.List(.ListCount - 1, 2) = wks.Cells(lngZeile, 5).Value
.List(.ListCount - 1, 3) = wks.Cells(lngZeile, 8).Value
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Keine Doppelungen gefunden", 48
End If
End With