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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen