Was mach ich bei dem code hier falsch?
28.04.2005 19:08:53
Bryan
ich bin beim Versuch einen Code zu erstellen, da ich aber nicht viel Ahnung hab läuft da einiges schief. Könntet ihr mal draufschauen was ich da falsch mache.
Sub Test()
Dim zeile1(101 To 113) As Range
For zeile2 = 161 To 527
Feiertage = zeile1
Datum = Cells(zeile2, 1)
If Datum = Feiertage Then
Cells(zeile2, 2) = "Fe"
Else
If Datum = vbSunday Then
Cells(zeile2, 2) = "So"
Elseelf
If Datum = vbSaturday And Cells(zeile2, 2) = "N" Then
Cells(zeile2, 2) = "Sa"
End If
Next zeile2
End Sub
gruss Bryan