Tabellenblatt automatisch umbenennen

[DarkNav]

Hallo Leute!

Kann man den "Titel" für ein Tabellenblatt auf eine gewisse Zelle festlegen, dass sich der Tabellenblattname ändern auf diese Eingabe???

Sorry falls ich so komische Fragen stelle, bin leider noch nicht so gut mit Sepzialfunktionen!

Danke

[Fennek]

Hallo,

ungeprüft, auch für deine Frage von vorhin:

Code:

sub NewSheets
for i = 1 to 10
with sheets.Add(,sheets.count)
    sheets(sheets.count).Name = i
end with
next i
end sub

Anstelle von .Name = i kann auch eine Zelle referenziert werden.

mfg

[Werner.M]

Hallo,

Makroeditor öffnen Alt+F11
Doppelklick auf "DieseArbeitsmappe"
Code rechts ins Codefenster kopieren

Der Code reagiert auf eine Eingabe in Zelle A1. Das mußt du halt auf deine Bedürfnisse anpassen.

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
    Sh.Name = IIf(Target <> "", Target, Sh.Name)
End If
End Sub

Gruß Werner

[DarkNav]

Danke für die schnelle Antwort!

Bekomme aber die Meldung 400!?

    So hab ich das eingegeben

    Hier die Zelle B4:D4
Danke

[Fennek]

Vielleicht

Code:

sub NewSheets
for i = 1 to 10
with sheets.Add(,sheets.count)
    sheets(sheets.count).Name = sheets(1).cells(i,1)
end with
next i
end sub