mein Beispiel:
Gradzahl = InputBox("Nord-Südausrichtung der Gebäudeachse entspricht 0 Grad.Bitte gewünschte Ausrichtung eingeben")
If Gradzahl 360 Then
MsgBox "Wert muss zwischen 0 und 360 Grad liegen!"
GoTo Beginn
Else
If Gradzahl >= 315 Or Gradzahl Range("F98") = Range("Ö.FL.S")
Range("F100") = Range("Ö.FL.N")
Range("F102") = Range("Ö.FL.W") + Range("Ö.FL.O")
MsgBox " Der Haupteingang befindet sich im Westen "
Else
If Gradzahl > 135 Or Gradzahl Range("F98") = Range("Ö.FL.N")
Range("F100") = Range("Ö.FL.S")
Range("F102") = Range("Ö.FL.O") + Range("Ö.FL.W")
MsgBox " Der Haupteingang befindet sich im Osten "
Else
If Gradzahl >= 225 Or Gradzahl Range("F98") = Range("Ö.FL.W")
Range("F100") = Range("Ö.FL.O")
Range("F102") = Range("Ö.FL.N") + Range("Ö.FL.S")
MsgBox " Der Haupteingang befindet sich im Norden "
Else
If Gradzahl > 45 Or Gradzahl Range("F98") = Range("Ö.FL.O")
Range("F100") = Range("Ö.FL.W")
Range("F102") = Range("Ö.FL.N") + Range("Ö.FL.S")
MsgBox " Der Haupteingang befindet sich im Süden "
End If
End If
End If
End If
End If
Danke schon mal für Eure Hilfe