Falsche Auswertung mit Select..Case
01.08.2005 12:21:17
reiner
eine private Wetterstation speichert alle 15 min diverse Werte (Temp., Feuchte, Luftdruck Wind usw.).
Diese Werte sind in einer Exceltabelle gespeichert und können in einer VBA-UserForm mit entsprechen-dem Programmcode zu weiteren Auswertungen (Min, Max und Mittelwert) herangezogen werden. Inner-halb eines frei wählbaren Zeitraumes werden die Windrichtungen zur Anzeige in 3 Textfeldern mithilfe einer Select.. Case-Auswertung in Himmelsrichtungen umgewandelt wobei es aber immer wieder falsche Zuordnungen gibt. Der Zahlenwert der Windrichtung wird mit der Variable Windricht übergeben. Die Variable Himmelsricht übergibt nach der Auswertung den zugeordneten Wert an die jeweiligen Textfel-der.
Function AuswertungHimmelsrichtung()
Himmelsricht = ""
Select Case Windricht
Case 0 To 22
Himmelsricht = "Nord"
Case 23 To 67
Himmelsricht = "NordOst"
Case 68 To 112
Himmelsricht = "Ost"
Case 113 To 157
Himmelsricht = "SüdOst"
Case 158 To 202
Himmelsricht = "Süd"
Case 203 To 247
Himmelsricht = "SüdWest"
Case 248 To 292
Himmelsricht = "West"
Case 293 To 337
Himmelsricht = "NordWest"
Case 338 To 360
Himmelsricht = "Nord"
End Select
End Function
Einer Min-Windrichtung mit 20 ° wurde korrekterweise die Himmelsrichtung Nord zugeordnet.
Einer Mittelwert [Average]-Windrichtung mit 140 ° wurde die Himmelsrichtung Nord anstatt SüdOst zugeordnet. Einer Max-Windrichtung mit 325 ° wurde die Himmelsrichtung NordOst anstatt Nord-West zugeordnet.
Ich kann mir überhaupt nicht erklären warum immer wieder falsche Zuordnungen erstellt werden, kann mir jemand weiterhelfen den Fehler auf zu spüren?
Gruß Reiner