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

Tabellenname automatisch

Tabellenname automatisch
17.07.2005 20:27:17
Oliver
Hallo zusammen,
hab mal wieder ein (kleines) Problem.
Ich hab eine Tabelle A in der sich in B5 bis B22 18 unterschiedliche Werte befinden.
In 18 anderen Tabellen sind Diagramme zu den Werten aus Tabelle A.
Jetzt soll das erste Diagramm (Tabelle B) so heißen wie der Wert in B5, das zweite Diagramm (Tabelle C) so heißen wie der Wert in C5 etc.
Hoffe ich habe das einigermaßen verständlich ausgedrückt.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenname automatisch
17.07.2005 21:31:38
Ralf
Hi Oliver,
z. Bsp. so:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim iInd%
iInd = ActiveSheet.Index
If iInd > 1 Then Sheets(iInd).Name = Sheets(1).Cells(5, iInd)
End Sub

Das setzt aber vorraus, dass Du sicherstellen mußt, dass in jeder Spalte ein anderer Wert stehen muß, denn ein Tabellenblattname kann nicht doppelt vergeben werden.
Ciao, Ralf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige