"Status" Tabellenname - Tabelle???
Guten Morgen!
Werden im Excel neue Tabellenblätter eingefügt (Einfügen --> Tabellenblatt), so wird die nächste frei "Nummer" für die Tabellenblattbezeichnung vergeben.
Beispiel:
Tabelle1, Tabelle2, Tabelle3 vorhanden --> Einfügen --> Tabellenblatt = Tabelle4.
Kann man ermitteln welche "Nummer" zuletzt vergeben wurde?
Wird z. B. das Blatt Tabelle4 gelöscht und fügt man (bei geöffneter Datei) erneut ein Blatt ein, so wird dieses als Tabelle5 bezeichnet.
Excel hat wohl intern einen "Zähler", oder?
Thanx
Tom
Antwort schreiben
Antwort 1 von rainberg vom 26.09.2019, 07:33 Options
Hallo Tom,
Zitat:
Kann man ermitteln welche "Nummer" zuletzt vergeben wurde?
... meinse Wissens nur mit VBA.
Der Befehl könnte u.a. lauten
MsgBox Worksheets.CountGruß
Rainer
Antwort 2 von Flupo vom 26.09.2019, 07:36 Options
Der Zähler zählt aber nur solange die Datei geöffnet ist. Speichert man nach den Löschen von Tabelle4 ab und beendet Excel, dann wird das nächste Tabellenblatt wieder Tabelle4 genannt.
Ähnlich ist das ja auch mit dem Dateinamen, der beim Anlegen neuer Dateien vergeben wird (Mappe1, Mappe2...).
Gruß Flupo
Antwort 3 von Flupo vom 26.09.2019, 07:41 Options
Worksheets.Count zählt nur die aktuell in der Datei vorhandenen Tabellenblätter. Den internen Zähler kann man damit nicht auslesen.
Gruß Flupo
Antwort 4 von Tomschi vom 26.09.2019, 08:53 Options
Hi!
Herzlichen Dank für die Unterstützung!
Schade, dass man offensichtlich die "Nummer" nicht ermitteln kann.
Folgende Problem liegt meiner Fragestellung zugrunde:
Per VBA wird ein Tabellenblatt eingefügt und danach umbenannt.
...
Sheets.Add
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Hilfsblatt"
...
Gibt es nunmehr das Blatt "Tabelle1" nicht
--> Tabelle1 wurde irrtümlich gelöscht und nunmehr heisst das Tabellenblatt "Tabelle2",
so kommt es zu einem Fehler. Vielleicht hat ja jemand einen Vorschlag wie dies umgehen könnte.
Vor dem Verlasssen des Makros wird das Blatt "Hilfsblatt" (vormals "Tabelle1") wieder gelöscht.
Anmerkung: Der Code stammt nicht von mir.
Ciao
Tom
Antwort 5 von DukeNT vom 26.09.2019, 09:34 OptionsLösung
Hi Tom,
Zitat:
...
Sheets.Add
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Hilfsblatt"
...
wenn ich dich richtig verstanden habe, möchtest du ein neues Tabellenblatt einfügen und dieses gleich in "Hilfsblatt" umbenennen?
Dann Versuche mal folgendes:
...
Sheets.Add before:=Sheets(1)
Sheets(1).Name = "Hilsblatt"
...
Damit wird eine neue Tabelle vor der ersten Tabelle eingefügt und umbenannt.
Um die Tabellen anzusprechen braucht man nicht unbedingt den Namen der Tabelle, es geht auch mit Sheets(1) entspricht 1.Tabelle
Sheets(2) entspricht 2.Tabelle usw....
Gruß Niels
Antwort 6 von Tomschi vom 26.09.2019, 10:02 Options
Hi Niels!
Richtig verstanden. --> Tabellenblatt als quasi "Hilfsblatt" einfügen
Ich werde meinen Arbeitskollenge Fragen ob ich den Code laut Deinem Vorlag ändern darf und mich dann nochmals melden.
Bye
Tom
Antwort 7 von Tomschi vom 04.10.2019, 07:00 Options
Guten Morgen Niels!
Ich habe nunmehr Deinen Vorschlag umgesetzt.
DANKE!
Tom