select case im datenfeld
Steffen
Ich bin seit kurzem dabei mir Funktionen mit Datenfeldern anzueignen . Doch bei einer Sache komme ich nicht zurecht. Ich möchte in einem Datenfeld Inhalte auslesen und wenn Übereinstimmungen sich ergeben soll die Zelle formatiert werden. Mit der für mich üblichen Methode "Select case" war es bisher kein Problem , nur im Datenfeld bekomme ich es nicht hin:
Dim meArray As Variant
Dim LoSpalte As Long, LoZeile As Long, i As Long
With ActiveSheet
LoSpalte = .Cells(1, Columns.Count).End(xlToLeft).Column
LoZeile = .Cells(Rows.Count, 1).End(xlUp).Row
meArray = .Range(.Cells(1, 1), .Cells(LoZeile, LoSpalte))
For i = LBound(meArray, 1) To UBound(meArray, 1)
Select Case meArray(i, 1)
Case "INACTIVE"
meArray(i, 1) = Cells(i, 1).Font.ColorIndex = 5
Case "ACTIVE"
meArray(i, 1) = Cells(i, 1).Font.ColorIndex = 10
Case "INHIBITED"
meArray(i, 1) = Cells(i, 1).Font.ColorIndex = 3
End Select
Select Case meArray(i, 7)
Case "ADVISORY"
meArray(i, 7) = Cells(i, 7).Font.ColorIndex = 2
meArray(i, 7) = Cells(i, 7).Font.Bold = True
meArray(i, 7) = Cells(i, 7).Interior.ColorIndex = 39
Case "CAUTION"
meArray(i, 7) = Cells(i, 7).Font.ColorIndex = 2
meArray(i, 7) = Cells(i, 7).Font.Bold = True
meArray(i, 7) = Cells(i, 7).Interior.ColorIndex = 46
Case "WARNING"
meArray(i, 7) = Cells(i, 7).Font.ColorIndex = 2
meArray(i, 7) = Cells(i, 7).Font.Bold = True
meArray(i, 7) = Cells(i, 7).Interior.ColorIndex = 3
End Select
Next i
.Range(.Cells(1, 1), .Cells(LoZeile, LoSpalte)) = meArray
End with
Es gibt mir dann "Falsch" in dem Datenfeld aus?!
Weiß jemand Rat?
Viele Grüße Steffen