Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Namen der Arbeitsmappen ausgeben

Namen der Arbeitsmappen ausgeben
18.02.2004 14:23:41
Martin
Hallo,
ich habe eine große Excel-Tabelle mit vielen Arbeitsmappen.
In einer Arbeitsmappe möchte ich nun in einer Spalte untereinander
die Namen der Arbeitsmappen aufgelistet bekommen. Schön wäre es, wenn noch der Dateiname davorstehen würde.
Beispiel:
Datei.xls Mappe1
Datei.xls Mappe2
...
Für den Code wäre ich sehr dankbar?
Danke!
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namen der Arbeitsmappen ausgeben
18.02.2004 14:31:43
Mac4
Hallo Martin,
so wäre eine Möglichkeit:

Sub test()
Dim ws As Object, i
i = 1
For Each ws In Worksheets
Cells(i, 1).Value = ActiveWorkbook.Name & " " & ws.Name
i = i + 1
Next
End Sub

Marc
Definitionen
18.02.2004 14:41:13
Franz W.
Hallo Martin,
der Code von Marc bringt dir schon das was du brauchst. Aber damit du dir leichter tust mit dem Vertändnis:
- eine Datei ist eine Mappe
- eine Mappe enthält ein oder mehrere Blätter/Sheets/Worksheets
Grüße
Franz
AW: Namen der Arbeitsmappen ausgeben
18.02.2004 14:41:27
Tina
Hallo Martin,
versuch das mal:

Sub blaetterausgeben()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveCell.Value = ActiveWorkbook.Name & "[" & ActiveWorkbook.Sheets(i).Name & "]"
ActiveCell.Offset(1, 0).Activate
Next i
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige