Hallo Excel-Freaks,
zur Erstellung von Fahrzeug-Typenschildern mit fahrzeugspezifischen Pictogrammen habe ich ein TextFeld in mein ArbeitsBlatt eingefügt und zu diesem eine vorbereitete Graphik als HinterGrund ausgewählt.
Da dort verschiedene Pictogramme auftauchen sollen, wollte ich diese gerne in Abhängigkeit von bestimmten Stellen der FahrgestellNummer automatisch einfügen. Leider zeichnet der MakroRekorder weder beim Erstellen des TextFeldes noch bei dessen Änderung irgendetwas auf.
Momentan behelfe ich mich damit, mehrere RegisterBlätter mit den jeweiligen Pictogrammen und ansonsten gleichem Inhalt in dem ArbeitsBlatt zu aktualisieren … 
Dabei tauchen auch Fragen auf, die ich gleich in einem gesonderten Thread noch stellen will.
Kann mir Jemand verraten, wie ich den Inhalt / HinterGrund des TextFeldes mit vba beeinflussen kann oder welche Art von Elementen sich vielleicht besser für meine Zwecke eignen?
Vielen Dank schon ´mal für Euer Interesse.
Freundliche Grüße
Thomas
Hi Thomas, nimm Steuerelement ‚Bild‘, Gruß o.w.T.
Moin Reinhard,
Du meinst das Active-X-SteuerElement „Bild“? Das lässt sich leider nicht skalieren. Da müsste ich alle Pictogramme genau passend neu erstellen. Ich glaube, da kann ich besser die jetzige Lösung benutzen.
Trotzdem vielen Dank.
Freundliche Grüße
Thomas
P. S.: Hast Du Dir die hochgeladene Mappe angesehen?
Hallo Thomas,
Du meinst das Active-X-SteuerElement „Bild“?
ja.
Das lässt sich leider nicht skalieren.
Jain, ein bißchen was geht da schon. Ich bau dir mal kurz was.
Ansonsten stimmt es, man kann da nicht z.B. einstellen daß
Höhen- und breitenverhältnis gleich bleiben soll und man dann die Breite o.ä. verändert.
Davon unbenommen bleibt die Grundproblematik wenn ein Bild mit gewissen Abmesseungen in einen starren Rahmen soll.
x) Entweder passt man das Bild der Rahmengröße an dann wird es ggfs. verzerrt oder man passt es nur an die rahmenbreite an dann haste
quasi wie im Fernsehen bei anderen Bildformaten oben und unten schwarze Steifen.
Frage, warum brauchst du eigentlich einen „Rahmen“? Also jetzt
z.B. ein Bild-Steuerelement?
Und zu deiner Textbox, mir ist schleierhaft wie du da ein Bild als Hintergrund reinkriegst, übersehe ich da was ?
Da müsste ich alle Pictogramme genau passend neu erstellen.
Wieso das? Du hast doch Vba 
Das kann das auch und deine Pictos als .jpg speichern. allerdings x) bleibt erhalten als Problematik
Glaube ich zumindest, may be ich täusche mich.
Ich glaube, da kann ich besser die jetzige Lösung benutzen.
Die muß ich erst noch herausfinden wie die ist S. weiteren Text…
P. S.: Hast Du Dir die hochgeladene Mappe angesehen?
Ja, habe ich. Da ich so bin wie ich bin, bin leidenschaftlicher Verzettler *gg* hatte ich Excel sofort vergessen und mich erstmal ausgiebig mit Anhängern beschäftigt *lächel*
Dann, als da meine Neugierde befriedigt war, merkte ich, ich hatte völlig vergessen nach was genau ich da eigentlich „schauen“ wollte.
Ich wollte dann nochmals deine Beiträge durchlesen und mit Wissen über
deinen Tabelleaufbau Nachfragen stellen.
Tja nun, vllt. kam Fußbal im TV, eine interessante Anfrage in einem Forum, ich hab nicht nachgefragt, vezeih.
Aber aller guten Dinge sind drei und ich hatte ja erst einem Versuch an deiner mappe, schauen wir mal.
Gruß
Reinhard
Hallo Reinhard,
…
Frage, warum brauchst du eigentlich einen „Rahmen“? Also jetzt
z.B. ein Bild-Steuerelement?
Geht bestimmt auch anders. Ein Mangel an AuswahlMöglichkeiten ist sicherlich nicht mein Problem. Eher sehe ich den Wald vor lauter Bäumen nicht :-S
Und zu deiner Textbox, mir ist schleierhaft wie du da ein Bild
als Hintergrund reinkriegst, übersehe ich da was ?
Über: TextFeld formatieren - Farben und Linien - Ausfüllen - Farbe - FüllEffekte Grafik - Grafik auswählen.
–> Kann man schon ´mal übersehen 
Da müsste ich alle Pictogramme genau passend neu erstellen.
Wieso das? Du hast doch Vba
Pictos als .jpg speichern. allerdings x) bleibt erhalten als
Problematik
Ich neige auch dazu mich zu verzetteln. Bevor ich Excel zum ZeichenProgramm ummodele probiere ich es lieber händisch
Glaube ich zumindest, may be ich täusche mich.
Ich glaube, da kann ich besser die jetzige Lösung benutzen.
Die muß ich erst noch herausfinden wie die ist
Text…P. S.: Hast Du Dir die hochgeladene Mappe angesehen?
Ja, habe ich. Da ich so bin wie ich bin, bin
leidenschaftlicher Verzettler *gg* hatte ich Excel sofort
vergessen und mich erstmal ausgiebig mit Anhängern beschäftigt
*lächel*
Da gibt es Leute, die sich da jahrelang mit beschäftigen
Dann, als da meine Neugierde befriedigt war, merkte ich, ich
hatte völlig vergessen nach was genau ich da eigentlich
„schauen“ wollte.
Gut. Ich hatte schon befürchtet, dass Du angesichts meiner Versuche die Nerven verloren hättest
Ich wollte dann nochmals deine Beiträge durchlesen und mit
Wissen über
deinen Tabelleaufbau Nachfragen stellen.
Tja nun, vllt. kam Fußbal im TV, eine interessante Anfrage in
einem Forum, ich hab nicht nachgefragt, vezeih.
Es liegt mir natürlich fern, Dich antreiben zu wollen. Bei mir sind am WE auch jede Menge andere Dinge aktuell. Nur momentan bin ich aufgrund einer BizepsSehnenRuptur etwas eingeschränkt
Aber aller guten Dinge sind drei und ich hatte ja erst einen
Versuch an deiner mappe, schauen wir mal.
Ja, schau´ gerne
Das Risiko, dass das NervenVerlieren doch noch zum Tragen kommt, muss ich wohl eingehen
Gruß
Reinhard
Vielen Dank und freundliche Grüße
Thomas
Hallo Thomas,
Und zu deiner Textbox, mir ist schleierhaft wie du da ein Bild
als Hintergrund reinkriegst, übersehe ich da was ?Über: TextFeld formatieren - Farben und Linien - Ausfüllen -
Farbe - FüllEffekte Grafik - Grafik auswählen.
*grummel* Sach doch gleich daß das aus der Symbolleiste Zeichnen stammt.
–> Kann man schon ´mal übersehen
*grins*, wie beim Clausthaler-Werbespot? Ist schon frech zu 0,45permil; „frei“ zu sagen.
In anderen Ländern außerhalb Ds wagen sie das nicht.
Ja, habe ich. Da ich so bin wie ich bin, bin
leidenschaftlicher Verzettler *gg* hatte ich Excel sofort
vergessen und mich erstmal ausgiebig mit Anhängern beschäftigt
*lächel*
Da gibt es Leute, die sich da jahrelang mit beschäftigen
Das habe ich garantiert nicht vor, war halt neugierig, die Zeit verging…
Diente nur mit als Begründung warum dein eigentliches Anliegen „unterging“.
Dann, als da meine Neugierde befriedigt war, merkte ich, ich
hatte völlig vergessen nach was genau ich da eigentlich
„schauen“ wollte.
Gut. Ich hatte schon befürchtet, dass Du angesichts meiner
Versuche die Nerven verloren hättest
Kein Grund dafür in Sicht.
Ich wollte dann nochmals deine Beiträge durchlesen und mit
Wissen über
deinen Tabelleaufbau Nachfragen stellen.
Tja nun, vllt. kam Fußbal im TV, eine interessante Anfrage in
einem Forum, ich hab nicht nachgefragt, vezeih.
Es liegt mir natürlich fern, Dich antreiben zu wollen.
Nur momentan bin ich aufgrund einer BizepsSehnenRuptur etwas :eingeschränkt
? Soll ich das so deuten wenn da deine Zeps alle wieder gehen besuchste mich privat und treibst mich persönlich an?
*Vogelflinte für Falken besorg* ))
Aber aller guten Dinge sind drei und ich hatte ja erst einen
Versuch an deiner mappe, schauen wir mal.
Ja, schau´ gerne
Das Risiko, dass das NervenVerlieren doch noch zum Tragen
kommt, muss ich wohl eingehen
PS: du bist doch in Excel ein Exot. Der einzige den ich kenne der Z1S1 benutzt. Hast du da Add-Ins die da problemlos A1-Mappen
in Z1S1-mappen umwandelnund zurück?
Sicher habe ich das getestet vor einiger Zeit, grundsätzlich teste ich alles, und ich weiß schon daß ich das in Optionen umschalten kann.
Klappte auch bei Tests, aber manchmal ging es schief.
Kennst du da was sichereres? Wie z.B. das absrel.xla Add-In.
Das fand ich bei der Recherche. Das wandelt A1 in $A1, A$1, $A$1 um,
klappt auch bei Z1S1-Schreibweisen.
Und ich GLAUBE in den Fällen wo es nicht klappte hab ich da nix
mit Indirekt o.ä. gebastelt was wahrscheinlich schiefgehen muß.
Da wird wohl auch kein Add-In was umwandeln können.
Gruß
Reinhard
OT
Hallo Reinhard,
vielen Dank für Deine Antwort.
Hallo Thomas,
Und zu deiner Textbox, mir ist schleierhaft wie du da ein Bild
als Hintergrund reinkriegst, übersehe ich da was ?Über: TextFeld formatieren - Farben und Linien - Ausfüllen -
Farbe - FüllEffekte Grafik - Grafik auswählen.*grummel* Sach doch gleich daß das aus der Symbolleiste
Zeichnen stammt.
Ich sage ja, ich habe vor lauter Bäumen … Zu allem Überfluss sitze ich an 3 verschiedenen Rechnern. Dieser hier hat Excel 2003. Dann habe ich noch ein 2010er. Wenn ich da „Fenster fixieren“ will, muss ich „Fenster einfrieren“ wählen aus „Ansicht - Zoom“ oder „Ansicht - Fenster“ ( 2 Icons fast direkt nebeneinande! ) Wer soll sich das merken! ‚+}&/2ß5‘*_:;%%&
–> Kann man schon ´mal übersehen
*grins*, wie beim Clausthaler-Werbespot? Ist schon frech zu
0,45permil; „frei“ zu sagen.
In anderen Ländern außerhalb Ds wagen sie das nicht.
Genau. Dann lieber Kribbeln in BauchNabELL
Ja, habe ich. Da ich so bin wie ich bin, bin
leidenschaftlicher Verzettler *gg* hatte ich Excel sofort
vergessen und mich erstmal ausgiebig mit Anhängern beschäftigt
*lächel*Da gibt es Leute, die sich da jahrelang mit beschäftigen
Das habe ich garantiert nicht vor, war halt neugierig, die
Zeit verging…
Neugierig sollte man immer bleiben
Diente nur mit als Begründung warum dein eigentliches Anliegen
„unterging“.
So schnell geben wir ja nun nicht auf …
Dann, als da meine Neugierde befriedigt war, merkte ich, ich
hatte völlig vergessen nach was genau ich da eigentlich
„schauen“ wollte.
Shit, und ich dachte, dass ich die Mappe ohne große Einweisung einem Excel-Einsteiger an die Hand gebe, damit er / sie damit TypenSchilder erzeugen kann wie ein junger Gott / Göttin.
Bis dahin habe ich aber wohl noch einen langen Weg vor mir
Es liegt mir natürlich fern, Dich antreiben zu wollen.
Nur momentan bin ich aufgrund einer BizepsSehnenRuptur etwas :eingeschränkt? Soll ich das so deuten wenn da deine Zeps alle wieder gehen
besuchste mich privat und treibst mich persönlich an?
*Vogelflinte für Falken besorg*
Stop! Falken stehen unter NaturSchutz! Dürfen Alles.
Aber aller guten Dinge sind drei und ich hatte ja erst einen
Versuch an deiner mappe, schauen wir mal.
Hast Du die Mappe 3x heruntergeladen? — Sicher ist sicher. Immer eine Kopie in der HinterHand, verstehe
Ja, schau´ gerne
Das Risiko, dass das NervenVerlieren doch noch zum Tragen
kommt, muss ich wohl eingehen
PS: du bist doch in Excel ein Exot. Der einzige den ich kenne
der Z1S1 benutzt. Hast du da Add-Ins die da problemlos
A1-Mappen in Z1S1-mappen umwandeln und zurück?
Nein. Leider nicht. Mein Mini-Makro kann nur zwischen den „Styles“ toggeln in der TabellenBlattAnsicht
Jede Zeile Code mit „cells(…“ ist handgeschrieben, weil der MakroRecorder mit Euch unter einer Decke steckt und diese BuchstabenKodierung lustig findet >grrr
Korrektur
Hallo Reinhard, hallo MitLesende,
beim umstellen des Druckers ist mir aufgefallen, dass nur die Seite „Eingabe“ eingerichtet wird ( dafür dann aber auch 10 mal … ).
So wie unten klappt es dann. Komme aber wieder einmal nicht ohne „select“ aus, weil „with blatt.pagesetup“ oder „with blatt.name.pagesetup“ nicht akzeptiert wird.
Sub alle_Seiten_einrichten() 'HauptProgramm
Call aeef
For Each blatt In Worksheets
If blatt.Name = „Liste“ Then Exit For
Worksheets(blatt.Name).Select
Call a4_hl2250
Next blatt
Worksheets(„Eingabe“).Select
Call aeet
ActiveWorkbook.Save
End Sub
Sub a4_hl2250()
With ActiveSheet.PageSetup ’ with blatt.pagesetup --> Fehler
.PrintTitleRows = „“
.PrintTitleColumns = „“
End With
ActiveSheet.PageSetup.PrintArea = „$A$1:blush:G$15“
…
Wie muss ich das formulieren?
Freundliche Grüße
Thomas