Einträge Userform in Textbox speichern
18.03.2020 12:02:03
Alex
Also wenn ich das File beende nicht alle Eingaben verloren gehen..
Diesen Code benutze ich aktuell, abschließend werden die Einträge und die Boxen wieder gelöscht.
In diesem Fall wäre es die Kommentar TextBox die in der Userform so lange gespeichert werden sollte bis
der Übertrag ausgeführt wurde.
Private Sub CommandButton150_Click()
Dim ZeileMax As Long
Dim Zeile As Long
With Tabelle7
ZeileMax = .UsedRange.Rows.Count
Zeile = ZeileMax + 1
'Spalte Schicht (Permanent)
.Range("H" & Zeile).Value = Me.ComboBox2.Value
'Spalte Datum (Permanent)
.Range("B" & Zeile).Value = Me.TextBox2.Value
'Spalte Benutzer (Permanent)
.Range("C" & Zeile).Value = Me.TextBox18.Value
'Spalte Anlage (?ndern - TextBox)
.Range("F" & Zeile).Value = Me.TextBox940.Value
'Spalte Kommentar (Eingabefeld)
.Range("R" & Zeile).Value = Me.TextBox883.Value
'Spalte Kommentar (Eingabefeld)
.Range("A" & Zeile).Value = Me.TextBox739.Value
'Feld löschen "Kommentar"
TextBox883 = ""
'Makro ausführen
DieseArbeitsmappe.Speichern
End With
End Sub