Frage zum deklarieren eines Bereichs
05.06.2005 13:48:19
Bryan
folgende Frage: Ich möchte hier nicht bis zeile 526 sondern ab zeile 161 bis zur letzt gefüllten Zeile, das ist entweder 525 oder 526, das variiert immer.
Sub DatumfürSchicht()
With Worksheets("Fs-Planer")
.Range("A161:A526").ClearContents
.Cells(161, 1).Value = DateSerial(.Cells(160, 1).Value, 1, 1)
.Range(.Cells(161, 1), .Cells(525 + (.Cells(160, 1).Value Mod 4 = 0 And _
(.Cells(160, 1).Value Mod 100 <> 0 Xor .Cells(160, 1).Value Mod 400 = 0)) * -1, 1)). _
DataSeries Type:=xlChronological, Date:=xlDay, Step:=1, Trend:=False
End With
End Sub
Sub SoSchichtN()
For zeile2 = 161 To 526
If Weekday(Cells(zeile2, 1).Value) = vbSunday And (Cells(zeile2, 2).Value) = "N" Then
Cells(zeile2, 2) = "So/N"
End If
Next zeile2
End Sub
danke Bryan