VBA - xlSheetHidden-Blätter bearbeiten
Dogbert
Ich habe immer wieder folgendes Problem: Ich muss aus einer Arbeitsmappe, die versteckte Arbeitsblätter enthält, die versteckten Blätter rauslöschen.
Nun suche ich ein Makro, das mir dieses erledigt, es soll so aussehen (jetzt mal ganz umgangssprachlich formuliert):
n = Anz. Arbeitsblätter
for i = 1 to n
if Attribut von Arbeitsblatt i ist "xlSheetHidden"
Setze Attribut von Arbeitsblatt i auf "xlSheetVisible"
Zeige Arbeitsblatt i für den User an, Eingabemarke auf Zelle A1 setzen
Frage User, ob Arbeitsblatt i gelöscht werden soll (ja/nein)
Wenn Antwort ja, lösche Arbeitsblatt i
sonst setze Attribut von Arbeitsblatt i auf "xlSheetHidden"
end if
next i
Aber wie mache ich das in VBA?
Es tut mir leid, dass ich hier einen "Übersetzungsdienst" suche, aber ich weiß leider gar nicht, wie ich anfangen soll.
Danke, falls mir jemand helfen kann!
Dogbert