meine VBA-Kenntnisse belaufen sich auf ungefähr 0. Bräuchte Hilfe bei folgendem Proplem:
In diesem UserForm soll man alle Eingaben/Auswahlen tätigen und dann soll per Commandbutton_Click() auf dem Arbeitsblatt3 in die Zellen A1-D1 einfügen und eine neue Zeile darüber einfügen. (Es sind 3 Comboboxen und 1 Textbox)
Dabei soll das UserForm bestehen bleiben, damit ich dann weitermachen kann mit der Eingabe.
Private Sub UserForm_Initialize()
Me.Combobox1.List = Range("Tabelle2!A1:A50").Value
With Me.Combobox2
.AddItem "Miete"
.AddItem "Lebensmittel"
.AddItem "Zigaretten"
.AddItem "Gehalt"
.AddItem "Guthaben-HP"
.AddItem "Allianz-Hftpflt"
.ListIndex = 0
End With
Dim intI As Integer
With Me.Combobox3
For intI = 1 To 99
.AddItem CStr(intI)
Next
.Text = "16"
End With
End Sub
Habe das bisher:
Private Sub Commandbutton1_Click()
Dim Monat As String
Worksheets("Tabelle3").Rows("3:3").Insert Shift:=xlDown
Monat.Copy Worksheets("Tabelle3").Range("A2")
End Sub