Blattname = Zelle

• 12.05.2009

• #1

J

joergi78

Bekanntes Mitglied

Themenersteller

Dabei seit

17.08.2005

Beiträge

249

Reaktionspunkte

0

Hallo an alle,

besteht die Möglichkeit in Excel 2003 ein Tabellenblatt automatisch den Namen der Zelle zu geben?
Also z.B. so:
Tabelle1=A2
freu mich auf Antworten von euch
gruß joergi78

 

• 12.05.2009

• #2

H

hddiesel

Bekanntes Mitglied

Dabei seit

04.01.2005

Beiträge

1.011

Reaktionspunkte

0

Ort

BW

Hallo joergi78

Per Makro:

Sub Blatt1_A2()
Sheets(Tabelle1).Select
Sheets(Tabelle1).Name = Range(A2)
End Sub

 

• 13.05.2009

• #3

J

joergi78

Bekanntes Mitglied

Themenersteller

Dabei seit

17.08.2005

Beiträge

249

Reaktionspunkte

0

supi,
das funzt.
leider nur das erste mal, weil dann das Tabellenblatt ja einen neuen Namen hat.
Geht das auch so, dass das immergeht???

 

• 13.05.2009

• #4

H

hddiesel

Bekanntes Mitglied

Dabei seit

04.01.2005

Beiträge

1.011

Reaktionspunkte

0

Ort

BW

Hallo joergi78

Auf die Schelle: Vorausgesetzt in jeder Tabelle steht in A2 der Tabellenname und es sind keine gleichen Tabellennamen in der Arbeitsmappe vorhanden.
***************
Alle Tabellenblätter:
+++++++++++++++

Sub Blatt_Name_Alle_Aus_A2()
For i = 1 To Worksheets.Count
Sheets(i).Select
ActiveSheet.Name = Range(A2).Value
Next i
End Sub

**************************
Oder nur das Aktive-Tabellenblatt:
++++++++++++++++++++++++++

Sub Blatt_Name_A2()
ActiveSheet.Name = Range(A2).Value
End Sub

 

• 14.05.2009

• #5

J

joergi78

Bekanntes Mitglied

Themenersteller

Dabei seit

17.08.2005

Beiträge

249

Reaktionspunkte

0

danke, klappt auch!!!
Aber das MAkro muss ja jedes mal gestartet werden. Ist zwar OK, aber schöner wäre es, wenn es automatisch passiert, nachdem die Zelle beschrieben wurde.
Geht das???

 

• 14.05.2009

• #6

H

hddiesel

Bekanntes Mitglied

Dabei seit

04.01.2005

Beiträge

1.011

Reaktionspunkte

0

Ort

BW

Hallo joergi78

Dieses Makro in die betreffende Tabelle:
Rechtsklick unten auf den Tabellenreiter(z.B. Tabelle1) , Code anzeigen wählen und in das Makrofenster der Tabelle1, das Makro einfügen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = $A$2 And Target <> Then ActiveSheet.Name = Range(A2).Value
End Sub

 

• 18.05.2009

• #7

J

joergi78

Bekanntes Mitglied

Themenersteller

Dabei seit

17.08.2005

Beiträge

249

Reaktionspunkte

0

Hat geklappt Dankw

 

• 22.07.2009

• #8

J

joergi78

Bekanntes Mitglied

Themenersteller

Dabei seit

17.08.2005

Beiträge

249

Reaktionspunkte

0

Hallo,

ich bins noch mal, geht das ganze auch umgekehrt??? Zellenname aus dem Blattnamen erstellen?

Gruß Joergi78

 

• 22.07.2009

• #9

H

hddiesel

Bekanntes Mitglied

Dabei seit

04.01.2005

Beiträge

1.011

Reaktionspunkte

0

Ort

BW

Hallo joergi78

Per Makro: Wenn nur die Zelle A2 gelöscht wird(nur bei Einzellöschung der Zelle A2), oder etwas anderes in A2 eingetragen wird, außer dem Blattnamen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = $A$2 And Target <> ActiveSheet.Name Then Range(A2) = ActiveSheet.Name
End Sub