Office: Ubertragen UserForm in verschidene UserForm

Hallo, Ich brauche wieder Hilfe

und zwar geht um dieser Code in UserForm

PHP:

Private Sub CMD_Übernehmen_Click()
    ' Eintragen Datum in UserForm
        ?????.Datum1 = _
        CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
    Unload Me                                    
End Sub


das Soll in Aktuelle geoffnete Userform Übertragen weil ich benutze Mehrere Userforms mit dieser UserForm
z.B neu Eintrag, Ändern,Datum Ändern

Danke Vorraus!

 

Hallo server,

wenn die UserForm offen ist, in die die Daten übertragen werden sollen, kannst Du das Steuerelement
direkt über die Hierarchie ansprechen, z.N. UserForm_Ziel.Textbox1.Text = ... (UserForm_Ziel ist dann
der Name Deiner UserForm und Textbox1 der Name des Steuerelements, hier eine Textbox).

Gruß

 

nein es Geht nicht
Es Funktioniert nur mit 1 UserForm z.B "Ändere.Datum1 = _ " Da Funktionert Dann nur bei UserForm Ändern
wenn ich Will Ubertragen in Z.b "Neu Formular " Dann geht nicht mehr


es ist 1 UserFom mit Dieser 3 ComboBox ud mehrere UserForm wochin Das ubertragen Soll In TextBox Datum1, nach Geoffnete (gebrauchte) UserForm

 

Hallo,

sorry, dann kann ich das leider nicht nachvollziehen, was Du möchtest. Du müsstest Deine Angaben vervollständigen oder besser eine Beispieldatei hochladen.

Gruß

 

Moinsens!

Ich würde empfehlen, die Namensgebung Deiner Formulare (und auch aller Steuerelemente) zu überdenken. In erster Linie würde ich 2 Punkte vermeiden:
- keine Leerzeichen (durch "_" ersetzen)
- keine Sonderzeichen wie z.B. Umlaute (z.B. "Ä" durch "Ae" ersetzen)

Die Namensgebung der Elemente ist eh nur "intern". Was dem Anwender angezeigt wird. ist über .Caption, .Text o.ä. Eigenschaften definiert.

Gruß, Michael

 

hier Beispiel wie Das Ausehen soll



Könnt mir Beispiel Code geben!

von Obere UserForm (DAtum )Code ist

PHP:

Private Sub CMD_Übernehmen_Click()  'Übernehmen Button
     Eintragen Datum in UserForm 
        ?????.Datum1 = _ 
        CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3) 
    Unload Me                                     
End Sub 


Die TextBox in beides UserForm (NeueFormular, Bearbeiten) wo das Übernemen Soll = "Datum1"

 

Naja wenn Kein Antwort da ist dann hab Ich so gelöst,ich wies nicht ob das Richtig ist aber es funktioniert!

PHP:

Private Sub CMD_Übernehmen_Click()
    ' Eintragen Datum in Tabelle
        NeueFormular.Datum1 = _
        CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
        Bearbeiten.Datum1 = _
        CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
        Limit.Datum1 = _
        CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
    Unload Me                                      
End Sub