Office: UserForm Parameter übergeben

Hi Leute!

Ich programmiere eigentlich eher in C# und mit Visual Studio.NET. Deswegen bin ich ein wenig verwirrt. *confused.gif*
Ich habe mir im VBA Editor von Excel eine UserForm gebaut. Dieser UserForm möchte ich Parameter übergeben beim Aufruf. Wo kann ich das definieren und wie sieht der Funktionsaufruf dann auf.
Ich dachte an sowas:

Sub UserForm1_Initialize(labelText as String)

Label1.Caption = labelText

End sub


Wo kann ich denn solche Übergabeparameter definieren, oder geht das gar nicht?
Vielen Dank
joule

:)

 

Hallo joule,

es kommt jetzt darauf an, ob Du dem Label a) einen fixen Wert zuweisen willst oder diesen b) immer wieder neu einlesen willst.

zu a) siehe angehängte Grafik

zu b) das klappt bspw. mit diesem Code ...

Private Sub UserForm_Activate()
Label1.Caption = Sheets("Tabelle1").Range("A1").Value
End Sub

Ich hoffe, dass es Dir weiterhilft. Falls nicht ..... einfach noch mal fragen.

cu
myfake

 

Nicht ganz das was ich meinte, so könnte ich mir allerdings eine Lösung hinbeschummeln so zu sagen.
Ich will eine UserForm haben und je nach dem welchen Button man anklickt soll ein anderer Text in der Form stehen. Nun möchte ich nicht für jeden Button eine neue UserForm mit einem statischen Text entwerfen, sondern ich möchte beim aufrufen der UserForm den String übergeben, der im Label dann angezeigt werden soll.
Dies würde ja auch Speicherplatz sparen.

Danke auf jeden Fall für die super schnelle Antwort!
joule

 

Hallo joule,

o.k., das heißt, dass Du mehrere Buttons auf Deinem Sheet hast und je nach dem, welcher Button angeklickt wird, soll die Beschriftung angepaßt werden. Richtig?

Falls ja, hier einmal für 3 Buttons:
Code:

Eines noch ..... binde ein normales Modul ein und definiere dort (ganz oben unter Option Explicit [wenn so eingestellt]) die Globale Variable "Public strBeschriftung As String".

So kannst Du eine Userform verwenden und füllst sie mit Beschriftungen in Abhängigkeit vom Befehlsbutton.

cu
myfake

 

Super, danke, das war genau das was ich gesucht habe! *Smilie

Bis zum nächsten Mal

Gruß joule