Problem: Unterscheidung Text/Zahlen
01.04.2009 09:09:14
Bjarne
folgendes:
Ich verwende den unteren Code um mehrere Zeilen in meiner Arbeitsmappe zu formatieren.
Das Makro nimmt sich dabei immer die Schwellenwerte aus den vorderen drei Spalten.
Das Problem ist, dass die Tabelle in mehrere Teile aufgeteilt ist, also immer 9 zeilen mit zahlen und dann gefolgt von drei mit Text.
Der Text soll dabei natürlich nicht eingefärbt werden (was er aber derzeit wird).
Habt ihr eine Lösung dafür?
Grüße
Sub SchwellenFormatieren23c()
Dim wks As Worksheet
Dim lngZeile As Long, lngSpalte As Long
Dim dblSchwelle1, dblSchwelle2, dblSchwelle3
Set wks = Sheets("werte")
With wks
For lngZeile = 6 To 200
dblSchwelle1 = .Cells(lngZeile, 4).Value 'Schwellenwert 1
dblSchwelle2 = .Cells(lngZeile, 5).Value 'Schwellenwert 2
dblSchwelle3 = .Cells(lngZeile, 6).Value 'Schwellenwert 3
For lngSpalte = 4 To 22
If .Cells(lngZeile, lngSpalte) "" And .Cells(lngZeile, lngSpalte) "" And .Cells(lngZeile, lngSpalte) > dblSchwelle1 _
_
And .Cells(lngZeile, lngSpalte) "" And .Cells(lngZeile, lngSpalte) > dblSchwelle2 _
Then
.Cells(lngZeile, lngSpalte).Interior.ColorIndex = 4 'grün
Else
.Cells(lngZeile, lngSpalte).Interior.ColorIndex = 0 'ohne Zellfarbe
End If
Next
Next
End With
End Sub