Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellinhalt = Tabellenname

Zellinhalt = Tabellenname
04.09.2007 13:28:00
Tobias
Hallo,
finde den passenden Code leider auch nicht in Recherchen...
der Zellinhalt der Zelle "F5" muss bei mir nach dem das Makro ausgeführt wurde
der Tabellenname sein.
Danke für eure Hilfe!
Gruß
Tobias

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt = Tabellenname
04.09.2007 13:52:00
Ulf
Hallo Tobias
mach es so
ActiveSheet.Name = Range("F5")
mfg Ulf

AW: Zellinhalt = Tabellenname
04.09.2007 13:52:58
Beverly
Hi Tobias,
evtl. so

Sub tabelle_benennen()
Dim strTabelle As String
Dim wsTabelle As Worksheet
strTabelle = Worksheets("Tabelle1").Range("F5")
If strTabelle = "" Then
MsgBox "Kein Name in F5 eingetragen"
Exit Sub
ElseIf Len(strTabelle) > 31 Then
MsgBox "Name darf nicht mehr als 31 Zeichen beinhalten"
Exit Sub
ElseIf InStr(1, strTabelle, "\") > 0 Then GoTo Verlassen
ElseIf InStr(1, strTabelle, "/") > 0 Then GoTo Verlassen
ElseIf InStr(1, strTabelle, "?") > 0 Then GoTo Verlassen
ElseIf InStr(1, strTabelle, "*") > 0 Then GoTo Verlassen
ElseIf InStr(1, strTabelle, "[") > 0 Then GoTo Verlassen
ElseIf InStr(1, strTabelle, "]") > 0 Then GoTo Verlassen
End If
For Each wsTabelle In ThisWorkbook.Sheets
If wsTabelle.Name = strTabelle Then
MsgBox "Es gibt bereits eine Tabelle " & strTabelle
Exit Sub
End If
Next wsTabelle
'


________________________________________

Anzeige
AW: Zellinhalt = Tabellenname
04.09.2007 13:54:00
Jan3
Hi Tobias,
Folgenden Code in ein Modul und ausführen:

Sub Tabname()
If ActiveSheet.Range("F5")  "" Then
ActiveSheet.Name = ActiveSheet.Range("F5")
End If
End Sub


Jan

AW: Zellinhalt = Tabellenname
04.09.2007 14:26:00
Beverly
Hi Jan,
trage mal ein unerlaubtes Zeichen in Zelle F5 ein oder mehr als 31 Zeichen oder einen Namen, den es schon als Tabelle gibt.
Bis später,
Karin
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige