[Excel 2007] Registername automatisch ändern

[Ettenna63]

Hallo zusammen,
ich hoffe, dass mir hier jemand weiterhelfen kann.
Ich habe eine Excelmappe, mit 14 Blättern, und ich möchte gerne, dass das Datum, welches ich in A1 einfüge als Registername übernommen wird.
Ich habe schon einiges gegoogelt und versucht, aber nichts erreicht.

Ich habe noch nichts mit VBA gemacht, und der Fehler liegt vielleicht beim Einfügen. :uhm:
Diese Formel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("a1") Then
ActiveSheet.Name = Range("a1").Text
End If
End Sub

Ich habe die Makros aktiviert,
Alt + F11
Einfügen > Modul
Formel hinein kopiert
F5 > Makroname eingegeben > Erstellen > Speichern.



Wenn ich dann das Makro ausführe, passiert nichts.

 

[OpaPusi]

AW: [Excel 2007] Registername automatisch ändern

Hallo Ettenna,
ich habe gegoogelt und folgendes gefunden (Dein Weg war schon ziemlich gut). In dem Beispiel handelt es sich zwar um 2 Einträge von Zelle B und C, aber das sollte Dir keine Probleme mit der Einzellenumstellung bereiten.
Hallo
ich möchte den Inhalt zweier Zellen (B1 und C1) als Registername anzeigen lassen.
Geht das? Wenn ja wie?


Rechtsklick auf den Blattreiter des Blatts, dessen Namen du ändern willst.
"Code anzeigen" auswählen.
Jetzt erscheint der VBA Editor. In dem großen Fenster rechts lösche die 2 Zeilen "Private Sub ..." und "End Sub".
Jetzt kopiere den folgenden Code in das Fenster:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$1" Or Target.Address = "$C$1" Then
Name = Range("B1") & " " & Range("C1")
End If
End Sub


Jetzt kannst du den VBA-Editor schließen. Fertig.
Immer wenn du jetzt den Inhalt der Zelle B1 oder C1 änderst, wird der Blattname im Reiter automatisch geändert.
natürlich darfst du in die beiden Zellen nur Zeichen schreiben, die auch als Blattname erlaubt sind.
Ich danke für Eure Hilfe!!!!
Bitte.
Gruß, Andreas .

Quelle: http://computer.wer-weiss-was.de/ta...t_zweier_zellen_als_registername-6208604.html
Die beschriebene Lösung ist von Andreas, der Link ist oben aufgeführt.
Beste Grüße

 

[Ettenna63]

AW: [Excel 2007] Registername automatisch ändern

Vielen Dank,
mit
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
Name = Range("A1")
End If
End Sub
funktioniert es einwandfrei
_________________________________________________________

Eine Frage hätte ich noch :uhm:
Wie kann ich das Datum, vom 1. Blatt in A1 in den anderen Blättern automatisch auf jeweils den nächsten Tag ausfüllen lassen?

 

[Sigo]

AW: [Excel 2007] Registername automatisch ändern

Auf dem nächsten Blatt eine Verknüpfung mit = auf das Datum des ersten Blatt klicken und + 1
Zum Beispiel:
=Tabelle1.A1+1

 

[Ettenna63]

AW: [Excel 2007] Registername automatisch ändern

Hallo,
erst mal DANKE, so habe ich es auch gedacht, aber wenn ich in die Zelle des vorigen Blattes klicke, und dann wieder auf die Registerkarte zum Einfügen, springt der Tabellenname auf das jetzt aktivierte :uhm:

Ich hab's, ich darf nicht das Blatt wechseln.....

 

[badboy_d3]

hallo