For each Blatt in worksheets
14.10.2003 14:46:06
lotharP
hab' jetzt endlich nochmal sowas gefunden mit einer For each Schleife.
Grundsätzlich mach ich das immer mit einer while Schleife wollte aber mit aller Gewalt das hier haben weil ich das besser finde:
Sub allini()
Dim blatt
For Each blatt In ActiveWorkbook.Worksheets
filteran
Range("a2:i65536").Delete
Next
End Sub
Sub filteran()
With Worksheets("PLAN")
If .AutoFilterMode Then
Range("a2").AutoFilter
End If
End With
End Sub
So is ja schön, er macht das auch brav, allerdings dann nicht für jedes Blatt sondern nur für's Blatt PLAN.
Ja is schon klar, dann darf da auch nicht PLAN angesprochen werden, aber alle Versuche waren(mal wieder) vergebens!!
Danke i.V.
Gruß
Lothar