Office: Controls per code dauerhaft ändern

Hi Leute,
bin mal wieder auf der Suche nach der eierlegenden Wollmilchsau.
Es geht um Excel 2007 - VBA - UserForm - enthaltenen Elemente (Controls).
Ich habe ein größere Projekt vor der Brust (mit Multiseiten etc.), das ich auch nicht alleine bedienen werde. Nun gehen die Wünsche meist mit einem Kompromiss einher. Also werden sich die Formen und Inhalte noch einige Male ändern. Bei ca. 400 Elementen Farbe, Größe, Ort usw. mehrmals ändern zu müssen ist eine Arbeit, die richtig Spaß macht.
Ich kann zwar per Code auf alles zugreifen, aber die Einstellungen sind flüchtig, d.h. schließe ich sind die Einstellungen wieder auf den voreingestellten Wert gesetzt.
Wie kann ich meine Einstellungen dauerhaft machen ? - ohne bei jedem Start erst alles neu durchlaufen zu lassen.
Ich kann mir zwar nicht vorstellen, dass ich der einzige mit diesem Wunsch bin, habe aber im Netz bisher nichts Brauchbares gefunden. Ich hoffe es gibt jemanden, der mir wochenlange Arbeit ersparen kann.

Schon jetzt mit dankbaren Gruß
VBAEisbär

:)

 

Hallo Eisbär,

zu Deiner etwas vagen Beschreibung kann ich nur mit eine allgemein gehaltenen Beschreibung antworten: bei der Definition von ActiveX-Steuerelementen kannst Du über das Eigenschaftsfenster ausgewählte Eigenschaften dauerhaft einstellen.

Gruß
Aloys

 

Hi,

irgendwie verstehe ich das eigentliche Problem nicht: wenn du die Eigenschaften von Hand änderst, sind sie permanent und wenn du sie per Code änderst, kann es dir doch gleichgültig sein, wie die Steuerelemente nach dem Schließen aussehen, denn beim Neustart werden die Eigenschaften doch per Code von alleine wieder gesetzt - oder meinst du etas anderes?

 

Hallo Aloys78, Hallo Beverly,
vielen Dank erst einmal für euer kümmern.
Zur Erklärung : ich bin dabei ein Projekt umzusetzen. Zur Zeit ist das aber nur ein Vorschlag. Nach dem Motto - viele Köche verderben den Brei - haben andere noch die Möglichkeit Einfluss auf Gestaltung und Inhalt zu nehmen.
Das hat mich auf die Idee gebracht meine Text-Boxen, Bezeichnungs-Felder, etc. per Code zu initialisieren um Farbe, Größe, Ort, usw. einzustellen.
So weit, so gut.
Um in der endgültigen Fassung diese Routinen nicht bei jedem Start durchlaufen lassen zu müssen, habe ich mir gedacht, ich könnte diese Einstellungen statisch machen. Da es sich um mehrere hundert Felder handelt, befürchte ich z.B. lange Startzeiten.
Ich suche also eine Funktion, die es mir ermöglicht, per Routine die Einstellungen so in die Eigenschaften einzutragen, als hätte ich das per Hand gemacht, und sie mir so bei nächsten Start wieder zur Verfügung zu stehen.
Ich hoffe, ich habe das einigermaßen verständlich gemacht.

In der Hoffnung auf Eure Hilfe erwarte ich gerne weitere Antworten.

Gruß
VBAEisbär

 

Hi,

ich verstehe immer noch nicht, wo das Problem ist: wenn du im vorläufigen Zustand die Eigenschaften per Code nach deinen Wünschen anpasst, läuft das Programm eben etwas langsamer, aber ich denke nicht, dass (wenn es fertiggestellt ist und du die Einstellungen nach deinen Wünschen getätigt hast) irgend jemand dann die Einstellungen/Eigenschaften ändern wird - wozu sollte das gut sein?

Die Eigenschaften kannst du beim Start nur per Code anpassen (wenn du es denn machen willst) - andere Fixierungsmöglichkeiten gibt es m.W. nicht.

 

Hallo,

Schau dir mal die Designer-Eigenschaft an.
Damit geht das .
Hier mal ein Beispiel.
Der Einfachheit halber die Einstellungen von einer Zelle übernommen.
Geht natürlich auch hart codiert.

 

Hi ransi,

ob man nun die Einstellungen aus einer Zelle nimmt oder sie im Code fest definiert (oder wir in deinem Beispiel), sollte doch keinen Unterschied machen, wenn es darum geht, dass sie NICHT per VBA zugewiesen sondern (so habe ich das verstanden) irgendwie fix verankert werden sollen. Wenn ich das richtig sehe, müssen sie in deinem Beispiel doch auch per VBA immer wieder neu, z.B. beim Start des UserForms oder irgend einem anderen auslösenden Ereginis, eingerichtet werden und sie sind nicht permanent - oder sehe ich das falsch?

 

Hallo Karin,

Die Änderungen sind permanent.
Das ist ja das Gute.
Wenn du z.B. viele Seuerelemente in deiner Userform hast ist es äußerst lästig während der Entwicklungszeit (Layout) immer wieder die Eigenschaften von Hand zu ändern.
Das kann du mit der Designer-Eigenschaft per Code viel eleganter und bequemerr erledigen.
Wenn dann das Layout steht, kannst du den Code löschen. Die Änderungen sind ja dauerhaft.

ransi

 

Hi ransi,

dann muss dieser Code nicht bei jedem Start des UserForms ausgeführt werden sondern nur einmalig? Die Änderung gilt nur für die beim Ausführen angesprochene Arbeitsmappe und kann für jedes vorhandene VBA-Objekt genutzt werden - im Prinzip also so etwas Ähnliches wie beim Ändern der Farbpalette? Das wäre dann ja wirklich ein komfortables Werkzeug. Oder funktioniert das nur mit einem UserForm?


[Edit]: letzte Frage ergänzt.

 

Hallo Ransi,
Wow - Das ist ja noch besser als ich erwartet habe.
Ich hab mal ein bisschen rumexperimentiert - der reinste Wahnsinn.
Damit kann man z.B. Mischfarben nicht nur kryptisch auswählen, sondern sie auch optisch sofort sehen.
Stellt man die Formatierungen in eine eigene Excel Datei stehen diese Einstellungen außerhalb der Programmumgebung trotzdem dauerhaft zur Verfügung.
Benutzer abhängige Einstellungen sind somit auch kein Problem mehr - jeder bekommt seinen eigenen "Style".
Mit ein bisschen nachdenken fallen einem bestimmt noch mehr Möglichkeiten ein.
Wenn es dir nichts ausmacht, kannst du mir evtl. noch eine Frage beantworten :
Ich kann ja so alle Elemente der UserForm ansprechen. Geht das mit der UserForm selbst auch ?

Fazit : super Beitrag - alle drei Daumen hoch
Vielen, vielen Dank

Gruß
VBAEisbär

 

Hi,

myDesigner benutzt doch das Objekt UserForm, du befindest dich also bereits auf der richtigen Ebene - für Farbe z.B. einfach ergänzen:

Code:

 

Hallo ransi,

den Namen des Controls zu ändern geht leider leider nicht,
oder gibt es da vielleicht einen Trick?

Wäre interessant z.B. bei vielen Textboxen. Mann müsste nicht jede
manuell ändern.

 

HAllo Phelan,

Warum soll das nicht funktionieren ?

Dim myUserform As Object
Dim myControl As Object
Dim intCounter As Integer
Set myUserform = ThisWorkbook.VBProject.VBComponents("Userform1").Designer
For Each myControl In myUserform.Controls
If TypeOf myControl Is Msforms.TextBox Then
intCounter = intCounter + 1
myControl.Name = "Ein_neuer_Name" & intCounter
End If
Next


Klappt einwandfrei.

:-)

ransi

 

Das erleichtert einem die Arbeit.

Ich hatte deinem ersten Code rot-markiertes hinzugefügt.
Da läuft er in einen Fehler, weißt du warum?

Code:

Fehlermeldung:

Die Referenz passt doch?!

 

HAllo Phelan,

Keine Ahnung was da klemmt.
Mein Beispielcode in meiner beispieldatei läuft ohne Fehlermeldung durch.
Bei allen Textboxen wird der Name geändert.

ransi