kleines Schleifenproblem
23.02.2004 15:41:58
Steffen
ich habe ein kleines Problem und zwar habe ich in einer Mappe 20 Blätter (name: 1-20)
Es sind noch mehr Blätter in der Mappe, es soll aber nur in den Blättern 1-20 ausgeführt werden.
Nun möchte ich per Schleife in jedes Blatt einen Wert einsetzen, dass Problem ist nur das das nicht geht.
Mein i wird nicht als Blatt erkannt.
Was muss ich tun damit dies geht.
Hier mein Code
Sub dat_ueber()
For i = 1 To 20
Workbooks("prov_admin_makros.xls").Sheets(i).Range("A1").Value="1"
Next i
End Sub
Danke schonmal
Steffen
Anzeige