Makro, um zur nächsten offenen Datei zu springen
07.12.2006 19:40:15
Andreas
ich habe ein Makro Problem. Seit kurzem erst arbeite ich mit noch relativ einfachen Makros. Heute wollte ich folgendes versuchen:
Es sind beliebig viele Dateien geöffnet, einige haben ein Blatt "Grafik", andere nicht. Dieses Blatt soll in allen Dateien gelöscht werden.
Das Makro soll prüfen, ob ein Blatt "Grafik" vorhanden ist, Wenn ja -> löschen, wenn nein -> weiter zur nächsten Datei.
Mein Ansatz sieht wie folgt aus:
Sub Blatt_Grafik_loeschen2()
Dim mappe
For Each mappe In Workbooks
Application.DisplayAlerts = False
Worksheets("Grafik").Delete
Application.DisplayAlerts = True
Next
End Sub
Das funktioniert nur bedingt. Es fehlt die IF Prüfung und mir fehlt eine Kommandozeile, die sagt: "Springe zur nächsten offenen Datei" (ohne speichern, ohne schließen)
Hat jemand einen Ansatz für mich?
Vielen Dank im Voraus.
Grüße aus Berlin, Andreas
PS: In diesem Zusammenhang noch folgende Frage: Ein Blatt in eine andere Datei zu verschieben/ kopieren ist möglich, aber auch das dort vorhandene gleichlautende zu ersetzten? Das neu eingefügte bekommt standardmäßig ja immer eine (2) angestellt. Danke