Re: Prozentzahl Kommazahl
21.10.2002 09:30:40
Jens P.
Hi,
mein makro durchsucht die spalte p in der formeln stehen die eine Prozentzahl als (Dezimaldarstellung) ergebenSub einfaerben()
Dim l As Long
Dim x As Long
Dim y As Byte
Dim zelle As Range
Dim spalte As Byte
l = Range("p65536").End(xlUp).Row
For x = 16 To l
For y = 12 To 15
If Cells(x, y).Interior.ColorIndex = 6 Then
Cells(x, y).Interior.ColorIndex = xlNone
End If
Next y
Next x
For Each zelle In Range(Cells(2, 16), Cells(l, 16))
Select Case zelle.Value
Case 1
spalte = 4
zelle.Offset(0, -spalte).ClearContents
zelle.Offset(0, -spalte).Interior.ColorIndex = 6
zelle.Offset(0, -spalte).Value = ""
Case 0.75
spalte = 3
zelle.Offset(0, -spalte).ClearContents
zelle.Offset(0, -spalte).Interior.ColorIndex = 6
zelle.Offset(0, -spalte).Value = ""
Case 0.5
spalte = 2
zelle.Offset(0, -spalte).ClearContents
zelle.Offset(0, -spalte).Interior.ColorIndex = 6
zelle.Offset(0, -spalte).Value = ""
zelle.Offset(0, -3).ClearContents
zelle.Offset(0, -3).Interior.ColorIndex = 6
zelle.Offset(0, -3).Value = ""
Case 0.25
spalte = 2
zelle.Offset(0, -spalte).ClearContents
zelle.Offset(0, -spalte).Interior.ColorIndex = 6
zelle.Offset(0, -spalte).Value = ""
Case 0.13 'geht nicht!!!!!!!!!!!!!!!!
zelle.Offset(0, -1).ClearContents
zelle.Offset(0, -1).Interior.ColorIndex = 6
zelle.Offset(0, -1).Value = ""
zelle.Offset(0, -2).ClearContents
zelle.Offset(0, -2).Interior.ColorIndex = 6
zelle.Offset(0, -2).Value = ""
Case 0.33 'geht nicht!!!!!!!
zelle.Offset(0, -1).ClearContents
zelle.Offset(0, -1).Interior.ColorIndex = 6
zelle.Offset(0, -1).Value = ""
zelle.Offset(0, -2).ClearContents
zelle.Offset(0, -2).Interior.ColorIndex = 6
zelle.Offset(0, -2).Value = ""
zelle.Offset(0, -3).ClearContents
zelle.Offset(0, -3).Interior.ColorIndex = 6
zelle.Offset(0, -3).Value = ""
Case Else
spalte = 0
End Select
Next
End Sub
danke schonmal
mfg
Jens