Excel Makro - Windrichtung Grad in Text umwandeln

Für allgemeine Software
Plummi
Offline
Beiträge: 11
Registriert: 18 Aug 2023, 09:30

Re: Excel Makro - Windrichtung Grad in Text umwandeln

#11

Beitrag von Plummi »

Sodele, nach etwas Rumprobieren hat es dann am Ende geklappt und ich habe mir meine Datentabelle dann entsprechend hingebastelt ;)

Sieht nun so aus (genau, wie ich das gerne haben wollte):
Dateianhänge
Winddaten.jpg
Winddaten.jpg (508.92 KiB) 1361 mal betrachtet
Benutzeravatar
Gyvate
Offline
Beiträge: 2662
Registriert: 10 Aug 2021, 23:41
Wohnort: Saarbrücken
Hat sich bedankt: 13 mal
Danksagung erhalten: 402 mal
Kontaktdaten:

Re: Excel Makro - Windrichtung Grad in Text umwandeln

#12

Beitrag von Gyvate »

:thumbup:
Ecowitt WS2320E,HP2553,HP3501,GW2001,GW1100, GW1000,WH2650,WN1910,WN1980, Meteobridge, Weewx , CumulusMX, Barani MeteoShield Pro, MetSpecRad02, Personal Weather Tablet(PWT) - http://meshka.eu
http://meshka.eu/Ecowitt/dokuwiki (Ecowitt WiKi Englisch)
Benutzeravatar
olicat
Offline
Beiträge: 2066
Registriert: 07 Dez 2020, 20:33
Wohnort: Hohen Neuendorf
Hat sich bedankt: 31 mal
Danksagung erhalten: 419 mal
Kontaktdaten:

Re: Excel Makro - Windrichtung Grad in Text umwandeln

#13

Beitrag von olicat »

Hi!

Hier - der Vollstaendigkeit halber - noch eine etwas "leichtere" Version - ganz ohne Makro oder mehrere Tabellenblaetter:

Code: Alles auswählen

=WAHL(1+ABS(RUNDEN(A1/22,5;0));"N";"NNO";"NO";"ONO";"O";"OSO";"SO";"SSO";"S";"SSW";"SW";"WSW";"W";"WNW";"NW";"NNW";"N")
Und fuer die englischsprachigen Windrichtungen:

Code: Alles auswählen

=WAHL(1+ABS(RUNDEN(A1/22,5;0));"N";"NNE";"NE";"ENE";"E";"ESE";"SE";"SSE";"S";"SSW";"SW";"WSW";"W";"WNW";"NW";"NNW";"N")
Wenn also die Gradzahl der Windrichtung in A1 steht, wird in der Zelle mit obiger Formel dann der entsprechende Text ausgegeben.
Vielleicht kann das ja mal jemand gebrauchen ...

Oliver
Antworten