elseif ohne if - Fehlermeldung
04.09.2003 11:33:15
Alex
ich brauche ein Makro, dass mir Pfeile und farbige Zellen wiedergibt. Ist der Wert neben der aktiven Zelle größer als 5%, so soll in der aktiven Zelle ein Pfeil nach oben erscheinen und die Zelle soll rot sein, bei größer als 1% einen Pfeil nach schräg oben und orange Zelle usw.
Hab also versucht eine Schleife zu programmieren (meine erste!), aber ich bekomme immer die Meldung "elseif ohne if" beim ersten elseif. Keine Ahnung, wo der Fehler liegen könnte. Könnt ihr mal einen Blick draufwerfen?
Vielen Dank für die Hilfe
Alex
Sub SchleifeFürPfeileTest()
Dim Zelle As Range
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim Gesamtbereich1 As Range
Set Bereich1 = Sheets("Performance Cockpit").Range("e5:e7")
Set Bereich2 = Sheets("Performance Cockpit").Range("e10:e13")
Set Gesamtbereich1 = Union(Bereich1, Bereich2)
Gesamtbereich1.Select
Gesamtbereich1.ClearContents
With Gesamtbereich1.Font
.Name = "Wingdings 3"
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Bold = True
End With
For Each Zelle In Gesamtbereich1
If Zelle.Offset(0, -1).Value > "0,05" Then _
Zelle.Value = "h"
With Zelle.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
GoTo Stop1
ElseIf Zelle.Offset(0, -1).Value > "0,01" Then _
Zelle.Value = "k"
With Zelle.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
GoTo Stop1
ElseIf Zelle.Offset(0, -1).Value > "-0,01" Then _
Zelle.Value = "g"
With Zelle.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
GoTo Stop1
ElseIf Zelle.Offset(0, -1).Value > "-0,05" Then _
Zelle.Value = "m"
With Zelle.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
GoTo Stop1
Else
Zelle.Value = "i"
With Zelle.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
End If
Stop1:
Next Zelle
End Sub