Clever-Excel-Forum

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

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

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

Danke für die schnelle Antwort!

Bekomme aber die Meldung 400!?

[attachment=35724] So hab ich das eingegeben

[attachment=35725] Hier die Zelle B4:D4
Danke

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

DarkNav

Fennek

Werner.M

DarkNav

Fennek