Schleifen Problem
26.10.2003 18:01:23
Mario
ich habe folgendes Makro geschrieben.
Ich möchte Cells(i + 2, (x * 4)) in Tabelle4 färben.
Ich glaube es liegt an der Variable dat oder ??
Wer hilft mir ???
VIELEN DANK SCHON ZUM VORAUS.
Gruss Mario
Sub Kalender()
Dim i, x As Integer
Dim dat
Dim jahr As Integer
Worksheets("Tabelle1").Activate
jahr = Worksheets("Tabelle4").Cells(1, 1)
For i = 1 To 19
dat = Cells(i, 1)
Next
Worksheets("Tabelle4").Activate
For x = 1 To 6
Cells(2, (x * 4) - 3) = Format(DateSerial(jahr, x, 1), "MMMM")
For i = 1 To 31
If Month(DateSerial(jahr, x, i)) = x Then
Cells(i + 2, (x * 4) - 3) = Format(DateSerial(jahr, x, i), "DDD")
Cells(i + 2, x * 4 - 2) = Format(DateSerial(jahr, x, i), "DD ")
End If
If DateSerial(jahr, x, i) = dat Then
Cells(i + 2, (x * 4)).Interior.ColorIndex = 3
End If
Next
Next
End Sub