folgendes Problem eines VBA-Grünschnabels:
1. UserForm1 wird aufgerufen. Verschiedenen Daten müssen ausgefüllt werden.
2. Mit der Kalender-Sub (s.u.) sollen Datum für Projektanfang,-ende und -abschluss gesetzt werden. (Kalender/UserForm2 wird aus UserForm1 aufgerufen).
3. UserForm1 muss dann alle Angaben (incl. Datum) in ein Worksheet schreiben
Mein Plan:
Der Ausruf des Kalender aus der UserForm1 funktioniert bereits und der Kalender wird angezeigt.
Userform1 enthält das Kalender-Steuerelement (Calendar1)
Im Code-Modul der Userform (des Kalenders) steht:
<Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
UserForm2.Hide
End Sub
Im Code-Modul der Tabelle steht:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
If Target.Address = "$C$5" Or Target.Address = "$D$5" Or Target.Address = "$E$5" Then
UserForm2.Show
End If
End Sub
Bei o.g. Sub ist das Resultat:
- Bei Doppelklick auf den Zellen C5, D5 und E5 erscheint das Kalender-Steuerelement.
- Das ausgewählte Datum wird direkt in die aktive Zelle übernommen
- Kalenderfunktion wird wieder geschlossen werden.
Das funktioniert auch. Ich will jedoch -
- keine Zellen im Worksheet doppelklicken, sondern im UserForm1.
- nicht die Ausgabe in einem Feld geschrieben bekommen, sondern in mein UserForm1.
Könnt ihr mir bitte helfen das zu realisieren?
In den letzten Tagen (und vorallem Nächten) habe ich schon sehr viel aus eurem Forum gelernt, die meiste Links besucht und viele Beispiele fleissig ausprobiert. Ein herzlichen Dank an allen!!
Trotzdem bin ich in diesem Fall nicht weiter gekommen und habe im Herbers Forum nichts passendes gefunden. Vielleicht sieht ihr eine Change einen begeisterten Newbie zu helfen.
Dank im voraus
Gruss aus München
Ron
PS: Wenn gewünscht kann ich die Datei schicken.