Userform eingaben mit dropdown

Hallo liebe Excel User,
Ich arbeite gerade an einer sehr Umfangreichen Jahres und Monatsauswertung.
Mit dieser bin ich soweit aber schon fast durch, und jetzt kommen wir zu einem Punkt bei dem ich nichtmehr weiter komme, da ich sehr wenig VBA Kenntnisse habe.
Ich habe für jeden Monat eine Tabelle auf einem eigenen Arbeitsblatt. Als Tabelle formatiert und nach dem jeweiligen Monat benannt. Außerdem eine Konsolidierungstabelle, welche mir alle Daten zusammenfasst.
jetzt brauche ich 2 Dinge,
einmal eine Userform, in welcher ich zuerst aus einem Dropdownmenu den Monat auswähle (sprich die passende Tabelle) und dann in der nächsten freien Zeile der jeweiligen Tabelle eingaben vom User einfügt.
Diese wären: "Kunde" "Artikelnr." "Stückzahl" und Lieferdatum".
und als zweites bräuchte ich hinter jeder so entstandenen Zeile einen Button "erledigt" der mir ein Userform öffnet wo die Eingabe "Mitarbeiter" getätigt wird und dann den Mitarbeiternamen in eine spalte der jeweiligen Zeile einträgt und das heutige datum in eine andere Spalte.
am liebsten sollten diese Daten gleich auch aus der Konsolidierungstabelle entfernt werden.
Sehr komplexe aufgaben und für mich als VBA Leihe nicht machbar, leider.
Vielleicht kann mir ja jemand helfen oder mir ein passendes tutorial zeigen?
Mit freundlichen Grüßen
Thorben Zielas

und noch eine kleinigkeit,
ich habe versucht herauszufinden, wie ich eventuel noch eine textbox für die auftragsnummer in die userform1 bekomme,
bin aber kläglich gescheitert :D habe versucht einfach diesen Teil:

With Worksheets(Me.ComboBox1.Value)
loLetzte = .Columns("B:B").Find(what:="*", LookIn:=xlValues, Lookat:=xlWhole,  _
searchdirection:=xlPrevious).Offset(1, 0).Row
.Cells(loLetzte, 2) = Me.TextBox1
.Cells(loLetzte, 5) = Me.TextBox2
.Cells(loLetzte, 4) = CLng(Me.TextBox3)
.Cells(loLetzte, 8) = CDate(Me.TextBox4)
Application.EnableEvents = False
.Cells(loLetzte, 11) = "nein"
Application.EnableEvents = True
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.ComboBox1.ListIndex = -1
End With
End Sub

zu ändern in:

With Worksheets(Me.ComboBox1.Value)
loLetzte = .Columns("B:B").Find(what:="*", LookIn:=xlValues, Lookat:=xlWhole,  _
searchdirection:=xlPrevious).Offset(1, 0).Row
.Cells(loLetzte, 3) = Me.TextBox1
.Cells(loLetzte, 2) = Me.TextBox2
.Cells(loLetzte, 5) = Me.TextBox3
.Cells(loLetzte, 4) = CLng(Me.TextBox4)
.Cells(loLetzte, 8) = CDate(Me.TextBox5)
Application.EnableEvents = False
.Cells(loLetzte, 11) = "nein"
Application.EnableEvents = True
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.ComboBox1.ListIndex = -1
End With
End Sub

zu ändern.
Da kam allerdings dann ein kompilierungsfehler :(
LG

Forumthread: Userform eingaben mit dropdown

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Userform eingaben mit dropdown

Forumthread: Userform eingaben mit dropdown

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread