Tabellenname aus Zelle übernehmen

[Scallywag]

Hallo zusammen,

ich scheitere grade mal wieder an einem kleinen VBA welches ich versuche für mich anzupassen.

Und zwar habe ich auf dem Tabellenblatt "Mitarbeiterliste" in einer Tabelle alle Mitarbeiter eintragen und lasse daraus Vor- und Nachnamen ein Kürzel generieren und daneben schreiben. Das Kürzel für Mitarbeiter 1 steht beispielhaft in B3, das für Mitarbeiter 2 in B4 usw...
Nun gibt es für jeden Mitarbeiter zusätzlich ein eigenes Tabellenblatt dessen Kürzel ich gerne als Tabellenblattname aus diesen Zellen übernehmen möchte.

Das Makro funktioniert zwar, aber nur wenn sich die auszulesende Zelle (hier A5) auch auf dem Tabellenblatt befindet und ich den Inhalt manuell ändere.
Wenn der Inhalt automatisch geändert wird, dann wird das Makro nicht ausgeführt.
Ich würde also gerne in jedem Tabellenblatt das Kürzel aus das Blatt "Mitarbeiterliste" auslesen lassen und zwar auch, wenn ich das Kürzel nicht per Hand eintrage sondern automatisch generieren lasse.

Wie kann ich das hinbekommen? Kann ich in dem Makro nicht einfach einen Blattbezug vor die Zelle setzen? Zumindest gelingt es mir nicht....


#######################################
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


Danke und Gruß

Mario

[Fuzzy62]

Morgen Mario,

vielleicht hilft dir das weiter!

Code:

Sub TAB_Name() 'Tabellenblattname aus Tabelle1 Zeile x
Dim x As Integer 'Tabellenblatt Index

On Error GoTo Fehler

x = ActiveSheet.Index

    ActiveSheet.Name = Worksheets(1).Cells(x, 1).Value
Exit Sub
Fehler:
    ActiveSheet.Name = Worksheets(1).Cells(x, 1).Value & x
    MsgBox "Tabellenblatt mit gleichen Namen vorhanden!"
End Sub