Ich habe eine bestimmte anzahl von Tabellenblättern (genau sind es 41) auf diesen Tabellen Blättern soll der wert in Zelle I:33 um 1 erhöht werden.
Und das auf jedem Blatt, so dass im Tabellenblatt 41 in der Zelle (I:33)
41 Steht
mfg Matthias
Sub x()
Dim ix As Integer
For ix = 1 To ActiveWorkbook.Worksheets.Count
Sheets(ix).Range("I33").Value = ix
Next ix
End Sub