Ich möchte gern mehrere Tabellen (Excel) in einer For Schleife durchlaufen, nur kenn ich die
Syntax net.
For i=3 to 17 do Tabelle[i].cells(1,1)="geht net" Next i
Wie kann ich das machen?
Mfg Murdoc
geschrieben 18. August 2006 - 08:39
For i=3 to 17 do Tabelle[i].cells(1,1)="geht net" Next i
geschrieben 24. August 2006 - 12:00
Public Sub ArbeitsblattNummern() Dim lng As Long For lng = 3 To 17 Step 1 ActiveWorkbook.Worksheets(lng).Cells(1, 2) = "1. so geht's" Next lng End Sub
Public Sub ArbeitsblattAufzählung() Dim wks As Excel.Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Cells(1, 1) = "2. so geht's" Next wks End Sub