ich bitte um Mithilfe, da ich nicht weiter komme und mich noch nicht so lange mit VBA beschäftige. Folgender Fall: Ich habe eine Excel-Tabelle über SAS ausgeben lassen, in der schon automatisiert bestimmte Zellen farbig hinterlegt sind (Farbe = Rot, Akzent 2, heller 60%).
Diese farbigen Zellen beinhalten Zahlenwerte und sollen nun mittels eines Punktes ausgeblendet werden.
Meine bisherige Suche ergab einen Hinweis auf diesen Code, wobei es für das gesamte Register gelten soll:
----------------------------------------
Sub FarbigeZellen()
Dim rngSpalte As Range
Dim rngZeile As Range
Dim blnFarbe As Boolean
For Each rngSpalte In Application.Intersect(Range("E:E"), Me.UsedRange)
For Each rngZeile In Application.Intersect(Range(rngSpalte.Offset(0, 1), _
Cells(rngSpalte.Row, Me.Columns.Count)), Me.UsedRange)
If rngZeile.Interior.ColorIndex -4142 Then
blnFarbe = True
Exit For
End If
Next 'rngZeile
If blnFarbe Then
rngSpalte = "x"
blnFarbe = False
End If
Next 'rngSpalte
End Sub
----------------------------------------
-Das x müsste durch ersetzt werden -> ich weiß nicht inwiefern ich dieses Symbol in VBA einsetzen kann
-es werden nicht nur die farbigen Zellen umformatiert, sondern alle...