Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattnamen einfügen

Forumthread: Blattnamen einfügen

Blattnamen einfügen
27.02.2004 08:25:52
Frank
Hallo,
ich habe folgenden Teil eines Makros:
'Namen einfügen
zeille = 6
For Each blatt In Sheets
ActiveSheet.Cells(zeille, 1).Value = blatt.Name
zeille = zeille + 1
Next blatt
Damit schreibe ich in einem Blatt alle Tabellenname hin. Der Name des letzten
Blattes soll jedoch nicht aufgeführt werden. Ich bekomme es aber leider nicht
hin.
Gruß
Frank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Blattnamen einfügen
27.02.2004 08:29:31
ChrisL
Hi Frank
Option Explicit

Sub t()
Dim WS As Worksheet
Dim Zeile As Integer
Zeile = 6
For Each WS In ActiveWorkbook.Worksheets
If WS.Name <> Worksheets(Worksheets.Count).Name Then
Cells(Zeile, 1) = WS.Name
Zeile = Zeile + 1
End If
Next WS
End Sub


Gruss
Chris
Anzeige
AW: Blattnamen einfügen
27.02.2004 08:57:11
Frank
Hallo Chris,
danke, es läuft.
Gruß
Frank
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige