ich hoffe ihr Excel-Profis könnt mir bei folgendem Problemchen weiterhelfen? :)
Undzwar suche ich jetzt aus mehreren Tabellen Namen heraus und Excel listet mir diese in einer Listbox auf.
Mein Code:
********************************
SpalteVorname = 1
SpalteNachname = 2
ListBox1.Clear
For BlattNummer = 1 To Sheets.Count
For ZeilenNummer = 1 To Sheets(BlattNummer).Range("A65536").End(xlUp).Row
If Sheets(BlattNummer).Cells(ZeilenNummer, SpalteVorname) Like TextBox1 And Sheets(BlattNummer).Cells(ZeilenNummer, SpalteNachname) Like TextBox2 Then
ListBox1.AddItem Sheets(BlattNummer).Name
********************************
Statt ListBox1.AddItem möchte ich aber nun, das er mir die Blattnamen in einer Tabelle angibt. Für jedes Blatt eine extra Ziele. Hab das schon mit einfacher Zellenangabe versucht, aber der Spuckt er mir nur den letzten Blattnamen aus, weil er nicht die Zeilen wechselt. Mit ActiveCell.Offset klappts bei mir auch nicht. (weiß auch nicht ob das der richtige Ansatz wäre?!)
Könnt ihr mir helfen?
Danke
Gruß Jörg