Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige