Was ist daran falsch?
10.05.2004 15:07:58
Maik.F
Folgende Schleife verursacht Fehlermeldungen bei mir:
Sub AlleBlaetterAusblenden()
For i = 1 To Worksheets.Count
If ActiveSheet.Name <> Sheets(i).Name Then
Sheets(i).Visible = False
End If
Next
End Sub
Gebe ich noch ein, so kommen
zwar keine Fehlermeldungen mehr, aber Blätter werden
auch nicht ausgeblendet!
Wo mache ich den entscheidenen Fehler?
Bin für jede Hilfe dankbar.
Gruß, Maik