Lisboxausgabe................
03.11.2007 19:07:05
Sonnenpeter
vor ein paar Tagen hat mit Thomas mit nachfolgender Datei geholfen.
https://www.herber.de/bbs/user/47327.xls
Diese enthält im Wesentlichen eine Userform und den nachfolgende Makrocode.
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ListBox1.Clear
If TextBox1 = "" Or TextBox1 = " " Then Exit Sub
Dim rng As Range
Dim sAddress As String
Set rng = Sheets("Suchbegriffe").Cells.Find(what:=TextBox1.Text, LookIn:=xlValues, _
MatchCase:=False)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.GoTo rng, True
If UCase(Left(rng, Len(TextBox1))) = UCase(TextBox1) Then ListBox1.AddItem _
ActiveCell.Text
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Set rng = Nothing
Application.ScreenUpdating = True
End Sub
Wie muss ich es anstellen, dass ich durch eine Klick auf den in der Listbox aufgeführten Text, diesen und den neben der Zelle (aus der die Daten kommen) stehenden Text in Tabellenblattzellen z.B. in B10 und C10 bekomme?
Gruß Sonnenpeter.