Private Sub UserForm_Initialize()

'Pm
TextBoxPm.Value = ActiveSheet.Name
TextBoxPm.Enabled = False

'WT

'Position
Dim i3 As Integer

With ComboBox_Position
    For i3 = 1 To 14
    .AddItem CInt(i3)
    Next
End With

'Aktion

'0% Yield

'Lauf


'Name
TextBox_Name.Value = Application.UserName
TextBox_Name.Enabled = False

'Datum

TextBox_Datum.Value = Now
TextBox_Datum.Enabled = False
End Sub



Private Sub CommandButton_Eingabe_Click()

'Eingabe untereinander

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

If UserForm.TextBox_WT.Value = "" And UserForm.TextBoxBemerkung.Value = "Administrator" Then Sheets("Einstellungen").Visible = True: GoTo ENDE

'Pm
Cells(last, 1).Value = UserForm.TextBoxPm.Value

'WT
Cells(last, 2).Value = Format(UserForm.TextBox_WT, "000")


'Position
Cells(last, 3).Value = Format(UserForm.ComboBox_Position, "0000")


'Aktion
If CheckBox7.Value = True Then Cells(last, 4).Value = "Aus Anlage entnommen"
If CheckBox8.Value = True Then Cells(last, 4).Value = "In Anlage eingesetzt"
If CheckBox5.Value = True Then Cells(last, 4).Value = "Austausch"
If CheckBox6.Value = True Then Cells(last, 4).Value = "Reinigung"
If CheckBox5.Value = True And CheckBox6.Value = True Then
Cells(last, 4).Value = "Austausch und Reinigung"
End If


'O% Yield
If CheckBox1.Value = True Then Cells(last, 5).Value = "Ja"
If CheckBox2.Value = True Then Cells(last, 5).Value = "Nein"
If Cells(last, 5).Value = "Ja" Then Cells(last, 5).Interior.Color = vbRed

'Lauf
If CheckBox3.Value = True Then Cells(last, 6).Value = "Links"
If CheckBox4.Value = True Then Cells(last, 6).Value = "Rechts"


'Bemerkung
Cells(last, 7).Value = TextBoxBemerkung.Value


'Name
Cells(last, 8).Value = TextBox_Name.Value


'Datum
Cells(last, 9).Value = TextBox_Datum.Value


'Nach Eingabe Click UserForm schließen
ENDE:
Unload UserForm
ThisWorkbook.Save

Guten Tag alle zusammen,

ich habe eine Userform erstellt womit ich eine Datenbank erzeuge. Die Userform dient als Eingabemaske und übernimmt die Daten chronologisch in eine Tabelle in die letzte freie Zeile. Nun möchte ich eine beliebige Zeile in der Tabelle auswählen, diese Daten aus dieser Zeile (mit verschiedener Informantion aus 9 Spalten, wie zb Datum, Name usw..) sollen zurück in meine UserForm (Eingabemaske) geladen werden, damit ich diese nun überarbeiten kann und die "korrigierte" Daten wieder in die selbe Zeile überschreiben kann.

Ich habe meinen Code mal für die UserForm und die Eingabetaste aufgeführt