Vielen Dank im voraus.
Gruß Michael
Sub alle_seiten_mit_a1_beginnen()
Dim zeile As Integer
Dim zeileMax As Integer
zeileMax = Worksheets.Count
For zeile = 1 To zeileMax ' normalerweise klappt es hier nicht, weil andere Bezeichnung
Sheets("Seite " & zeile).Select
Range("A1").Select
Next zeile
End Sub