Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle/Tabellenblatt

Forumthread: Zelle/Tabellenblatt

Zelle/Tabellenblatt
07.07.2004 12:20:14
Roberto
Hallo,
ich habe mehrere Tabellenblätter in einer Datei. In jedem einzelnen Tabellenblatt gibt es eine Zelle E4 welche eine feststehende Zahl hinterlegt hat [z.B. Tabellenblatt 1 hat die Zahl 4711 in E4 hinterlegt, Tabellenblatt 2 hat die Zahl 5896 in E4 hinterlegt, etc. etc.]
Wie kann man diese feststehende Zahl automatisch in Zelle E4 als Tabellenblattname in dieser Datei hinterlegen. [Doppelklick und die Zahl eingeben ist mir bekannt]
Vielen Dank im voraus für eure Unterstützung.
Roberto
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle/Tabellenblatt
Ingo 

Sub blattnamen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Name = ws.Range("E4")
Next ws
End Sub

m f G
Ingo Christiansen
AW: Zelle/Tabellenblatt
07.07.2004 12:27:27
Matthias
Hallo Roberto,
folgenden Code in "DieseArbeitsmappe":

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$E$4" Then
On Error Resume Next
ActiveSheet.Name = [E4]
If Err.Number > 0 Then MsgBox "Blattname schon vorhanden oder Zelle leer!"
End If
End Sub

Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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