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) 504 mal betrachtet
Benutzeravatar
Gyvate
Offline
Beiträge: 2526
Registriert: 10 Aug 2021, 23:41
Wohnort: Saarbrücken
Hat sich bedankt: 12 mal
Danksagung erhalten: 381 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 RPi4B-2GB/(16)32GB SLC 3165, Weewx 4.5.1/4.10.2, CumulusMX 3.28.4 b3282, Barani MeteoShield Pro, MetSpecRad02, Personal Weather Tablet(PWT) - http://meshka.eu
Benutzeravatar
olicat
Online
Beiträge: 2030
Registriert: 07 Dez 2020, 20:33
Wohnort: Hohen Neuendorf
Hat sich bedankt: 28 mal
Danksagung erhalten: 414 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