PDA

Vollständige Version anzeigen : Möglichkeit Kalender-Value in verschiedene Userforms einzutragen


zULu1234
27.03.2012, 09:14
Hallo zusammen,

ich habe ein Userform in welchem Textboxen existieren. Wenn ich jetzt in ein Textfeld klicke erscheint ein Kalender(in neuer Userform) wo man ein Datum auswählen kann und dieses Datum soll dann in das Textfeld übernommen werden. Das klappt auch soweit.

Private Sub Calendar1_Click()
Unload Me
UserForm1.TextBox1 = Calendar1.Value
End Sub

Da ich aber verschiedene Userforms mit Textboxen in dieser Arbeitsmappe habe, muss ich momentan viele verschiedene Kalender anlegen (für jedes Userform bzw. jede Textbox ein neues Userform inkl. Kalender), da ich es aufgrund meiner mangelnden VBA-Kenntnisse wahrscheinlich suboptimal gelöst habe.

Nun meine Frage: Kann man das auch etwas "dynamischer" machen, also dass man die Methode Calender1_Click nur einmal programmiert und auch nur einmal den Kalender anlegt und das dann für alle Userforms der Arbeitsmappe funktioniert? Habe an etwas gedacht wie, dass sich irgendwie "gemerkt" wird in welcher Textbox auf welchem Userform man als letztes war und der Value des Kalenders dann dort eingetragen wird. Oder geht sowas nicht?

Liebe Grüße

Hajo_Zi
27.03.2012, 14:52
prüfe doch welche Userform noch auf ist. Ich vermute es sind nicht mehr als 2.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm" onclick="window.open(this.href);return false"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

zULu1234
28.03.2012, 09:13
So einfach kanns sein.

Danke!