Sheets / Schleife

Bild

Betrifft: Sheets / Schleife
von: Harry
Geschrieben am: 14.04.2005 13:45:50
Hi Leute,
wie kann ich folgendes in vba schreiben:
"Durchlaufe alle Sheets des geöffneten Workbooks und mache x"
Müsste doch in etwa so aussehen oder?
for each sheet in active.workbook
if sheet.name="x" then
goto ende
else
"mache was anderes"
end if
next sheet
Wäre für Vorschläge Dankbar :)

Bild

Betrifft: AW: Sheets / Schleife
von: Hajo_Zi
Geschrieben am: 14.04.2005 13:53:51
Hallo Harry,

Private Sub Aufheben()
    Dim WsTabelle As Worksheet
    For Each WsTabelle In Sheets
        WsTabelle.Unprotect ("")
    Next WsTabelle
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Sheets / Schleife
von: Harry
Geschrieben am: 14.04.2005 14:04:42
Super, genau so habe ich es gemeint :)
THX !!!!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sheets / Schleife"