.Range(.Cells(10, 3), .Cells(40, dSpalte)).Select
Fehlermeldung
Die Select Methode des RangeObjekts kann nicht ausgeführt werden!
Es soll eine bedingte Formatierung durchgeführt werden. Im Original ist das ganze viel umfrangreicher, daher über VBA
Was passt hier nicht? Danke für die Hilfe. G
Sub Migration()
dim i as Long
Dim lastSp As Long
Dim spDate As Long
Dim dSpalte As Long
For i = 4 To 15
With ThisWorkbook.Worksheets(i)
'Die letzte Spalte ist:
lastSp = .Cells(Zeile3, 256).End(xlToLeft).Column
For spDate = lastSp To 1 Step -1
If IsDate(Worksheets(i).Cells(Zeile3, spDate)) Then Exit For
Next
'Die letzte Spalte mit Datum ist:
dSpalte = .Cells(Zeile3, spDate).Column
.Range(.Cells(10, 3), .Cells(40, dSpalte)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WOCHENTAG(D$2)=2"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
Selection.FormatConditions(1).Interior.ThemeColor = xlThemeColorAccent4
Selection.FormatConditions(1).Interior.TintAndShade = 0.799981688894314
Selection.FormatConditions(1).StopIfTrue = False
End With
Next i
End Sub