Blattname in Zelle einfügen
Schritt-für-Schritt-Anleitung
Um den Blattnamen in eine Zelle einzufügen, kannst Du folgenden VBA-Code verwenden. Dieser Code trägt den Namen des aktuellen Arbeitsblattes in die Zelle A1 ein:
Sub tt()
ActiveSheet.Range("A1").Value = ActiveSheet.Name
End Sub
Befolge diese Schritte, um den Code auszuführen:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke mit der rechten Maustaste auf
VBAProject (DeinArbeitsblattName) und wähle Einfügen > Modul.
- Füge den obigen Code in das Modul ein.
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Drücke
ALT + F8, wähle tt aus und klicke auf Ausführen.
Nun wird der Blattname in Zelle A1 eingetragen.
Häufige Fehler und Lösungen
Alternative Methoden
Du kannst den Blattnamen auch ohne VBA direkt in eine Zelle einfügen, indem Du eine Formel verwendest. Hier ist eine einfache Formel, die den Blattnamen anzeigt:
=TEIL(ZELLE("dateiname", A1), FINDEN("]", ZELLE("dateiname", A1)) + 1, 255)
Diese Formel funktioniert jedoch nur, wenn die Arbeitsmappe gespeichert ist. Wenn Du den Blattnamen dynamisch in Zelle A1 anzeigen möchtest, kannst Du die Formel direkt eingeben.
Praktische Beispiele
- Beispiel 1: Du möchtest den Blattnamen in Zelle B2 einfügen. Ändere den Code wie folgt:
Sub tt()
ActiveSheet.Range("B2").Value = ActiveSheet.Name
End Sub
- Beispiel 2: Um den Namen des Arbeitsblattes in einer anderen Zelle zu verwenden, passe einfach die Zellreferenz im Code an.
Tipps für Profis
- Verknüpfe den Blattnamen mit anderen Zellen, indem Du den Blattnamen in Formeln verwendest. Zum Beispiel:
=INDIREKT("'" & A1 & "'!B1")
Hier wird auf Zelle B1 des Arbeitsblattes verwiesen, dessen Name in Zelle A1 steht.
- Nutze den Code in Kombination mit Ereignissen, wie z.B. dem Öffnen der Arbeitsmappe, um den Blattnamen automatisch in eine Zelle einzufügen.
FAQ: Häufige Fragen
1. Wie kann ich den Blattnamen in eine andere Zelle einfügen?
Ändere einfach die Zellreferenz im VBA-Code, z.B. ActiveSheet.Range("C3").Value = ActiveSheet.Name.
2. Funktioniert dies in jeder Excel-Version?
Ja, der VBA-Code sollte in allen aktuellen Versionen von Excel funktionieren, die VBA unterstützen. Die Formel funktioniert ebenfalls in den meisten Excel-Versionen, solange die Arbeitsmappe gespeichert wurde.