Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Füllen verschiedener Textfelder durch eine UserFor

Füllen verschiedener Textfelder durch eine UserFor
27.06.2014 13:16:13
Knoof
Hallo,
Ich bastel zurzeit an einer UserForm welche die möglichkeit bietet per UserForm2 ein Datum in textfelder einzufügen.
Hier ein paar Bilder:
Durch klicken des "+" öffnet sich die andere UserForm in der man das Datum auswählen kann.
Userbild
Userbild
Durch betätigen des Buttons "Datum hinzufügen" wird das Datum in das erste Textfeld eingefügt. Wenn ich allerdings das zweite "+" drücke, öffnet sich zwar die gleiche UserForm, allerdings wird ebenfalls das erste Textfeld gefüllt, es soll jedoch das Textfeld unmittelbar neben dem benutzten "+" gefüllt werden.
Wie schaffe ich das ohne für jedes "+" ne eigene UserForm anlegen zu müssen, aber trotzdem nicht immer nur textfeld1 gefüllt wird.
Faiz: jedes "+" soll die gleiche UserForm benutzen (Datumsauswahl) jedoch nich immer das gleiche Textfeld füllen.
Quellcode des "datum hinzufügen" Buttons :
Private Sub cmddatum_Click()
' Eintragen Datum in Tabelle
UserForm1.txtvon1 = _
CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
Unload Me                                   ' Userform schließen
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Füllen verschiedener Textfelder durch eine UserFor
27.06.2014 14:11:56
fcs
Hallo Knoof,
passe den Code für die Schltfläche im Userform 2 wie folgt an:
Private Sub cmddatum_Click()
' Eintragen Datum in Tabelle
UserForm1.Controls(UserForm2.Tag).Value = _
CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
Unload Me                                   ' Userform schließen
End Sub
Den Code für die +-Schaltflächen im Userfom1 passt du wie folgt an, wobei du den Namen der Textbox jeweils anpassen muss, der in die Tag-Eigenschaft des Userform2 geschrieben wird.
Private Sub CommandButton1_Click() 'Schaltfläche +-Zeichen
With UserForm2
.Tag = "txtvon1" 'Name der Textbox in die das Datum geschrieben werden soll
.Show
End With
End Sub
Gruß
Franz

Anzeige
AW: Füllen verschiedener Textfelder durch eine UserFor
27.06.2014 14:17:56
Knoof
Wow klappt! Vielen Dank!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige