Listboxeinträge einer Variable zuordnen
26.11.2004 12:19:55
Papaloma
habe eineListbox über Suchroitine (Inputbox) mit Werten gefüllt die in einer exceltabelle stehen. Die werden in einer beliebigen zeile gefunden(klar oder?). Nun möchte ich einige gefundene Einträge in der listbox markieren und zum bearbeiten in eine weitere Userform übergeben. Ich will also die Zeilennummer übergeben in der die Markierten einträge ursprünglich gefunden wurden.
Anbei der code für die Suche:
Dim i As Integer
Dim Datum
Datum = Date
i = 0
ListBox1.Clear
s = InputBox("Bitte Suchbegriff eingeben")
If s = "" Then Exit Sub
With ActiveSheet
Set Found = .Cells.Find(s, lookat:=xlPart)
If Found Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!"
End If
If Not Found Is Nothing Then
FirstAddress = Found.Address
ListBox1.Clear
ListBox1.ColumnCount = 1
ListBox1.AddItem "Dialerbearbeitung " & Datum
ListBox1.AddItem "Erstellt durch: " & Application.UserName
ListBox1.AddItem
ListBox1.AddItem Found.Row
ListBox1.AddItem
ListBox1.AddItem ("Nummer: ") & " " & Cells(Found.Row, 1)
ListBox1.AddItem ("Name: ") & " " & Cells(Found.Row, 2)
ListBox1.AddItem ("CD: ") & " " & Cells(Found.Row, 3)
Schleife...usw...usw...
wie kann ich also die found.row aus der "Listbox" wieder auslesen und dann anordnen die Zeile in der in der Nummer, Name Und CD gefunden wurden zum bearbeiten zu öffnen. Codeschnipsel genügen auch....
Vielen dank Jungs oder Mädels