Zellen von anderen Tabellenblättern
21.07.2015 08:55:14
anderen
ich habe im Moment Schwierigkeiten bei einer Liste und hoffe, dass ihr mir helfen könnt. Ich habe eine Mitgliederliste wo jedes Mitglied in einem eigenen Tabellenblatt innerhalb einer Arbeitsmappe gespeichert wird. Zur Übersichtlichkeit würde ich gerne am Anfang eine Übersichtsliste einfügen, die den Namen des jeweiligen Tabellenblatts enthält wie auch den Name (D6) , Vorname (D7) und Status (D11) des jeweiligen Mitglieds. Diese Daten sollen aus den einzelnen Tabellenblättern herauskopiert werden. Die Tabellenblätter sind alle gleich aufgebaut, es kommen aber ständig neue hinzu. Das Tabellenblatt Mitgliederliste besteht bereits.
Ich hab es jetzt soweit geschafft, dass ich den Name des Tabellenblatts ausgegeben bekomme aber schaffe es nicht, dass die Zellen ausgelesen und in der gleichen Zeile ausgegeben werden.
Sub TabellenblattnamenAuflisten()
lngsheets = ThisWorkbook.Sheets.Count
lngworksheets = ThisWorkbook.Worksheets.Count
Debug.Print "Alle Tabellenblätter"
For i = 1 To lngsheets
ThisWorkbook.Sheets("Mitgliederliste").Cells(5 + i, 2).Value = ThisWorkbook.Sheets(i).Name
Next i
End Sub
Danke für eure Hilfe
Ron
Anzeige