Nationalflagge, Out of the Box, Office 365

[thowe]

Hallöchen!

Wir haben bereits hier einen - umfangreichen - Thread zum Thema Nationalflaggen.

https://vbasteleien.de/viewtopic.php?t=582

Wie dort in #40 ( https://vbasteleien.de/viewtopic.php?t= ... t=30#p1421 ) schon erwähnt, kann man in Office 365 sich einige Daten/Informationen - also nicht nur Nationalflaggen - anzeigen lassen.

Die angegebenen Länder werden korrigiert. So zB Mazedonien (so eingegeben) auf Nordmazedonien.

Ohne Office365 und ohne aktiver Internetverbindung geht 'mal nix....

Daher ist das weiter obenen genannte Thema meines Erachtens, nach wie vor vorteilbehaftet....

Ich habe mir mal den Macrocode für das Erstellen von Nationalflaggen (zu ein paar wenigen Ländern) aufgezeichnet.

Code: Alles auswählen

Sub GetFlagsWithDataTypes()
'
' Nutzt die neue Office 365 Funktion Datatypes: 
'Fügt Nationalflaggen ein
'
    Range("A1:A7").Select
    Selection.ConvertToLinkedDataType ServiceID:=536870912, LanguageCulture:= _
        "de-AT"
    Range("B1:B7").FormulaR1C1 = "=ZS(-1).Bild "
    Range("B1:B7").Select
End Sub

Das Selektieren der Zellen ist beim Aufruf von Daten > Datentypen > .... notwendig

Interessant sind die Methoden:
ConvertToLinkedDataType mit der Eigenschaft ServiceID, sowie
LanguageCulture:= "de-AT"

auch die eingefügte Formel mit "=ZS(-1).Bild "

Ein paar Ansatz Punte sich damit auseinanderzusetzen, ob man diese auch in anderen Excel Versionen "herauskitzeln kann...."

Ich werde über den Sommer/Herbst verteilt berichten...

lg