Code funkt nicht
05.11.2003 09:03:51
golem
habe gestern Code gepostet bekommen der leider nicht so ganz klappt.
Sub test()
Dim i%
For i = 10 To 80
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Tabelle" & i Then
Cells(1, 1).Value = "1"
End If
Next
Next
End Sub
Es soll in den Tabellenblättern 10 bis 80 eine Zahl reingeschrieben werden, hier einfachheitshalber eine 1.
Es wird leider nur beim gerade aktiven workbook gemacht...