Moinmoin,

ich benötige wieder mal die Hilfe von all den Leuen die mit VBA besser klar kommen als ich.

Ich habe mich inzwischen wieder etwas reingefuchst, aber leider per Suchfunktion keine Lösung gefunden. Ich möchte gerne einen Veranstaltungskalender erstellen. Sprich per Userform die Datensätze richtig einspeisen und auch per Userform wieder auswerfen lassen. Ich bin inzwischen soweit, dass ich die Textbox in eine spezifische Zelle auswerfen kann, doch schaffe ich es nicht es auf ein, je nach Auswahl spezifisches Blatt, in eine dynamische Tabelle zu integrieren. Ich habe den Quellcode einmal angehängt und hoffe hier auf eure Hilfe.

PS: nicht nur die Blätter sind variierent auch die Tabelle ist abhängig von einer Combobox auswahl.

Bei Fragen bitte einfach melden und herzlichen Dank für eure Hilfe

Lieben Gruß
Julian


Private Sub ComboBox3_Change()

End Sub

Private Sub CommandButton2_Click()
Dim zelle As Long
With Worksheets("Januar")
zelle = .Cells(Rows.Count, 20).End(xlUp).Row + 1
.Cells(zelle, 1) = TextBox2
Me.Hide
End With
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Januar"
ComboBox1.AddItem "Februar"
ComboBox1.AddItem "März"
ComboBox1.AddItem "April"
ComboBox1.AddItem "Mai"
ComboBox1.AddItem "Juni"
ComboBox1.AddItem "Juli"
ComboBox1.AddItem "August"
ComboBox1.AddItem "September"
ComboBox1.AddItem "Oktober"
ComboBox1.AddItem "November"
ComboBox1.AddItem "Dezember"
ComboBox2.AddItem "1."
ComboBox2.AddItem "2."
ComboBox2.AddItem "3."
ComboBox2.AddItem "4."
ComboBox2.AddItem "5."
ComboBox2.AddItem "6."
ComboBox2.AddItem "7."
ComboBox2.AddItem "8."
ComboBox2.AddItem "9."
ComboBox2.AddItem "10."
ComboBox2.AddItem "11."
ComboBox2.AddItem "12."
ComboBox2.AddItem "13."
ComboBox2.AddItem "14."
ComboBox2.AddItem "15."
ComboBox2.AddItem "16."
ComboBox2.AddItem "17."
ComboBox2.AddItem "18."
ComboBox2.AddItem "19."
ComboBox2.AddItem "20."
ComboBox2.AddItem "21."
ComboBox2.AddItem "22."
ComboBox2.AddItem "23."
ComboBox2.AddItem "24."
ComboBox2.AddItem "25."
ComboBox2.AddItem "26."
ComboBox2.AddItem "27."
ComboBox2.AddItem "28."
ComboBox2.AddItem "29."
ComboBox2.AddItem "30."
ComboBox2.AddItem "31."
ComboBox3.AddItem "Glückselig"
ComboBox3.AddItem "Gudlak"

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub TextBox4_Change()
TextBox7_Change
End Sub

Private Sub TextBox5_Change()
TextBox7_Change
End Sub

Private Sub TextBox7_Change()

TextBox7.Text = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text)

End Sub

Private Sub TextBox6_Change()
TextBox7_Change
End Sub


Private Sub CommandButton1_Click()
Me.Hide
End Sub