Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
AW: Blattnamen einfügen
27.02.2004 08:57:11
Frank
Hallo Chris,
danke, es läuft.
Gruß
Frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige