Hallo zusammen,

gleich vorweg, ich bin leider ein Blutiger Anfänger. Ich habe in letzter Zeit viel mit googlen hinbekommen aber komme jetzt einfach nicht mehr weiter bzw. finde nicht das was ich suche.

Ich speichere mir mit einer Userform Daten in ein Tabellenblatt ab. Leider kommt es mal vor das man sich vertippt und jetzt ist meine Idee da ein Dropdown einzubachen wo die letzte 5 Einträge aus dem Tabellenblatt stehen zur Auswahl. Ist das Dropdown leer sollen auch die Eingabefelder leer sein. Ist aber im Dropdown eine der letzte 5 Einträge ausgewählt sollen die Eingabefelder mit den Werten wieder gefüllt werden.

Folgenden Code habe ich bis jetzt in meiner Userform. Wäre cool wenn mir da jemand helfen könnten.

Option Explicit


Private Sub Abbrechen_Click()


'Fenster schließen

Unload Eingabemaske


End Sub



Private Sub Speichern_Click()
 

Dim last As Integer


'last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Daten_Berechnung").Activate

Range("B12").Value = Eingabemaske.TextBox1.Value
Range("B13").Value = Eingabemaske.TextBox2.Value
Range("B14").Value = Eingabemaske.TextBox3.Value
Range("B15").Value = Eingabemaske.TextBox4.Value
Range("B4").Value = Eingabemaske.TextBox5.Value
Range("C4").Value = Eingabemaske.TextBox6.Value
Range("D4").Value = Eingabemaske.TextBox7.Value
Range("E4").Value = Eingabemaske.TextBox8.Value
Range("F4").Value = Eingabemaske.TextBox9.Value
Range("G4").Value = Eingabemaske.TextBox10.Value
Range("H4").Value = Eingabemaske.TextBox11.Value


Worksheets("Daten").Activate

last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1


ActiveSheet.Cells(last, 1).Value = Eingabemaske.TextBox1.Value
ActiveSheet.Cells(last, 2).Value = Eingabemaske.TextBox2.Value
ActiveSheet.Cells(last, 3).Value = Eingabemaske.TextBox3.Value
ActiveSheet.Cells(last, 4).Value = Eingabemaske.TextBox4.Value
ActiveSheet.Cells(last, 5).Value = Eingabemaske.TextBox5.Value
ActiveSheet.Cells(last, 6).Value = Eingabemaske.TextBox6.Value
ActiveSheet.Cells(last, 7).Value = Eingabemaske.TextBox7.Value
ActiveSheet.Cells(last, 8).Value = Eingabemaske.TextBox8.Value
ActiveSheet.Cells(last, 9).Value = Eingabemaske.TextBox9.Value
ActiveSheet.Cells(last, 10).Value = Eingabemaske.TextBox10.Value
ActiveSheet.Cells(last, 11).Value = Eingabemaske.TextBox11.Value


Unload Eingabemaske

End Sub



Private Sub UserForm_Initialize()

'Werte, die Zubeginn im Eingabefeld stehen

Eingabemaske.TextBox4.Value = Date

End Sub

Sub UserForm()

With Eingabemaske.Dropdown

.AddItem "Test"
.AddItem "Test1"

End With

End Sub

MFG

Der Mueller