Sub Diagramm()
With Worksheets("Diagramm")
gradzahl = 0
'Dim Ergebnis 1 As Double
'Ergebnis 1 = 0
'Ergebnis 2 = 0
'Ergebnis 3 = 0
'0-45
If gradzahl < 45 Or gradzahl > 0 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.1").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
Else
'45-90
If gradzahl >= 45 And gradzahl < 90 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.2").Value + Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.6").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.5").Value
Else
'90-135
If gradzahl >= 90 And gradzahl < 135 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.2").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
Else
'135-180
If gradzahl >= 135 And gradzahl < 180 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.1").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.3").Value + Range("Ö.FL.5").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.4").Value + Range("Ö.FL.6").Value
Else
'180-225
If gradzahl >= 180 And gradzahl < 225 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.1").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
Else
'225-270
If gradzahl >= 225 And gradzahl < 270 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.6").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.2").Value + Range("Ö.FL.4").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.3").Value + Range("Ö.FL.5").Value
Else
'270-315
If gradzahl >= 270 And gradzahl < 315 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.2").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
Else
'315-360
If gradzahl >= 315 And gradzahl < 360 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.3").Value + Range("Ö.FL.5").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.1").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.4").Value + Range("Ö.FL.6").Value
End If
End If
End If
End If
End If
End If
End If
End If
End If
'QS_SOSW
Ergebnis 4 = (Range("II_SOSW").Value * ("Ergebnis 1") * Range("GI_SOSW") * 0.567) / 100
'QS_NWNO
Ergebnis 5 = (Range("II_NWNO").Value * ("Ergebnis 2") * Range("GI_NWNO") * 0.567) / 100
'QS_ÜR
Ergebnis 6 = (Range("II_ÜR").Value * ("Ergebnis 3") * Range("GI_ÜR") * 0.567) / 100
Ergebnis 7 = ("Ergebnis 4") + ("Ergebnis 5") + ("Ergebnis 6")
For b = 2 To 73
Cells(3, b) = (66 * (Range("HV") + Range("HT"))) - (0.95 * (Range("QI") + ("Ergebnis 8")))
Next b
End Sub
MfG Steffen