Hallo Zuasammen
Ich habe zwei Userforms, zu einen frm_Kalender, welche den angeklickten Wert an die ActiceCell der Tabelle übergibt. Funktioniert
Diese frm_Kalender wird geöffnet, sobald in Userform die TextBox9 "betreten" wird. Funktioniert auch.
Wie kann ich aber den Datumswert statt an die Tabelle an die Textbox9 übergeben, um damit dann entsprechend weiter zu arbeiten ?
Code aus UserForm2
Code aus Klassenmodul
Kann mir bitte jemand schreiben, was ich ändern muss damit der ActiveCell Inhalt in der TextBox9 der Userform2 landet und nicht in der Tabelle
Sollten weitere Informationen oder Details nötig sein, dann lasst es mich bitte wissen, bin neu hier im Forum (auch im Umgang mit VBA) und kenne noch nicht so alle nötigen Details, die zur Hilfe nötig sein könnten.
Vielen Dank schon mal,
mfg, Michael
Ich habe zwei Userforms, zu einen frm_Kalender, welche den angeklickten Wert an die ActiceCell der Tabelle übergibt. Funktioniert
Diese frm_Kalender wird geöffnet, sobald in Userform die TextBox9 "betreten" wird. Funktioniert auch.
Wie kann ich aber den Datumswert statt an die Tabelle an die Textbox9 übergeben, um damit dann entsprechend weiter zu arbeiten ?
Code aus UserForm2
VB.NET-Quellcode
- Private Sub TextBox9_Enter()
- frm_Kalender.Show
- End Sub
- Private Sub Label_Click()
- ' Kalenderwoche und Jahr in aktuelle Zelle eintragen
- With UserForm2
- TextBox9.Text = "'" & Format(Label.Tag, "00") & "/" & frm_Kalender.Cbo_Jahr
- Unload frm_Kalender ' UserForm verlassen
- End With
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- UserForm2.TextBox9.Value = ActiveCell.Value
- End Sub
Code aus Klassenmodul
VB.NET-Quellcode
- Private Sub UserForm_Initialize()
- With UserForm2
- TextBox9 = ActiveCell
- End With
- End Sub
- Private Sub Label_Click()
- ' Kalenderwoche und Jahr in aktuelle Zelle eintragen
- With UserForm2
- ActiveCell = "'" & Format(Label.Tag, "00") & "/" & frm_Kalender.Cbo_Jahr
- Unload frm_Kalender ' UserForm verlassen
- End With
- End Sub
Kann mir bitte jemand schreiben, was ich ändern muss damit der ActiveCell Inhalt in der TextBox9 der Userform2 landet und nicht in der Tabelle
Sollten weitere Informationen oder Details nötig sein, dann lasst es mich bitte wissen, bin neu hier im Forum (auch im Umgang mit VBA) und kenne noch nicht so alle nötigen Details, die zur Hilfe nötig sein könnten.
Vielen Dank schon mal,
mfg, Michael