Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige