Hallo Zusammen, habe folgendes Problem:
die in einer Userform erfassten Daten sollen in ein Tabellenblatt geschrieben werden.
Nach bestätigen eines Command Buttons "Eintragen" und eines Buttons
"Clear" (Löschen der Inhalte der Userform). Überschreibt bei erneutem Bestätigen des Buttons "Eintragen"
die zuvor gemachte Eintragung.
VBA-Code:
'Daten zurückschreiben
Private Sub CommandButton4_Click()
Set frm = Eingabemaske
Sheets("Akquisedatenbank").Activate
'letzte belegte Zelle in Tabelle finden
Range("A65536").End(xlUp).Offset(1, 1).Select
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .ComboBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value
MsgBox "Eingabe war erfolgreich", , ""
End With
End Sub
Über Hilfe würde ich mich sehr freuen.
Beste Grüße |