Wie kann ich den Tabellenzähler der die geöffneten Tabellen immer weiterzählt (also Tabelle1, Tabelle2, Tabelle3 etc.) wieder zurücksetzen, dass er wieder bei 1 anfängt.
Schonmal danke!
Gruß
Stefan
Sub Makro1()
For i = 1 To Sheets.Count
On Error Resume Next
Sheets("Tabelle" & i).Move After:=Sheets("Tabelle" & i - 1)
Next i
End Sub
Um den Zähler in Excel zurückzusetzen, befolge diese Schritte:
Öffne Excel und gehe zu deinem Arbeitsblatt.
Drücke ALT + F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Kopiere den folgenden Code in das Modul:
Sub TabellenzaehlerZuruecksetzen()
Dim i As Integer
For i = 1 To Sheets.Count
On Error Resume Next
Sheets("Tabelle" & i).Name = "Tabelle" & i
Next i
End Sub
Führe das Makro aus:
F5
oder gehe zu „Run“ > „Run Sub/UserForm“.Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.
Jetzt sollte der Zähler für die Tabellenblätter wieder bei 1 beginnen.
Fehler: "Das Arbeitsblatt mit diesem Namen existiert bereits."
Fehler: VBA-Fehlermeldung beim Ausführen.
Falls du eine andere Methode bevorzugst, um den Zähler in Excel zurückzusetzen, kannst du auch manuell die Blätter umbenennen:
Diese Methode ist zwar nicht automatisiert, kann aber in bestimmten Situationen schneller sein.
Wenn du ein Makro zum Zähler Excel erstellen möchtest, kannst du den oben genannten Code anpassen. Zum Beispiel:
Sub ZählerExcelErstellen()
Dim i As Integer
For i = 1 To 10 ' Erstelle 10 Tabellenblätter
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Tabelle" & i
Next i
End Sub
Dieser Code erstellt zehn neue Tabellenblätter mit den Namen „Tabelle1“, „Tabelle2“ usw.
1. Wie kann ich den Zähler in Excel dauerhaft auf null setzen?
Um den Zähler dauerhaft zurückzusetzen, musst du dein Excel-Dokument speichern und schließen, nachdem du das Makro ausgeführt hast.
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in allen modernen Excel-Versionen funktionieren, die VBA unterstützen, wie Excel 2010 und höher.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen