Mit dem folgenden Makro wird der Inhalt der Zelle A5 automatisch als Blattname verwendet und das Tabellenblatt entsprechend umbenannt. Dieses Makro muss in das Tabellenblatt eingefügt werde in dem der Code verwendet werden soll. Das Makro also bitte in kein Modul 'normales' Modul einfügen.
Private Sub Worksheet_Change(ByVal Target As Range)
'Der Text, der in Zelle A5 eingegeben wird, wird automatisch als
'Tabellenblattname verwendet und das Tabellenblatt entsprechende benannt
'Fehleingaben werden abgefangen
If Not Application.Intersect(Target, Range("A5:A5")) Is Nothing Then
On Error Goto fehlermeldung
If Target = "" Then Exit Sub
ActiveSheet.Name = Range("A5").Value
End If
Exit Sub
fehlermeldung:
MsgBox "Es wurden ungültige Zeichen erfasst!"
End Sub
Das Makro prüft, ob der Blattname unerlaubte Zeichen enthält und beendet das Makro, wenn unerlaubte Zeichen verwendet wurden.
VBA-Lösungen weiterentwickeln
Viele VBA-Lösungen entstehen heute ganz oder teilweise mit Unterstützung von KI-Tools. Die Herausforderung liegt nicht im Erstellen des Codes – sondern darin, ihn stabil, wartbar und praxistauglich zu machen.
Excel-Inside Solutions prüft, optimiert und erweitert VBA-Lösungen – und kombiniert sie bei Bedarf mit modernen KI-Automatisierungen.
→ KI & Automatisierung für Unternehmen ansehen
Anfrageformular öffnen 
Jetzt anrufen: +49 (0)151 164 55 914 
Anfrage per E-Mail senden 
Weitere Informationen 
