Hallo zusammen,
ich stehe vor einem kleinen Problem:
kann ich den Namen eines Arbeitsblattes automatisch ändern, indem ich einen Wert in eine Zelle eines anderen Arbeitsblattes schreibe?
z.B.
Tabelle: Übersicht
in Zelle B2 trage ich eine Bezeichnung ein.
Diese Bezeichnung soll nun automatisch als Name für die Tabelle 2 übernommen werden.
ist das generell möglich ?
ist das auch ohne VBA möglich?
Gruß
Markus
Hi Markus,
kann ich den Namen eines Arbeitsblattes automatisch ändern,
indem ich einen Wert in eine Zelle eines anderen
Arbeitsblattes schreibe?
in Zelle B2 trage ich eine Bezeichnung ein.
Diese Bezeichnung soll nun automatisch als Name für die
Tabelle 2 übernommen werden.
ist das generell möglich ?
Ja
ist das auch ohne VBA möglich?
Nein
Alt+F11, Doppelklick auf „tabelle1“, Code einfügen, Editor schliessen.
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) "B2" Then Exit Sub
If Range("B2")="" Then exit Sub
Worksheets(2).Name = Range("B2")
End Sub
Gruß
Reinhard
thx 
nur wie kann ich den code erweitern?
wenn ich ne liste B2:B10 habe (natürlich mit der entsprechenden Anzahl an Blättern)?
irgendwie steh ich da auf dem schlauch
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
nur wie kann ich den code erweitern?
wenn ich ne liste B2:B10 habe (natürlich mit der
entsprechenden Anzahl an Blättern)?
irgendwie steh ich da auf dem schlauch
Hi Markus,
proboers mal so:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 2 Then Exit Sub
If Target = „“ Then Exit Sub
If Target.Row 10 Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
Worksheets(Target.Row).Name = Target
End Sub
Gruß
Reinhard
merci merdi merdi
klappt wie am schnürchen…
ich glaube ich muss mal meine VB-lücken schließen…
Gruß & ein schönes WE
Markus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]