Es ist zum Verzweifeln - für diese Suche gibt es Millionen Treffer. Ich versuche mehrere Spalten in einer Listbox anzuzeigen. Die erste Spalte zeigt er mir ja an aber die anderen Spalten werden nicht angezeigt...
Der Code der wenigstens teilweise funktioniert, sieht so aus:
Dim myLookAt As XlLookAt, strFirstAddress As String, rngFound As Range
If Len(Suchen_Text.Text) = 0 Then
MsgBox "Nix zu Suchen"
Exit Sub
End If
With ActiveSheet.UsedRange
Set rngFound = .Find(what:=Suchen_Text.Text, LookIn:=xlValues)
' If rngFound Is Nothing Then
' MsgBox "Nix da"
' Exit Sub
' End If
ListBox1.Clear
strFirstAddress = rngFound.Address(0, 0)
Do
ListBox1.AddItem rngFound.Address("A" & InI)
ListBox1.List(ListBox1.ListCount - 1, 1) = rngFound.Text
Set rngFound = .FindNext(rngFound)
Loop Until rngFound.Address(0, 0) = strFirstAddress
End With
End Sub
Jetzt habe ich da schon einiges rumgebastelt, aber außer Fehlern habe ich nichts erhalten. Wo sage ich VBA, dass er die gesuchten Spalten auch mitschreiben soll?
Spalten und Spaltenbreite habe ich in den Eigenschaften schon eingetragen.
Ich wäre euch echt dankbar wenn ihr mir hier auf die Sprünge helfen könntet....
danke im Voraus
GJ