Meldung Blattschutz Bold-Eigenschaft
24.07.2019 11:35:38
HabeEineFrage
ich hatte vor einigen Tagen mein Problem geschildert.
Es ging darum, dass ich trotz Blattschutz meine Markos ausführen möchte.
Jedoch bekomme ich bei einem Makro die Fehlermeldung:
Die Bold-Eigenschaft des Fronts-Objektes kann nicht festgelegt werden
Mein Makro sieht wie folgt aus:
Die fehlerhafte Zeile ist in fett zu sehen.
Sub EndeMarkierung()
Dim intSpalte As Integer
Dim intStart As Integer
Dim intLetzte As Integer
Dim intEnde As Integer
intLetzte = Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
Range(Cells(136, 25), Cells(136, intLetzte)).ClearContents
For intSpalte = 25 To intLetzte
If Cells(117, intSpalte).DisplayFormat.Interior.Color = 12419407 Then
For intEnde = intSpalte To intLetzte
If Cells(117, intEnde).DisplayFormat.Interior.Color 12419407 Then
Cells(136, intEnde) = "V"
Cells(136, intEnde).Font.Bold = True
Cells(136, intEnde).Font.Size = 32
Cells(136, intEnde).Font.ColorIndex = 3
Cells(136, intEnde).VerticalAlignment = xlCenter
Exit For
End If
Next intEnde
End If
Next intSpalte
End Sub
Wie kann ich das Problem lösen?
Für jede Hilfe bin ich dankbar.
LG