Office: Me.Controls in Userform

Guten Morgen zusammen,

folgenden Code benutze ich, um die Schriftgröße anzupassen.
Allerdings, wenn ich diesen jetzt in ein Modul setzte klappt er logischerweise nicht.
Ich habe "Me" schon versucht mit Userform1.Controls zu ersetzen, allerdings klappt das auch nicht.
Code:

Ist es eigentlich möglich, das die Schleife nur bis zu einer bestimmten Textbox läuft?
Verusucht habe ich
Code:

klappt allerdings auch nicht, da "Me.Controls"

:)

 

Hallo,

der Code gehört ins Userform und nicht in ein Modul.

Die Userform muss geladen sein, erst dann kannst du Code ausführen, der die Userform betrifft. Und das ist aus einem Modul raus, eben nicht immer gegeben.
Oder lädst du vorher die Userform, bevor du den code ausführst ? Na siehst du.

 

Stimmt das macht Sinn.

Hätte es nur gerne gehabt, wenn man die Schaltfläche in der Tabelle klickt,das die Tetxboxen schon angepasst sind...

 

LMGTFY
Erster Treffer...

1. Dann stell doch die Schriftgröße schon auf der Userform ein
2. Das geht doch so schnell, das merkst du gar nicht.

 

Hi,

wenn der Code zum Anpassen der Schriftgröße in ein Standardmodul soll, dann kann die Prozedur aber nicht "Sub UserForm1_Initialize()" heißen...

So jedenfalls funktioniert es:

Code:

 

Hallo,

Me kann nur innerhalb einer Klasse verwendet werden und verweist auf die Objektinstanz, in der es verwendet wird. Daher kann Me in einem allgemeinen Modul nicht verwendet werden.
Innerhalb des (z. B.) Userform-Codes verweist Me also auf die Userform selbst - und macht es damit möglich, die Userform eindeutig anzusprechen, unabhängig davon, wie diese tatsächlich heißt.

Die erste Frage wäre nun: Warum sollte man nun den objekteigenen Code woanders hinterlegen als in dem Klassenmodul?

Unabhängig vom Ergebnis der ersten Frage: Was klappt nicht? Wie zeigt sich das "Nichtklappen"? Wie sieht der Code insgesamt aus?
(Bei Karin und mir "klappt" es)

Dann stell die gewünschten Werte gleich in den Eigenschaften ein. Den Weg hatte ich Dir doch schon gezeigt, ist mit wenigen Klicks erledigt (also knapp über 200, wenn Du (ernsthaft??) so viele TextBoxen hast)

Grüße
EarlFred

[da war die Zeit schneller als ich]

 

\@MrBurns ja, aber wie wird die Prozedur gestartet, wenn die Userform schon offen ist?

@Beverly Bei deinem Code bekomme ich einen Laufzeitfehler mit Objekt nicht gefunden.

klappt aber trotzdem nicht

 

Diese Feststellung hilft weder Dir noch den Helfer. Bitte nimm Dir die Zeit und beschreibe Fehler nachvollziehbar.

Wenn Du nicht weiterkommst, erstelle eine kleine Mustermappe.

 

\@Earl

Ich weiß, ich würde aber gerne den nicht "easy way" gehen.

Ich habe Beverly's code etwas geändert.
Code:

In ein Modul gesetzt und in das Modul der Schaltfläche Call Anpassen geschrieben.
Beim ausführen der Prozedur bekomme ich einen Laufzeitfehler mit einer ewig langen Zahl. '-2147024809(80070057)'

 

easy sind beide Wege. Aber wenn Du den Weg nicht selbst findest, gib uns die Möglichkeit zu helfen. Mit Deinen dürftigen Angaben ist das nicht nur schwer bis unmöglich, sondern auch unnötig mühselig.

 

Da hast du recht.
Eigentlich unnötig dafür eine Schleife zu schreiben...

Aber der mit der Beitrag hier nicht komplett für die Katz war, wie ersetze ich Me. in einem Modul?

Also angenommen ich hätte wirklich mal Me.Controls in einem Modul stehen, wie ersetze ich das dann?

Danke an alle die mir geholfen haben, der Sub von dir Beverly funktioniert jetzt auch !*Smilie

 

Userform1.Controls?

 

dann hat der unerklärliche Zufall, der zum plötzlichen Funktionieren der Sub führte, offenbar auch die anderen Fragen beantwortet...

naja, aber schon ganz schön viel *wink.gif*

 

Richtig, eventuell ist mir ein kleiner Fehler unterlaufen.

Danke euch ! *Smilie

@MrBurns wenn ich nur immer wüsste wonach ich suchen muss *biggrin.gif*