Habe gestern mit "Hajo_Zi´s" grandioser Hilfe eine Wunderbare Suchfunktion zum laufen bekommen.
Diese Suche findet über eine UserForm statt und die Ausgabe der
gefundenen Einträge erfolgt in einer ListBox, 2 spaltig!
Frage: Wie kann ich mir jetzt wenn ich einen der Einträge in der ListBox markiere mir andere Teile der betreffenden Zeile in einer Textbox ausgeben lassen (Auch wieder direkt in der UserForm)!
Müsste ja eigentlich über "Private Sub ListBox1_Change()" laufen, oder?
In etwa so??
Private Sub ListBox1_Change()
TextBox.Text = Cells(ListBox1.ListIndex + 1, 2)
End Sub
Hier zeigt er mir aber natürlich den Eintrag "Zeile "1" von Spalte "2"
Anbei der bisherige Code:
######################################################
Private Sub CommandButton1_Click()
Dim s As String
Dim Found As Range
Dim FirstAddress As String
Dim I As Integer ' Zeile
I = 0
If txtSuche.Text = "" Then
MsgBox "Kein Eintrag vorhanden!", vbCritical, "Was soll ich den suchen?"
txtSuche.SetFocus
Else
End If
's = InputBox("Was suchst du ?", , ActiveCell.Value)
Eingabe = txtSuche.Text
If Eingabe = "" Then Exit Sub
With ActiveSheet
Set Found = .Cells.Find(Eingabe, LookAt:=xlPart)
If Not Found Is Nothing Then
FirstAddress = Found.Address
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.AddItem Found
ListBox1.list(I, 1) = Cells(Found.Row, 13)
I = I + 1
Do
Found.Activate
Set Found = Cells.FindNext(After:=ActiveCell)
On Error Resume Next
If Found.Address = FirstAddress Then Exit Do
ListBox1.AddItem Found
ListBox1.list(I, 1) = Cells(Found.Row, 13)
I = I + 1
Loop
End If
End With
End sub
##################################################
Schon einmal vielen Dank!
Gruss Ralf K.
P.s. Eine andere Frage am Rande: Wie bekommt Du "Hajo_Zi" diese
wunderbar formatierten Code Beispiele im Forum hin?
Bei mir sind die immer nur Platt nach links eingerückt und
die sehen dann natürlich für einen anderen völlig unübersichtlich aus!
Auch hierfür schon einmal vielen Dank!