einzelne Markierungen finden
Peter
ich habe aus einer Übernahme in Spalte A Texte und Datumswerte.
In den Datumswerten sind die beiden Ziffern für den Monat oder aber die Einer- und Zehnerstelle des Jahres und die beiden Monatsziffern rot fett markiert, wenn der Monat in der Zukunft liegt oder gar das Jahr in der Zukunft liegt.
Nun sollen diese Datumsfelder ganz 'entfärbt' werden. Andere Markierungen in Spalte A sollen jedoch erhalten bleiben.
Wie finde ich heraus, ob solche markierten Datumsteile in der Spalte vorliegen?
Mein Makro ist bisher nur ein nicht laufender Versuch.
Gruß, Peter
'
' die Datumswerte in der Spalte A komplett 'entmarkieren'
'
Sub Spalte_A_entmarkieren()
Dim iPosDat As Integer
For AdrIndx = 2 To Range("A65536").End(xlUp).Row
With Range("A" & AdrIndx)
For iPosDat = 1 To Len(Range("A" & AdrIndx).Value)
If Range("A" & AdrIndx).Characters(Start:=(iPosDat), Length:=2).Font.ColorIndex = 3 And _
Range("A" & AdrIndx).Characters(Start:=(iPosDat), Length:=2).Font.FontStyle = "Fett" Then
.Font.ColorIndex = 0
.Font.Bold = True
.Font.Bold = False
Exit For
End If
Next iPosDat
End With
Next AdrIndx
End Sub