For each Problem
Gianni
Folgendes Problem bringt mich zur Verzweiflung:
Sub BEinAlle() 'Blattschutz für alle Blätter der aktiven Arbeitsmappe
Dim wks as Worksheet
For each wks in Worksheets
wks.protect "Passwort"
next wks
End Sub
OK. Funktioniert. Aber:
Sub RT25() 'Auf jedem Arbeitsblatt der aktuell aktivierten Tabelle Zelle T25 auswählen
Dim wks as Worksheet
For each wks in Worksheets
wks.range("T25").select
next wks
End Sub
wird nur das aktuelle Arbeitsblatt markiert. Wer kann mir helfen?