For Schleife
31.07.2005 08:26:54
tina
ich habe mir folgenden code zusammengebastel:
Sub test()
Dim i As Byte
Application.ScreenUpdating = False
Range("c19").Select
ActiveCell.FormulaR1C1 = _
"=IF(OR((WEEKDAY(R4C,2)=1),(WEEKDAY(R4C,2)=5)),""no"",""ja"")"
Selection.AutoFill Destination:=Range("C19:AG19"), Type:=xlFillDefault
Range("c19").Select
Range("C19:AG19").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("c19").Select
For i = 3 To 33
If Cells(19, i) = "no" Then Cells(19, i) = ""
Next i
Application.ScreenUpdating = True
End Sub
dieser code soll auch in reihe 46, 73 ... also in jeder 27. reihe bis reihe 343 eingesetzt werden.
denke mir das geht auch mit ner for schleife von wegen:
for i = 19 to 343 step 27
anweisung ab C19
next i
ich weiss jetzt nicht wie ich bei C19 anfange.
range(i, 3) klappt nicht
und wie sage ich diesen ausdruck:
Range("C19:AG19")?