Warum funzt der Code nicht
21.11.2018 20:49:29
Frank
Ich habe mir gerade selber den folgenden Code gebastelt:
Private Sub CommandButton14_Click()
Sheets("Kalender").Range("B6:Y36") = ""
Sheets("Kalender").Range("B6:Y36").Interior.ColorIndex = xlNone
a = 6
b = ComboBox1.ListIndex * 34
c = a + b
With Worksheets("Kalender")
.Range(.Cells(6, 2), .Cells(36, 25)).Value = .Range(.Cells(c, 79), .Cells(c + 34, 102)).Value
.Range(.Cells(6, 2), .Cells(36, 25)).Interior.ColorIndex = .Range(.Cells(c, 79), .Cells(c + _
34, 102)).Interior.ColorIndex
End With
End Sub
Die Daten werden entsprechend geändert, bei neuer Auswahl in der ComboBox. Aber die Hintergrundfarbe bleibt weiß, obwohl es verschiedene Farben gibt. Was mache ich falsch und wer würde mir bitte gern helfen.Für tolle Ratschläge wie immer sehr dankbar!
Gruß Frank H.