aulistung



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: aulistung
von: Herbert Gius
Geschrieben am: 05.07.2002 - 17:29:41

Ich möchte in einer Datei in der Spalte A der Tabelle1 alle in dieser Datei vorhandenen Tabellen auslisten.
Danke für die Hilfe Herbert

nach oben   nach unten

Re: aulistung
von: Dieter Klemke
Geschrieben am: 05.07.2002 - 17:48:32

Hallo Herbert,
du kannst das durch das folgende Programm erreichen:

Sub BlattAuflistung()
Dim i As Long
Dim ws As Worksheet
Dim ws1 As Worksheet

Set ws1 = ThisWorkbook.Worksheets(1)
i = 1
For Each ws In ThisWorkbook.Worksheets
ws1.Cells(i, 1) = ws.Name
i = i + 1
Next ws
End Sub

Viele Grüße
Dieter

nach oben   nach unten

Re: aulistung
von: PeterW
Geschrieben am: 05.07.2002 - 17:49:27

Hallo Herbert,

folgenden Code im VBA-Editor in "Tabelle1" eingeben/kopieren


Private Sub Worksheet_Activate()
Dim zaehl As Byte

For zaehl = 1 To Worksheets.Count
    Cells(zaehl, 1) = Worksheets(zaehl).Name
Next

End Sub

Gruß
Peter


nach oben   nach unten

Re: aulistung
von: Herbert
Geschrieben am: 05.07.2002 - 18:15:59

Danke für die Lösung

Herbert


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "UserForm mit vbModeless angezeigt"