Code verkürzen...
19.05.2004 14:49:53
Mario
For Each A In Range("C2:C" & AZ)
If A.Value "" And A.Offset(0, 1).Value "" Then
A.Offset(0, 2).Value = A.Value & "-" & A.Offset(0, 1).Value
End If
Next
For Each B In Range("B2:B" & AZ)
If B.Value "" And B.Offset.Value "" Then
B.Offset(0, 4).Value = "=RC[-4]&MID(""MoDiMiDoFrSaSoGu"",WEEKDAY(VALUE(RC[-4]&R1C6),2)*2-1,2)"
End If
Next
Danke schonmal im Vorraus,
MfG Mario