Excel Makro - Windrichtung Grad in Text umwandeln

Für allgemeine Software
Plummi
Offline
Beiträge: 9
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) 67 mal betrachtet
Benutzeravatar
Gyvate
Offline
Beiträge: 2042
Registriert: 10 Aug 2021, 23:41
Wohnort: Saarbrücken
Hat sich bedankt: 6 mal
Danksagung erhalten: 297 mal
Kontaktdaten:

Re: Excel Makro - Windrichtung Grad in Text umwandeln

#12

Beitrag von Gyvate »

:thumbup:
Ecowitt WS2320E, HP2553, GW2001 (Wittboy)- DP1500, GW1100, GW1000, WH2650, Meteobridge RPi4B-2GB/16GB SLC 3005, Weewx 4.5.1/4.10.2, CumulusMX 3.26.0 b3248, Barani MeteoShield Pro, MetSpecRad02, Personal Weather Tablet(PWT) - http://meshka.eu
Benutzeravatar
olicat
Offline
Beiträge: 1780
Registriert: 07 Dez 2020, 20:33
Wohnort: Hohen Neuendorf
Hat sich bedankt: 22 mal
Danksagung erhalten: 345 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