AW: Eintrag in UserForm laden und berbeiten
05.05.2022 11:25:47
Mago
Hallo Ralf, danke für deine Antwort
jedoch bin ich nicht vorangekommen. Ich probiere es mal ausführlicher zu erklären.
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:
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
