Problem mit Code
09.05.2005 15:52:53
Christoph
Dim spalte As Integer
Dim user As Integer
user = Worksheets("persönlicher Kalender").Range("J5").Value
spalte = Worksheets("persönlicher Kalender").Range("J6").Value
For a = 2 To 400
If Worksheets("Schichtplan").Range(Cells(x, user)).Interior.ColorIndex = vbWhite Then
Next a
Else
If Worksheets("Schichtplan").Range(Cells(i, spalte)).Interior.ColorIndex = Worksheets("Schichtplan").Range(Cells(x, 48)).Interior.ColorIndex Then
For i = 4 To 34
If Worksheets("persönlicher Kalender").Range(Cells(i, 5)).Value Then
Worksheets("persönlicher Kalender").Range(Cells(i, 7)).Value = Worksheets("Schichtplan").Range(Cells(x, 48)).Value
Next i
End If
Next a
End If
Exit Sub
End Sub