Microsoft Excel

Herbers Excel/VBA-Archiv

Namen der Tabellen kopieren


Betrifft: Namen der Tabellen kopieren von: Nadja
Geschrieben am: 17.09.2019 11:20:36

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
Gruuß Matthias
  

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

Beiträge aus dem Excel-Forum zum Thema "Namen der Tabellen kopieren "