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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform eingaben mit dropdown

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread