Tabellenblatt mittels Tastenkombination umbenennen

[Xaver Reichart]

Gutern Tag

Es ist zwar keine wichtige Sache, aber rein aus Interesse würde ich
gerne wissen, ob es eine Möglichkeit gibt, Tabellenblätter mittels
Tastenkombination umzubenennen.
Denn, auch wenn ich mit Ctrl + Bildauf oder Bildab zwischen den Blättern
wechsle, bleibt doch der Focus immer auf einer Zelle des Blattes
bestehen und das Kontextmenü zum Umbenennen des Tabellenblattes lässt
sich nur mittels Rechtsklick (Maus) aufrufen. Die Kontextmenütaste ruft
das Kontextmenü der entsprechenden Zelle auf!
In keiner der Unterlagen und auch nicht Online habe ich dazu eine Lösung
gefunden.

Vielleicht hat hier jemand einen Tipp dazu???

Gruss Xaver

[Eberhard Funke]

Am Mon, 09 Feb 2009 10:14:35 +0100 schrieb Xaver Reichart:

Hallo Xaver,

Post by Xaver Reichart
Es ist zwar keine wichtige Sache, aber rein aus Interesse würde ich
gerne wissen, ob es eine Möglichkeit gibt, Tabellenblätter mittels
Tastenkombination umzubenennen.
Denn, auch wenn ich mit Ctrl + Bildauf oder Bildab zwischen den Blättern
wechsle, bleibt doch der Focus immer auf einer Zelle des Blattes
bestehen und das Kontextmenü zum Umbenennen des Tabellenblattes lässt
sich nur mittels Rechtsklick (Maus) aufrufen.

Eben. Mit Rechsklick unten auf den *Tabellenreiter* bist Du doch genau da,
wo Du hin willts.

Post by Xaver Reichart
Die Kontextmenütaste ruft
das Kontextmenü der entsprechenden Zelle auf!

Aber nur, wenn Du mit der rechten Maus in eine *Zelle* klickst.

Post by Xaver Reichart
In keiner der Unterlagen und auch nicht Online habe ich dazu eine Lösung
gefunden.

Oder habe ich Deine Frage nicht richtig verstanden?


Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

[Bernhard Sander]

Hallo Eberhard,

Post by Eberhard Funke
Oder habe ich Deine Frage nicht richtig verstanden?

Ich würde sagen, Du hast nicht richtig verstanden.
Das Kontextmenü kann man neuerdings mit einer eigenen Taste auf der Tastatur
aufrufen, nicht bloß mit der rechten Maustaste. Dann öffnet sich das Kontextmenü
zu der Stelle, an der der Cursor steht.
Wie man nun ohne Maus und nur über die Tastatur eine Tabellenumbenennen kann
weiß ich allerdings auch nicht.

Gruß
Bernhard Sander

[Eberhard Funke]

Am Mon, 09 Feb 2009 19:22:00 +0100 schrieb Bernhard Sander:

Hallo Bernhard,

Post by Bernhard Sander

Post by Eberhard Funke
Oder habe ich Deine Frage nicht richtig verstanden?

Ich würde sagen, Du hast nicht richtig verstanden.
Das Kontextmenü kann man neuerdings mit einer eigenen Taste auf der Tastatur
aufrufen, nicht bloß mit der rechten Maustaste. Dann öffnet sich das Kontextmenü
zu der Stelle, an der der Cursor steht.

Schön, wusste ich nicht, kann mein XL auch nicht :-)

Post by Bernhard Sander
Wie man nun ohne Maus und nur über die Tastatur eine Tabellenumbenennen kann
weiß ich allerdings auch nicht.

;it Maus ist es zwar einfacher, aber bitte...

Weise dem Makro einen Tastaturkürzel zu

Sub Umbenennen_ohne_Maus()
Dim Neuname As String
Neuname = Application.InputBox(prompt:="Wie soll die " _
& "neue Tabelle heißen?", Type:=2)
Sheets(Selection.Parent.Name).Name = Neuname
End Sub

[Bernhard Sander]

Hallo Eberhard,

Post by Eberhard Funke

Post by Bernhard Sander

Post by Eberhard Funke
Oder habe ich Deine Frage nicht richtig verstanden?

Ich würde sagen, Du hast nicht richtig verstanden.
Das Kontextmenü kann man neuerdings mit einer eigenen Taste auf der Tastatur
aufrufen, nicht bloß mit der rechten Maustaste. Dann öffnet sich das Kontextmenü
zu der Stelle, an der der Cursor steht.

Schön, wusste ich nicht, kann mein XL auch nicht :-)

Das ist nichts Excel-spezifisches sondern echt ein weiterer Knopf auf dem
Tastenbrett, meist ein bisschen rechts von der Leertaste. Halt sowas wie die
Windows-Taste (links von der Leertaste). Das Symbol drauf kann man mit etwas
Fantasie tatsächlich als Kontextmenü erkennen. Und funktioniert überall in
Windows. Wenn Deine Tastatatur diesen Knopf hätte könnte Dein XL das auch ;-)

Gruß

Bernhard Sander

[Xaver Reichart]

Hallo Bernhard, Hallo Eberhard

Da ich in der Zwischenzeit mit ein paar anderen Dingen beschäftigt war,
hat es ein bisschen gedauert mit meiner Reaktion auf eure Eingaben.

Erst Mal herzlichen Dank für die Reaktion.

Nun warum ich auf die Frage gekommen bin?
Ich habe da z.B. eine Mappe mit diversen Tabellen, welche zwischen die
Monate eingefügt werden. Die Grundmappe mit den Monaten sieht so aus:
Januar09, Februar09,....
Nächstes Jahr were ich diese Mappe wieder kopieren und dann die Tabellen
natürlich umbenennen - und das würde eben sehr schnell gehen, wenn ich
da mit Ctrl+Bildauf und dann der Kontextmenütaste und u für Umbenennen
und dann soweiter arbeiten könnte.
Daher4 kam bei mir diese Frage auf.

Aber scheinbar gibt es dafür keine einfache Lösung, sprich keine
Tastenkombination. Was solls - also weiter so wie bisher mit der Maus ;-)

Gruss Xaver

[Eberhard Funke]

Post by Xaver Reichart
Aber scheinbar gibt es dafür keine einfache Lösung, sprich keine
Tastenkombination. Was solls - also weiter so wie bisher mit der Maus ;-)

Hallo Xaver,

die einfache Lösung besteht in einem Makro:

Sub JahrAnpassen()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Sheets
If Right(Sht.Name, 2) = "09" Then
Sht.Name = Left(Sht.Name, Len(Sht.Name) - 2) & "10"
End If
Next
End Sub