Kann mir vielleicht jemand schreiben, warum bei der Zeile Range("B4:F7,B9:F28").Font.Color = wdColorLightBlue der Fehler "Fehler beim Kompilieren: Variable nicht definiert" erscheint?
Private Sub CommandButton203_Click()
Dim i As Byte
Beep
If MsgBox("Sollen alle Einträge in den 6 Tagen gelöscht werden?", vbQuestion + vbYesNo + vbDefaultButton2, "Warnung!") = vbYes Then
For i = 1 To 6
With Worksheets(i).CodeName
Range("B4:F7,B9:F28").ClearContents
Range("B4:F7,B9:F28").Font.Color = wdColorLightBlue
End With
Next
End If
End Sub
Besten Dank für Eure Unterstützung.Gruss Daniel Eberhard