Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Userform in dynamische Tabelle auf dynamisches Blatt |
22.08.2020 10:28:27 |
Julian |
|
|
|
22.08.2020 11:55:21 |
Gast11725 |
|
|
|
22.08.2020 12:23:04 |
Gast19273 |
|
|
|
22.08.2020 12:26:50 |
Mase |
|
|
|
22.08.2020 12:39:44 |
Gast73570 |
|
|
|
22.08.2020 12:55:07 |
Mase |
|
|
|
22.08.2020 12:57:13 |
Gast22561 |
|
|
Von:
Julian |
Datum:
22.08.2020 10:28:27 |
Views:
853 |
Rating:
|
Antwort:
|
Thema:
Userform in dynamische Tabelle auf dynamisches Blatt |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Userform in dynamische Tabelle auf dynamisches Blatt |
22.08.2020 10:28:27 |
Julian |
|
|
|
22.08.2020 11:55:21 |
Gast11725 |
|
|
|
22.08.2020 12:23:04 |
Gast19273 |
|
|
|
22.08.2020 12:26:50 |
Mase |
|
|
|
22.08.2020 12:39:44 |
Gast73570 |
|
|
|
22.08.2020 12:55:07 |
Mase |
|
|
|
22.08.2020 12:57:13 |
Gast22561 |
|
|