VBA Prozedur erweitern
28.08.2003 14:10:01
Fritz
ich brauche eure Hilfe, denn ich schaffe es nicht, die nachfolgend aufgeführte Prozedur entsprechend meinen geschilderten Anforderungen abzuändern.
Mit mit der bisherigen Prozedur wird in der jeweiligen Arbeitsmappe ein Tabellenblatt "Tabellenliste" eingefügt, in dem eine Liste der in der Mappe vorhandenen Tabellenblätter angelegt wird. Ist diese Tabelle bereits erstellt bzw. vorhanden, dann läuft das Makro so natürlich nicht mehr. Ich würde das Makro gerne erweitern, so dass in einem solchen Fall (wenn die Tabelle Tabellenliste bereits existiert), eine Abfrage erscheint, bei der der Anwender entscheiden kann, ob das Makro abgebrochen wird (also die bestehende Tabelle Tabellenliste so bestehen bleibt) oder aber gelöscht wird (danach "neu" erstellt wird um die Liste ggf zu aktualisieren). Möglich wäre natürlich auch den Code so umzuschreiben, dass bei einer bestehenden Tabelle nur die Liste neu geschrieben (aktualisiert) wird.
Für Hilfen eurerseits danke ich im Voraus.
Gruß Fritz
Sub Tabellenliste()
Dim ws As Worksheet
Dim i As Integer
Worksheets.Add
ActiveSheet.Name = "Tabellenliste"
ActiveSheet.Move Before:=Worksheets(1)
i = 1
For Each ws In ThisWorkbook.Worksheets
ThisWorkbook.Worksheets("Tabellenliste") _
.Cells(i, 1).Value = ws.Name
i = i + 1
Next ws
End Sub