Herbers Excel-Forum - das Archiv
Namen der Tabellen kopieren
- Namen der Tabellen kopieren von Nadja vom 17.09.2019 11:20:36
- AW: Namen der Tabellen kopieren - von Matthias L am 17.09.2019 11:28:37
- AW: Namen der Tabellen kopieren - von Nadja am 17.09.2019 12:14:28
Betrifft: Namen der Tabellen kopieren
von: Nadja
Guten Tag liebe VBA Freunde,
ich habe ein kleines Problem und benötige eure Hilfe. Ich bin für jede Hilfe dankbar.
Ich habe in einer Excel Datei „super viele“ Tabellen. Die Namen der Tabellen heißen z.B so:
Tabelle1 heißt: Montag
Tabelle2 heißt: Hamburg
Tabelle3 heißt: Freitag
Tabelle4 heißt: Ball
usw…..
Die Namen jeder Tabelle sind jedes Mal anders. Nur die letzte Tabelle heißt immer INFO
Ich möchte, dass die NAMEN DER TABELLEN in die letzte Tabelle (also in Tabelle INFO) in Zeile 1 ab Spalte B neben einander eingefügt werden.
Tabelle „INFO“ soll am Ende so aussehen:
Spalte B Zeile 1: Montag
Spalte C Zeile 1: Hamburg
Spalte D Zeile 1: Freitag
Spalte E Zeile 1: Ball
USW.
Ich hoffe ich habe mein Problem gut erklären können.
Danke im Voraus !
Betrifft: AW: Namen der Tabellen kopieren
von: 1713434.html
Geschrieben am: 17.09.2019 11:28:37
Hallo
Hier der Code für eine Schaltfläche
Dim x&
With Worksheets("Info")
.Rows(1).ClearContents
For x = 1 To Worksheets.Count - 1
.Cells(1, x + 1) = Worksheets(x).Name
Next
End With
Betrifft: AW: Namen der Tabellen kopieren
von: 1713453.html
Geschrieben am: 17.09.2019 12:14:28
Hallo Matthias,
klappt hervorragend! Danke für deine Hilfe!
VG Nadja