Forums Neueste Beiträge
 

Tabellenblatt-Bezeichnung als Text übernehmen

10/02/2008 - 19:57 von Andreas Rieger | Report spam
Hallo,
Für die Zusammenstellung (Summen-Seite) suche ich eine Möglichkeit in
ein Feld die Bezeichnung (den Namen) eines anderen Tabellenblattes in
der gleichen geöffneten Mappe als Text einzufügen.
Noch eleganter, aber vermutlich nur mit Visual Basic zu lösen, wàre es,
wenn ein Feld-Text als Blattbezeichnung übertragen werden könnte.
Für Hinweise wàre ich dankbar.

Gruß aus Willich
(o: andreas

Bitte keine Vollzitate -weder oben noch unten-
- http://got.to/quote/ -
 

Lesen sie die antworten

#1 Michael Franke
10/02/2008 - 22:00 | Warnen spam
Hallo Andreas,

Für die Zusammenstellung (Summen-Seite) suche ich eine Möglichkeit in
ein Feld die Bezeichnung (den Namen) eines anderen Tabellenblattes in
der gleichen geöffneten Mappe als Text einzufügen.



mit dem nachfolgenden Code werden beim Öffnen einer Arbeitsmappe die
Namen aller Tabellenblàtter in die Spalte A des Tabellenblattes
"Inhalt" geschrieben. Für Deine Zwecke müsste er nur geringfügig
angepasst werden:

Sub Workbook_Open()
Dim i As Integer
'Warnmeldungen unterdrücken:
Application.DisplayAlerts = False
Sheets("Inhalt").Activate
'Alte Inhalte in Spalte A löschen:
Columns("A:A").Select
Selection.ClearContents
'Namen der Tabellenblàtter einfügen:
For i = 1 To Worksheets.Count
ActiveSheet.Cells(i, 1).Value = Worksheets(i).Name
Next i
Columns("A:A").EntireColumn.AutoFit
Application.DisplayAlerts = True
ActiveWorkbook.Save
Range("A1").Select
End Sub

Noch eleganter, aber vermutlich nur mit Visual Basic zu lösen, wàre es,
wenn ein Feld-Text als Blattbezeichnung übertragen werden könnte.



Das verstehe ich nicht - soll ein Tabellenblatt umbenannt werden und
ein Feldinhalt als neuer Name verwendet werden ?

Gruß, Michael

Ähnliche fragen