Formatieren von Zellen per VBA

Zellen · 1970-01-01T00:00:00+00:00

Guten Tag habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde.... und zwar: mittels folgendem Code schreibe ich in eine Spalte ein Datum: Cells(j, 10).Value = CDate(MyDatStrg) Wie müsste ich diese Zeile erweitern, damit die entsprechende Zelle gleich auch noch hellblau eingefärbt wird ? BESTEN DANK für die Hilfe !

Hier mal den Code den ich bisher habe. Ich glaube das Problem liegt darin, dass das Autofill hier wieder alles überschreibt ?

Private Sub CommandButton1_Click() 'Formeln runterkopieren
On Error Resume Next
ActiveSheet.Unprotect "0000"
Dim x As Long, y As Long, j As Long
Dim MyDatStrg As String
MyDatStrg = InputBox("Bitte Datum angeben", "Datum", Date)
If StrPtr(MyDatStrg) = 0 Then Exit Sub 'Abbrechen gedrückt
If Not IsDate(MyDatStrg) Then Exit Sub 'Kein Datum
x = Cells(Rows.Count, 10).End(xlUp).Row
y = Cells(Rows.Count, 1).End(xlUp).Row
For j = x + 1 To y
Cells(j, 10).Value = CDate(MyDatStrg)
Cells(j, 10).Interior.ColorIndex = 34
Cells(j, 11).Interior.ColorIndex = 6
Cells(j, 12).Interior.ColorIndex = 6
Cells(j, 13).Interior.ColorIndex = 6
Next
If x  y Then Range(Cells(x, 11), Cells(x, 13)).AutoFill Destination:=Range(Cells(y, 11),  _
Cells(x, 13))
ActiveSheet.Protect "0000"
End Sub

Hallo Pascal
Du hättest besser zum entsprechenden Beitrag verlinken sollen, bzw. gleich in diesem Beitrag weiterschreiben sollen.
https://www.herber.de/forum/messages/1190213.html
Somit werden Zusammenhänge besser sichtbar und Andere können sich da besser reindenken

Private Sub CommandButton1_Click()
Dim x As Long, y As Long, j As Long
Dim MyDatStrg As String
MyDatStrg = InputBox("Bitte Datum angeben", "Datum", Date)
If StrPtr(MyDatStrg) = 0 Then Exit Sub 'Abbrechen gedrückt
If Not IsDate(MyDatStrg) Then Exit Sub 'Kein Datum
ActiveSheet.Unprotect
x = Cells(Rows.Count, 10).End(xlUp).Row
y = Cells(Rows.Count, 1).End(xlUp).Row
For j = x + 1 To y
          With Cells(j, 10)
.Value = CDate(MyDatStrg)
.Interior.ColorIndex = 20
End With
Next
If x  y Then Range(Cells(x, 11), Cells(x, 13)).AutoFill Destination:=Range(Cells(y, 11),  _
Cells(x, 13))
ActiveSheet.Protect
End Sub

und das funktioniert auch:
https://www.herber.de/bbs/user/72627.xls
Gruß Matthias

Forumthread: Formatieren von Zellen per VBA

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Formatieren von Zellen per VBA

Forumthread: Formatieren von Zellen per VBA

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread