Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt beschriften

Forumthread: Blatt beschriften

Blatt beschriften
11.05.2005 12:15:29
Schwab
Hallo ihr Excel-Profis
ich habe mal eine Frage!
Ich habe eine Excel tabelle, mit mehreren Namen in einer Liste. zu jedem Namen in dieser Liste gibt es ein eigenes Blatt.
Wenn ich nun einen dieser Namen ändere, muss ich das Blatt von Hand auch ändern.
gibt es eine Möglichkeit eine Verknüpfung herzustellen, dass sich der Blattname automatisch mitändert, wenn ich in der Tabelle den Namen ändere?
Viele Dank schon einmal im Voraus!
Gruß Frank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Blatt beschriften
11.05.2005 12:29:19
Boris
Hi Frank,
du hast 3 Blätter. In A1:A3 stehen die Blattnamen.
Jetzt Rechtsklick auf das Blattregister, Code anzeigen, in das rechte Fenster diesen Ereigniscode (zunächst mal komplett ohne Fehlerbehandlung):
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Target, [a1:a3]) Is Nothing Then
Sheets(.Row).Name = .Text
End If
End With
End Sub

Grüße Boris
Anzeige
AW: Blatt beschriften
11.05.2005 12:42:13
Schwab
Hallo!
Habe den Ereigniscode so eingefügt, wie er da steht,
meine Blattnamen stehen in K12 bis K18, habe das geändert.
es funktioneriert nicht, wenn ich in dieser Liste einen Namen ändere, dann bringt er mir "Laufzeitfehler#" und will Debuggen, wenn ich das Drücke, dann zeigt er mir den Ereigniscode an und die Zeile Sheets.......... leuchtet gelb,
was stimmt nicht?
Gruß Frank
Anzeige
AW: Blatt beschriften
11.05.2005 12:57:29
Boris
Hi Frank,
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Target, [k12:k18]) Is Nothing Then
Sheets(.Row - 11).Name = .Text
End If
End With
End Sub

Grüße Boris
Anzeige
AW: Blatt beschriften
11.05.2005 13:21:10
Schwab
Danke, hat ageklappt!
mfg Frank
;

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