Nationalflaggen
- thowe
- Beiträge: 230
- Registriert: 12. Sep 2022, 16:57
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 79 Mal
- Kontaktdaten:
Re: Nationalflaggen
Hallo xl King,
wow ganz vielen Dank!
Das mit dem Urheberrecht hatte ich auch schon in einem der vorangegangenen Posts erwähnt.
Ich mache mich schlau wie wir das kokrrekt lösenkönnen!
Jedenmfalls werden wir sicherlich vermerken, dass die .svg vo nwikipedia unter deren Lizenzbedingungen zur Verfügung stellen.
Das mit der ComBox und dem Herunterladen nach dem Click auf ein Item innerhalb der ComboBox ist auch mein Ansatz gewesen, ohne Download davor.
Zum Thema Geld verdienen! Nein nicht das hier etwas falsch in die Kehle kommt.
Ich bringe diesen Aspekt immer ein, da Heb auf sein eigenes Risiko Kosten trägt mit diesem Forum und man auch diesen Aspeakt berücksichtigen soll, Lösungen die hier VBAgebastelt wurden zumindest als DonateWare - ab und an - angeboten werden.
Die Entscheidungsgewalt liegt ganz alleine bei Heb.
Danke nochmals an xlKing und an Heb. Jetzt habe ich - persönlich - ein mulmiges Gefühl, da ich eigentlich nur ein wenig Idee eingebracht hatte, und der meiste Code von Euch stammt. Daher nochmals tausend Dank!
LG thowe
NS: @heb -> du nimmst bitte mit xlKing Kontakt auf wegen Veröffentlichung seiner Lösung!
wow ganz vielen Dank!
Das mit dem Urheberrecht hatte ich auch schon in einem der vorangegangenen Posts erwähnt.
Ich mache mich schlau wie wir das kokrrekt lösenkönnen!
Jedenmfalls werden wir sicherlich vermerken, dass die .svg vo nwikipedia unter deren Lizenzbedingungen zur Verfügung stellen.
Das mit der ComBox und dem Herunterladen nach dem Click auf ein Item innerhalb der ComboBox ist auch mein Ansatz gewesen, ohne Download davor.
Zum Thema Geld verdienen! Nein nicht das hier etwas falsch in die Kehle kommt.
Ich bringe diesen Aspekt immer ein, da Heb auf sein eigenes Risiko Kosten trägt mit diesem Forum und man auch diesen Aspeakt berücksichtigen soll, Lösungen die hier VBAgebastelt wurden zumindest als DonateWare - ab und an - angeboten werden.
Die Entscheidungsgewalt liegt ganz alleine bei Heb.
Danke nochmals an xlKing und an Heb. Jetzt habe ich - persönlich - ein mulmiges Gefühl, da ich eigentlich nur ein wenig Idee eingebracht hatte, und der meiste Code von Euch stammt. Daher nochmals tausend Dank!
LG thowe
NS: @heb -> du nimmst bitte mit xlKing Kontakt auf wegen Veröffentlichung seiner Lösung!
-
- Beiträge: 52
- Registriert: 30. Mai 2024, 19:42
- Hat sich bedankt: 5 Mal
- Danksagung erhalten: 52 Mal
- Kontaktdaten:
Re: Nationalflaggen
Moin thowe,
du bist ja früh auf, zum Sonntag. Ich hingegen konnte nicht schlafen und hab noch ein bisschen mit einem Vorschaubild im Userform rumgespielt. Ergebnis: Dazu muss man das Bild vorher auf der Platte speichern, oder schon vorab im Sheet einfügen um es von dort in einem ganz bestimmten Format in die Zwischenablage zu bekommen.. Beides ist für mich inakzeptabel. Deshalb lasse ich das mit der Bildvorschau.
Bezüglich des Urheberrechts hab ich nochmal nachgedacht. Nicht wir verletzen des Recht mit unserem Code, sondern derjenige, der das Tool nutzt und eine Flagge einfügt. Daher habe ich noch ein Label mit dem Link zu der Wikipedia-Liste eingefügt. Und einen PopUp-Kommentar drübergelegt, der auf die Rechte von Wikipedia hinweist.
Und du brauchst kein mulmiges Gefühl zu haben. Von dir kam die Idee und du hast auch viel geholfen, durch deine Besessenheit auf Wikipedia zu bleiben. Heb hatte die Idee mit dem direkt aus dem Internet holen. Ohne euch würde ich heute noch Knotenpunkte zusammensetzen. Insofern finde ich war es Teamarbeit. Da es aber nun mal DEIN Projekt ist und ich auch nur Codes von euch mit einigem alten Code den ich mal von Youtube hatte zusammengesetzt habe, frage ich DICH, ob du einverstanden bist, meinen Code hier zu Posten. Ich bin sicher Heb hat nichts dagegen.
Und wenn das Geld aus dem Donate dem Forum zugute kommt. Habe ich persönlich keine Probleme damit. Man muss nur darauf hinweisen, dass damit nicht die Flagge sondern nur der Programmiertechnische Einsatz gewürdigt wird. Insofern kann Heb als letzten Beitrag in diesem Thread gern die Kontonummer nennen oder anderweitige Kontaktdaten.
Gruß Mr. K.
du bist ja früh auf, zum Sonntag. Ich hingegen konnte nicht schlafen und hab noch ein bisschen mit einem Vorschaubild im Userform rumgespielt. Ergebnis: Dazu muss man das Bild vorher auf der Platte speichern, oder schon vorab im Sheet einfügen um es von dort in einem ganz bestimmten Format in die Zwischenablage zu bekommen.. Beides ist für mich inakzeptabel. Deshalb lasse ich das mit der Bildvorschau.
Bezüglich des Urheberrechts hab ich nochmal nachgedacht. Nicht wir verletzen des Recht mit unserem Code, sondern derjenige, der das Tool nutzt und eine Flagge einfügt. Daher habe ich noch ein Label mit dem Link zu der Wikipedia-Liste eingefügt. Und einen PopUp-Kommentar drübergelegt, der auf die Rechte von Wikipedia hinweist.
Und du brauchst kein mulmiges Gefühl zu haben. Von dir kam die Idee und du hast auch viel geholfen, durch deine Besessenheit auf Wikipedia zu bleiben. Heb hatte die Idee mit dem direkt aus dem Internet holen. Ohne euch würde ich heute noch Knotenpunkte zusammensetzen. Insofern finde ich war es Teamarbeit. Da es aber nun mal DEIN Projekt ist und ich auch nur Codes von euch mit einigem alten Code den ich mal von Youtube hatte zusammengesetzt habe, frage ich DICH, ob du einverstanden bist, meinen Code hier zu Posten. Ich bin sicher Heb hat nichts dagegen.
Und wenn das Geld aus dem Donate dem Forum zugute kommt. Habe ich persönlich keine Probleme damit. Man muss nur darauf hinweisen, dass damit nicht die Flagge sondern nur der Programmiertechnische Einsatz gewürdigt wird. Insofern kann Heb als letzten Beitrag in diesem Thread gern die Kontonummer nennen oder anderweitige Kontaktdaten.
Gruß Mr. K.
- thowe
- Beiträge: 230
- Registriert: 12. Sep 2022, 16:57
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 79 Mal
- Kontaktdaten:
Re: Nationalflaggen
Guten Morgen xlKing,
na dann... bei mir ist es die senile Bettflucht....
Das mit dem Label ist eine - sehr - gute Idee.
Ich würde es umbauen auf eine CheckBox. -> "Info/Hinweis auf die Rechte von wikipedia sowie die Zustimmungs- und Einverständniserklärung zu den Rechten/Bedingungen von Wikipedia (und eventuell Haftungsausschluss VBAsteleien.de)"und erst mit/nach dem Aktivieren (also anhaken) der Checkbox kann man diese VBAstelei nutzen. Das Anhaken würde ich in die Custom DocumentProperty schreiben.
Vor dem veröffentlichen eine Anregung: kurz via PN an heb und mich - wenn du mchtest - den Coder verteilen. Ich hätte schon gerne ein wenig Qualitätskontrolle (nicht das ich deinen - wunderbaren - VBA Kenntnisse misstraue). Vielleicht fällt etwas auf, was man noch einfach ergänzen könnte, wie zB deine "nachträgliche" Idee mit dem Label in Bezug auf wikipedia, lder eventuell das was ich weiter oben beschrieben habe.
Das mit dem Vorschaubild finde ich genial! Das sollte dann aber Teil der DonateWare und oder Pro Version sein.
Ich habe schon öfters angereget unterschiedliche VBAsteleinen Ebenen anzubieten (free, donateWare und eben Pro).
Jedoch gibt es ganz bestimmte Motive warum Heb dieses Forum aus der Taufe gehoben hat, und er ist eben der "Vater".....
Ich horche gerne auf ihn
LG thowe
Schönen Sonntag
NS nur so nebenbei, werde heute mit meinem 17jährigen Sohn ein Tool (in Go) schreiben, dass mir Worddokumente mitextrem vielen unstrukturierten Tabellen unterschiedlichen Gliederungsebenen und Überschriftsebenen aufdröselt damit die Daten stringend und strukturiert in DBs, geschrieben werden können, oder exportiert werden als .json., .csv etc. - "GO" heißt für mich ich gehe Bier trinken er geht coden....
na dann... bei mir ist es die senile Bettflucht....
Das mit dem Label ist eine - sehr - gute Idee.
Ich würde es umbauen auf eine CheckBox. -> "Info/Hinweis auf die Rechte von wikipedia sowie die Zustimmungs- und Einverständniserklärung zu den Rechten/Bedingungen von Wikipedia (und eventuell Haftungsausschluss VBAsteleien.de)"und erst mit/nach dem Aktivieren (also anhaken) der Checkbox kann man diese VBAstelei nutzen. Das Anhaken würde ich in die Custom DocumentProperty schreiben.
Vor dem veröffentlichen eine Anregung: kurz via PN an heb und mich - wenn du mchtest - den Coder verteilen. Ich hätte schon gerne ein wenig Qualitätskontrolle (nicht das ich deinen - wunderbaren - VBA Kenntnisse misstraue). Vielleicht fällt etwas auf, was man noch einfach ergänzen könnte, wie zB deine "nachträgliche" Idee mit dem Label in Bezug auf wikipedia, lder eventuell das was ich weiter oben beschrieben habe.
Das mit dem Vorschaubild finde ich genial! Das sollte dann aber Teil der DonateWare und oder Pro Version sein.
Ich habe schon öfters angereget unterschiedliche VBAsteleinen Ebenen anzubieten (free, donateWare und eben Pro).
Jedoch gibt es ganz bestimmte Motive warum Heb dieses Forum aus der Taufe gehoben hat, und er ist eben der "Vater".....

LG thowe
Schönen Sonntag
NS nur so nebenbei, werde heute mit meinem 17jährigen Sohn ein Tool (in Go) schreiben, dass mir Worddokumente mitextrem vielen unstrukturierten Tabellen unterschiedlichen Gliederungsebenen und Überschriftsebenen aufdröselt damit die Daten stringend und strukturiert in DBs, geschrieben werden können, oder exportiert werden als .json., .csv etc. - "GO" heißt für mich ich gehe Bier trinken er geht coden....

- d'r Bastler
- Beiträge: 832
- Registriert: 29. Aug 2022, 13:20
- Hat sich bedankt: 224 Mal
- Danksagung erhalten: 119 Mal
Re: Nationalflaggen
Moin! Ihr zwei frühe Wurmfänger
als der letzte Post vor diesem hier angeschickt wurde, habe ich mir noch wenige Sekunden lang Gedanken gemacht, ob ich mich auf der linken oder rechten Schulter noch mal in meine Kissen kuscheln soll.
Ihr habt da ja so einiges diskutiert und dabei versucht einmal Euch gegenseitig, aber auch mir Entscheidungen zuzuschieben, bei denen ich nur bedingt verstehe, wo das Thema/Problem liegt.
Fange ich mal mit dem Urheberrecht an. wkp kennzeichnet jedes Flaggen-File mit dem Hinweis "Gemeinfrei" und einem Link zu
Was Eure/meine Bereitschaft betrifft, was die Veröffentlichung des Projekts hier betrifft, gilt erst einmal ganz einfach: Ich habe hier garnichts zu erlauben! Wer hier Code veröffentlichen will, darf es tun, solange er nicht strafrechtlich relevant ist. Ein qualifizierter Hack eines privaten Smartfones hat hier natürlich keinen Platz. Wie man ein wenig automatisiert eine öffentlich Website (also ohne Anmeldung und kostenpflichtiges Kundenkonto) abfragt, dagegen gerne. Das ist nicht meine Entscheidung, sondern einfach geltendes Recht in der BRD.
Was den monetären Bereich betrifft (und jetzt kommt lediglich meine Meinung, sicher keine Entscheidung!) sehe ich das mit der Nutzung der wkp-SVGs so: Natürlich steckt hinter der gezielten Filterung der Grafiken hiesige Coder-Arbeit, aber auch hinter dem Betrieb von wkp. Von daher sagt mir mein Bauch: wenn DonateWare, dann zuerst für wkp.
@thowe: Du hast per PN den Vorschlag eines Teil-Forums "Schauraum/ShowCase" gemacht, in dem final codierte Tools ihren Platz finden sollen, um dann über Donates ein wenig Umsatz zu machen. Ich zeige hier mal meine PN-Antwort, um das Thema durchaus öffentlich diskutieren zu können.
Dass es die VBAsteleien doch noch gibt, hat für mich inzwischen drei wesentliche Gründe: 1.) (und jetzt bitte nicht zu laut lachen
) Ich habe noch keine bessere snippet-Verwaltung gefunden, in der ich meinen Code sinnvoll verwalten kann, als einfach diese Foren-Software. 2.) hat sich gezeigt, dass es neben anderen etablierten Foren durchaus Bedarf gibt, sich auszutauschen oder Ideen/Techniken zu lernen (s.Zugriffszahlen) und 3.) -und das ist der wichtigste Grund- dass es hier frei von dümmlichen Belehrungen, von Bashing, Dissen und Beleidigungen zugeht.
Achja und als Nachsatz noch: Ich werde heute mit meinem "Sohn" thowe den finalen Code für das Wimpel-Tool bauen - nach der Methode GO ...
Fröhliche Grüße
heb

als der letzte Post vor diesem hier angeschickt wurde, habe ich mir noch wenige Sekunden lang Gedanken gemacht, ob ich mich auf der linken oder rechten Schulter noch mal in meine Kissen kuscheln soll.
Ihr habt da ja so einiges diskutiert und dabei versucht einmal Euch gegenseitig, aber auch mir Entscheidungen zuzuschieben, bei denen ich nur bedingt verstehe, wo das Thema/Problem liegt.
Fange ich mal mit dem Urheberrecht an. wkp kennzeichnet jedes Flaggen-File mit dem Hinweis "Gemeinfrei" und einem Link zu
Wenn hier im Tool eindeutig die Quelle genannt wird und vielleicht einfach ein Link zum jeweiligen Hinweis zum Wimpel gesetzt wird, sehe ich weder für die Coder, noch dieses Forum, noch den Nutzer ein rechtliches Problem.Dieses Werk stellt eine Flagge, ein Wappen, ein Siegel oder ein anderes offizielles Insigne dar. Die Verwendung solcher Symbole ist in manchen Ländern beschränkt. Diese Beschränkungen sind unabhängig von dem hier beschriebenen Urheberrechtsstatus.
Was Eure/meine Bereitschaft betrifft, was die Veröffentlichung des Projekts hier betrifft, gilt erst einmal ganz einfach: Ich habe hier garnichts zu erlauben! Wer hier Code veröffentlichen will, darf es tun, solange er nicht strafrechtlich relevant ist. Ein qualifizierter Hack eines privaten Smartfones hat hier natürlich keinen Platz. Wie man ein wenig automatisiert eine öffentlich Website (also ohne Anmeldung und kostenpflichtiges Kundenkonto) abfragt, dagegen gerne. Das ist nicht meine Entscheidung, sondern einfach geltendes Recht in der BRD.
Was den monetären Bereich betrifft (und jetzt kommt lediglich meine Meinung, sicher keine Entscheidung!) sehe ich das mit der Nutzung der wkp-SVGs so: Natürlich steckt hinter der gezielten Filterung der Grafiken hiesige Coder-Arbeit, aber auch hinter dem Betrieb von wkp. Von daher sagt mir mein Bauch: wenn DonateWare, dann zuerst für wkp.
@thowe: Du hast per PN den Vorschlag eines Teil-Forums "Schauraum/ShowCase" gemacht, in dem final codierte Tools ihren Platz finden sollen, um dann über Donates ein wenig Umsatz zu machen. Ich zeige hier mal meine PN-Antwort, um das Thema durchaus öffentlich diskutieren zu können.
Noch mal zur Erinnerung: Warum gibt es die VBAsteleien.de [noch]? Mein erstes Ziel, vom Betreiber der im August 2022 offline gegangenen office-loesungen.de dessen Inhalte zu übernehmen ist trotz der Nutzung des gleichen Forumsformats gescheitert. Der Betreiber hat leider auf keine Anfrage (auch durch Dritte) reagiert. Somit hätte ich den Laden hier eigentlich Ende 2022 einfach zumachen können.auf die Idee mit dem ShowCase hatte ich noch nicht geantwortet. Grundsätzlich ist die Idee tatsächlich gut. Allerdings zögere ich ein Wenig, weil sich das Gesicht der VBAsteleien dadurch in eine Richtung verändern würde, von der ich nicht sicher bin, ob ich sie will. [Wichtige Anmerkung: Jedes Mitglied kann hier seine eigenen Themen aufmachen, lediglich die Foren-Struktur liegt noch in nur meiner Hand]
Du hast schon mehrfach die VBAs als Lösungsforum charakterisiert. Auch gegen diese schöne Formulierung habe ich prinzipiell nichts gegen. Wie vermutlich nicht anders zu erwarten, kommt jetzt natürlich das ABER
Mir ist immer noch wichtig, dass VBAnfänger hier einfach unbefangen und v.A, unbeschimpft und unbelehrt über ihre mangelnde Konformität zu den verkalkten Fragestrukturen alter De99en ihre Fragen stellen können. Jeder soll, darf und kann, wie ihm sein bisheriger XL-Schnabel gewachsen ist. Lösungsforum? Gerne! Aber ohne Ausgrenzung von fragestellenden Anfängern.
ShowCase ... mmmh? Da bewegen wir uns dann in eine kommerzielle Richtung, von der ich (noch) nicht wirklich überzeugt bin. Erstaunt nehme ich zur Kenntnis, dass z.B. unsere Wimpel-Party in nur drei Tagen über 1.700 Aufrufe
verzeichnet. Nanu's Thema über 4.000, Deine Drucker-Spielereien über 4.000 und das Einfache DartSheet inzwischen weit über 16.000! Selbst mein kleiner Alleingang theDistributor wurde schon 1.400 mal besichtigt. Das zeigt, dass da durchaus ein Markt zu sehen ist.
Mein monetärer Ansatz wäre dennoch erst einmal dezent ein PayPal-Button zu platzieren, um die Kosten zu decken. Der August ist jeweils der Monat (die VBAstelein sind kurz vor ihrem zweiten Geburtstag!!) für die nächste Jahresrechnung des Forums und aktuell ist Unterstützung für dieses Jahr in Höhe von rund 65% bei PayPal (und Du bist nicht mehr der einzige Unterstützer) gelandet. D.h. dass ich nur noch 35% selber trage, was ich ausgesprochen gerne tue!! Jeder Fußballverein ist teurer
, aber erheblich mehr Körper-verletzend...
Schon früh gab es Angebote von Mitgliedern zum Thema SEO, verknüpft mit Affiliates und anderer Werbung. Das möchte ich hier tatsächlich nicht. Mein Grundgedanke bleibt ein freies und kostenloses Internet. Und -wie xlKing schon mal bemerkte- VBA ist eigentlich Allerweltscode, manchmal fehlt einem nur der entscheidende Baum im Dschungel vor den Augen.
Ich nehme an, Du merkst, dass ich noch unentschlossen bin. Sofern wir Deine beste Hälfte der Welt nicht damit ärgern, wäre Euer Aufenthalt in meinem Raum ein gute Gelegenheit, das Thema zu vertiefen.
Dass es die VBAsteleien doch noch gibt, hat für mich inzwischen drei wesentliche Gründe: 1.) (und jetzt bitte nicht zu laut lachen

Achja und als Nachsatz noch: Ich werde heute mit meinem "Sohn" thowe den finalen Code für das Wimpel-Tool bauen - nach der Methode GO ...

Fröhliche Grüße
heb
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
-
- Beiträge: 52
- Registriert: 30. Mai 2024, 19:42
- Hat sich bedankt: 5 Mal
- Danksagung erhalten: 52 Mal
- Kontaktdaten:
Re: Nationalflaggen
Hi Heb,
ja das ist mir auch schon aufgefallen, dass an diesem Thema ein reges Interesse besteht. Alles wartet nun gespannt auf das finale Ergebnis. Doch so wie ich das sehe wird es nicht Ein finales Ergebnis geben, sondern mindestens 3, da ja auch ihr Beiden fleißig wart und auf euren Wegen die gleiche Quelle anzapft.
Jetzt sehe ich aber irgendwie gar nicht mehr durch. Wo soll ich denn nun meine jetzige Version des Codes posten? Hier im Forum, in einem Sub-Forum oder per PN? Ich finde da das Thema öffentlich angegangen wurde, sollte auch hier zumindest Eine der Lösungen stehen. Aber aus Respekt vor thowe und seiner Idee warte ich lieber noch ein bisschen, bis ich eine klare Ansage bekomme, wie wir nun weiterverfahren. Besteht überhaupt noch Interesse an meiner Version?
@thowe: Ich finde das Label mit dem Quellhinweis völlig ausreichend. Eine Checkbox lässt sich in ein fertiges Produkt einbauen. Wie könnte der Text lauten? CustomDocumentProperties habe ich früher auch schon mal befüllt. Aber was willst du dort reinschreiben?
Grundsätzlich: Ich teile in Foren lieber den Code als irgendwelche Arbeitsmappen, die man erst runterladen, entzippen und öffnen muss. Zumindest wenn es um so simple Projekte geht. (Ausnahme, selbst erstellte AddIns). Den Spendenaufruf für Wikipedia und die VBAsteleien können wir genauso gut hier im Forum machen oder in den Code schreiben.
Falls ihr damit irgendein Problem habt, sagt es lieber jetzt. Ansonsten wird mein nächster Post nach Eurer Antwort meinen relativ einfachen, weil zusammengeschusterten Code enthalten, der jedoch super funktioniert. Zumindest solange Wikipedia nicht auf die Idee kommt, die Seite umzugestalten. Das meiste davon habe ich ja schon in Antwort 28 gepostet. Auf Eure Ansätze, bin ich natürlich genauso gespannt.
Gruß Mr. K.
ja das ist mir auch schon aufgefallen, dass an diesem Thema ein reges Interesse besteht. Alles wartet nun gespannt auf das finale Ergebnis. Doch so wie ich das sehe wird es nicht Ein finales Ergebnis geben, sondern mindestens 3, da ja auch ihr Beiden fleißig wart und auf euren Wegen die gleiche Quelle anzapft.
Jetzt sehe ich aber irgendwie gar nicht mehr durch. Wo soll ich denn nun meine jetzige Version des Codes posten? Hier im Forum, in einem Sub-Forum oder per PN? Ich finde da das Thema öffentlich angegangen wurde, sollte auch hier zumindest Eine der Lösungen stehen. Aber aus Respekt vor thowe und seiner Idee warte ich lieber noch ein bisschen, bis ich eine klare Ansage bekomme, wie wir nun weiterverfahren. Besteht überhaupt noch Interesse an meiner Version?
@thowe: Ich finde das Label mit dem Quellhinweis völlig ausreichend. Eine Checkbox lässt sich in ein fertiges Produkt einbauen. Wie könnte der Text lauten? CustomDocumentProperties habe ich früher auch schon mal befüllt. Aber was willst du dort reinschreiben?
Grundsätzlich: Ich teile in Foren lieber den Code als irgendwelche Arbeitsmappen, die man erst runterladen, entzippen und öffnen muss. Zumindest wenn es um so simple Projekte geht. (Ausnahme, selbst erstellte AddIns). Den Spendenaufruf für Wikipedia und die VBAsteleien können wir genauso gut hier im Forum machen oder in den Code schreiben.
Falls ihr damit irgendein Problem habt, sagt es lieber jetzt. Ansonsten wird mein nächster Post nach Eurer Antwort meinen relativ einfachen, weil zusammengeschusterten Code enthalten, der jedoch super funktioniert. Zumindest solange Wikipedia nicht auf die Idee kommt, die Seite umzugestalten. Das meiste davon habe ich ja schon in Antwort 28 gepostet. Auf Eure Ansätze, bin ich natürlich genauso gespannt.
Gruß Mr. K.
- Nanu
- Beiträge: 71
- Registriert: 14. Okt 2023, 20:20
- Hat sich bedankt: 42 Mal
- Danksagung erhalten: 15 Mal
- Kontaktdaten:
Re: Nationalflaggen
Hola ins Forum,
wenn ich auch mal kurz was dazu sagen darf. Für mich als Unwissender ist dieses Forum hier mit Abstand das wo dir am besten und unkomliziertesten geholfen wird. Auch gibt es hier keine Belehrungen und Frasen die einem nicht weiterhelfen. Der Ton ist immer sehr angenehm. Deswegen bin ich auch immer wieder gerne bereit ein paar Euronen zu spenden um das Forum am Laufen zu halten. Ich hoffe ihr macht weiter so.
Saludos Nanu
wenn ich auch mal kurz was dazu sagen darf. Für mich als Unwissender ist dieses Forum hier mit Abstand das wo dir am besten und unkomliziertesten geholfen wird. Auch gibt es hier keine Belehrungen und Frasen die einem nicht weiterhelfen. Der Ton ist immer sehr angenehm. Deswegen bin ich auch immer wieder gerne bereit ein paar Euronen zu spenden um das Forum am Laufen zu halten. Ich hoffe ihr macht weiter so.
Saludos Nanu
-
- Beiträge: 52
- Registriert: 30. Mai 2024, 19:42
- Hat sich bedankt: 5 Mal
- Danksagung erhalten: 52 Mal
- Kontaktdaten:
Re: Nationalflaggen
Hi All,
@Nanu: Danke für die Positive Rückmeldung. Auch ich finde es furchtbar, wie in manch anderem Forum mit den Leuten umgegangen wird. Schließlich fängt jeder irgendwann mal klein an. Ich mache dann gern mal den Erklärbär. Hoffe ich schieße dabei nicht manchmal übers Ziel hinaus, sonst kommt das vielleicht auch schlecht rüber. Also sagt mir einfach, wenns nervt. Dann schau ich, wie ich nochmal anders an die Sache rangehen kann.
Da ich nichts Gegenteiliges von Euch hier mehr gelesen habe, hier also nun mein Code. Sorry thowe! Heb meinte in einem anderen Thread. Codes gehören nicht in die PN. Deine Änderungsvorschläge sind, hier allerdings noch nicht berücksichtigt.
Wie gesagt, benötigt man dafür ein Userform mit einer Combobox, einem CommandButton und einem Label. In das Userform kommt folgender Code:
Anschließend kann man das Userform aus einem Standardmodul auf dem Standardweg aufrufen:
Wenn das Userform läuft, wird nach Auswahl eines Landes per Click auf den Button eine Shape-Grafik eingefügt, die auf SVG-Daten beruht. Insofern lässt sich diese auch über Gruppierung aufheben und Punkte bearbeiten ändern. Solche Änderungen würde ich aber nicht empfehlen, da die Grafik bereits gut ist. Um die Grafik zu vergrößern oder zu verkleinern und dabei das Seitenverhältnis beizubehalten, einfach die Shift-Taste gedrückt halten, wenn ihr mit der Maus am unteren rechten Handler anpackt und verschiebt.
In dieser Form, plane ich das Tool auch auf meiner (noch im Aufbau befindlichen) Website (auf die sich wahrscheinlich sowieso niemand verirren wird) als AddIn anzubieten. Ihr könnt aber gern damit weiterarbeiten und noch Hinweise auf Donate oder sonstiges auf dem Form unterbringen.
Bei Fragen, bin ich Montag Abend wieder erreichbar. Jetzt erstmal Gute Nacht.
Mr. K.
@Nanu: Danke für die Positive Rückmeldung. Auch ich finde es furchtbar, wie in manch anderem Forum mit den Leuten umgegangen wird. Schließlich fängt jeder irgendwann mal klein an. Ich mache dann gern mal den Erklärbär. Hoffe ich schieße dabei nicht manchmal übers Ziel hinaus, sonst kommt das vielleicht auch schlecht rüber. Also sagt mir einfach, wenns nervt. Dann schau ich, wie ich nochmal anders an die Sache rangehen kann.
Da ich nichts Gegenteiliges von Euch hier mehr gelesen habe, hier also nun mein Code. Sorry thowe! Heb meinte in einem anderen Thread. Codes gehören nicht in die PN. Deine Änderungsvorschläge sind, hier allerdings noch nicht berücksichtigt.
Wie gesagt, benötigt man dafür ein Userform mit einer Combobox, einem CommandButton und einem Label. In das Userform kommt folgender Code:
Code: Alles auswählen
Option Explicit
Private Type arrTp
Country As String
Link1 As String
End Type
Dim arr() As arrTp
Private Sub CommandButton1_Click()
Dim xmlhttp2 As New MSXML2.XMLHTTP60
Dim xmlhttp3 As New MSXML2.XMLHTTP60
Dim HTMLDoc2 As New MSHTML.HTMLDocument
Dim odt As MSHTML.HTMLAnchorElement
Dim svglnk As String
If ComboBox1.Value <> "" Then
xmlhttp2.Open "POST", arr(ComboBox1.ListIndex + 1).Link1
xmlhttp2.send
If xmlhttp2.Status <> 200 Then
MsgBox "Problem", vbCritical
Exit Sub
End If
HTMLDoc2.body.innerHTML = xmlhttp2.responseText
Set odt = HTMLDoc2.getElementsByClassName("fullMedia")(0).getElementsByTagName("a")(0)
If odt.innerHTML = "Originaldatei" Then
svglnk = Replace(odt.href, "about://", "https://")
ActiveSheet.Pictures.Insert svglnk
End If
Else
MsgBox "Wählen Sie ein Land aus", vbInformation
End If
End Sub
Private Sub Label1_Click()
ThisWorkbook.FollowHyperlink "https://de.wikipedia.org/wiki/Liste_der_Nationalflaggen"
End Sub
Private Sub UserForm_Initialize()
'setzt die Verweise 'Microsoft HTML Object Library' & 'Microsoft XML, v6.0' sowie Microsoft Internet Controls voraus
Dim xmlhttp As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim tbl As MSHTML.IHTMLElement
Dim cl As MSHTML.IHTMLElement
Dim a As MSHTML.IHTMLElement
Dim a2 As MSHTML.HTMLAnchorElement
With Label1
.Caption = "Quelle: https://de.wikipedia.org/wiki/Liste_der_Nationalflaggen"
.ControlTipText = "Alle Rechte an den Flaggen liegen bei Wikipedia und deren Partnern"
.ForeColor = &HFF0000
.Font.Underline = True
End With
ReDim arr(0)
Dim nm As String
Dim u As Long, i As Long, k As Long, flr As Boolean
Dim hrf As String
'POST ist stabiler als GET, schneller und ignoriert den Cache, ist also tatsächlich aktuell
xmlhttp.Open "POST", "https://de.wikipedia.org/wiki/Liste_der_Nationalflaggen", False
xmlhttp.send
If xmlhttp.Status <> 200 Then
MsgBox "Problem"
Exit Sub
End If
HTMLDoc.body.innerHTML = xmlhttp.responseText
On Error GoTo Fehler
For i = 1 To 23
Set tbl = HTMLDoc.getElementsByTagName("table")(i)
flr = False
For k = 0 To 100
Set cl = tbl.getElementsByTagName("td")(k)
Set a = cl.getElementsByTagName("a")(0)
If flr Then Exit For
nm = a.innerHTML
u = UBound(arr) + 1
ReDim Preserve arr(u)
arr(u).Country = nm
ComboBox1.AddItem nm
Set a2 = cl.getElementsByTagName("a")(2)
If Right(a2.href, 4) <> ".svg" Then Set a2 = cl.getElementsByTagName("a")(3)
hrf = Replace(a2.href, "about:/wiki/Datei:", "https://de.wikipedia.org/wiki/Datei:")
arr(u).Link1 = hrf
Next k
Next i
Fehler:
flr = True
Resume Next
End Sub
Code: Alles auswählen
Sub FlaggeEinfuegen()
UserForm1.Show
End Sub
In dieser Form, plane ich das Tool auch auf meiner (noch im Aufbau befindlichen) Website (auf die sich wahrscheinlich sowieso niemand verirren wird) als AddIn anzubieten. Ihr könnt aber gern damit weiterarbeiten und noch Hinweise auf Donate oder sonstiges auf dem Form unterbringen.
Bei Fragen, bin ich Montag Abend wieder erreichbar. Jetzt erstmal Gute Nacht.
Mr. K.
- thowe
- Beiträge: 230
- Registriert: 12. Sep 2022, 16:57
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 79 Mal
- Kontaktdaten:
Re: Nationalflaggen
Guten Morgen an Alle!
@Nanu
Danke für deine sehr positive Rückmeldung. Wird dem Inititator heb und natürlich allen anderen Forenteilnehmer sehr erfreuen.
Kleiner Tipp:Du könntest, wenn du auch in anderen Foren tätig bist, in deine Signatur folgendes Schreiben: mag auch vbasteleien.de
Ich mache es so, und habe bis jetzt noch keine Unkenrufe vernommen. Liegt vielleicht daran, dass ich Mag auch vbasteleien.de nicht verlinke.
LG
@Nanu
Danke für deine sehr positive Rückmeldung. Wird dem Inititator heb und natürlich allen anderen Forenteilnehmer sehr erfreuen.
Kleiner Tipp:Du könntest, wenn du auch in anderen Foren tätig bist, in deine Signatur folgendes Schreiben: mag auch vbasteleien.de
Ich mache es so, und habe bis jetzt noch keine Unkenrufe vernommen. Liegt vielleicht daran, dass ich Mag auch vbasteleien.de nicht verlinke.
LG
- thowe
- Beiträge: 230
- Registriert: 12. Sep 2022, 16:57
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 79 Mal
- Kontaktdaten:
Nationalflaggen, Out of the Box Excel 365
Moin,
mit Excel 365 kann man out of the box die Nationalflaggen erstellen
zB in einer Spalte untereinander, die Länder wie bspw:
Deutschland
Österreich
Schweis
Diese 3 Zeilen markieren > Daten > Datentypen > Geogrphie
wenn umgewandelt erscheint ein kleine insert+ Symbol in der Zelle drauclicken > Bild auswählen und voilà Die Natioinalflagge ist eingefügt-
Es werden im "Hintergrund" der Arbeitsmappe im Ordner media Binärdateien angelegt ->soweit ich das gesehen habe.
LG
mit Excel 365 kann man out of the box die Nationalflaggen erstellen
zB in einer Spalte untereinander, die Länder wie bspw:
Deutschland
Österreich
Schweis
Diese 3 Zeilen markieren > Daten > Datentypen > Geogrphie
wenn umgewandelt erscheint ein kleine insert+ Symbol in der Zelle drauclicken > Bild auswählen und voilà Die Natioinalflagge ist eingefügt-
Es werden im "Hintergrund" der Arbeitsmappe im Ordner media Binärdateien angelegt ->soweit ich das gesehen habe.
LG
Wer ist online?
Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste