Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bezeichnung Tabellenblatt

Forumthread: Bezeichnung Tabellenblatt

Bezeichnung Tabellenblatt
26.07.2007 10:31:00
vongi
Hallo!
Ist es möglich die Bezeichnung/Namen der Registerblätter (Tabellenblätter) auf eine Zelle innerhalb dieses Tabellenblatt zu beziehen?
Wenn ja, wie? über einfache Formelbezug funktioniert dies wohl nicht, oder? Marko ?
Danke für Info und Hilfe,
MG

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bezeichnung Tabellenblatt
26.07.2007 10:37:57
Chaos
Servus,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If Target.Address = $A$1 Then
If Target.Value  "" Then
ActiveSheet.Name = Target.Value
End if
End if
End Sub


Hier auf A1 als Eingabezelle bezogen, die Änderung erfolgt nur, wenn A1 "" ist.
Gruß
Chaos

Anzeige
AW: Bezeichnung Tabellenblatt
26.07.2007 10:42:00
Beverly
Hi,
bezogen auf Eingabe in Zelle A1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strTabelle As String
strTabelle = ActiveSheet.Name
If Target.Count > 1 Then Exit Sub
If Target.Address  "$A$1" Then Exit Sub
If Len(Target.Value) > 31 Then
MsgBox "Name darf nicht mehr als 31 Zeichen beinhalten"
Cells(1, 1) = strTabelle
Exit Sub
End If
On Error GoTo Fehler
If Target.Value  "" Then ActiveSheet.Name = Target
Exit Sub
Fehler:
MsgBox "Es gibt bereits eine Tabelle " & Target
Cells(1, 1) = strTabelle
End Sub


________________________________________

Anzeige
AW: Bezeichnung Tabellenblatt
26.07.2007 11:28:54
vongi
Hallo!
Danke für Eure Hinweise, bin aber leider kein VBA-Spezialist.
Wo sind diese "Befehle" zu hinterlegen, damit dies funktioniert?
Habe folgendes versucht:
Mausklick auf Tabellenblatt
Code anzeigen
und dann Eure Befehle dort eingefügt ... mit diesen Eintrag allein passiert aber nichts?
MG

Anzeige
AW: Bezeichnung Tabellenblatt
26.07.2007 11:32:00
Chaos
Servus,
nimm den Code von beverly. Der ist ausführlicher.
Strg+F11 drücken, der VBA-Explorer geht auf. Links in einem Fenster befinden sich die Module, DieseArbeitsmappe, Tabelle1, etc..
Das gewünschte Modul anklicken und den Code hineinkopieren
Gruß
Chaos

AW: Bezeichnung Tabellenblatt
26.07.2007 11:37:00
Chaos
Servus,
nochmal zur Sicherheit, wenn das in Tabelle1 laufen soll, dann muss der Code in das Modul Tabelle1.
Gruß
Chaos
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige