Supportnet / Forum / Tabellenkalkulation

Guten Tag ich bräuchte unbedingt Hilfe! Ich habe eine Excel-Datei und in dieser mehrere Tabellenblätter mit unterschiedlichen Namen. Ich möchte mit einem Makro in einem neuen Tabellenblatt in einer Zeile die ganzen Namen der Tabellenblätter auflisten und in der jeweiligen Spalte den Inhalt aus dem dazugehörigen Tabellenblatt. Bsp.: Tabellenblätter: Cola, Fanta, Sprite Inhalt Tabellenblatt Cola in derselben Spalte: 1,2,3,4 in z.B. A1 Ich würde mich freuen, wenn einer von Euch mir helfen könnte! MfG El Salvador

Hallo,
ein Anfang könnte sein:
Sub test()
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
dann bekommst du eine Liste der Tabellennamen in einem neuen Tabéllenblatt aufgelistet

mfg
OmaDuck

Hallo,

Mich würde es auch interessieren! Wäre schön, wenn noch jemand antwortet!

MfG

Jones2007

Hallo,
Sub test()
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(1, i).Value = Sheets(i).Name
Next i
For i = 1 To Sheets.Count - 1
Sheets(i + 1).Select
Range("A2:A15").Select
Selection.Copy
Sheets(1).Select
Cells(2, i + 1).Select
Sheets(1).Paste
Next i
End Sub

das schreibt die die namen der Tabellenblätter in ein neues Tabellenblatt und schreibt die erste spalte des jeweiligen Blatts darunter.
mfg
OmaDuck

• Tabellenblätter ein- / ausblenden
• Tabellenblätter nach Liste benennen
• Hyperlink funktioniert nicht !
• Makroproblem
• Makros via Makro löschen