VBA: alle Blätter durchgehen
30.06.2014 12:59:30
Hewad
Hallo zusammen,
was mache ich eigentlich hier falsch. Die Schleife soll alle Blätter durchlaufen und in der Zelle "A1", in jedem einzelnen Blatt des Arbeitsmappe, eine 1 einfügen.
Mit diesem Code geschieht es nur im ersten Sheet.
Vielen Dank im Voraus
Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
Range("A1").FormulaR1C1 = "1"
Next I
End Sub