VBA Laufzeitfehler 1004
09.04.2019 10:10:20
Markus
vermute, dass mein Fehler hier liegt:
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(x1up).Row + 1
Vielen Dank für eueren Input.
Markus
Der vollständige Text:
Private Sub CommandButton1_Click()
'Eingabe durchf?hren
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(x1up).Row + 1
'Artikel
Cells(last, 1).Value = TextBox_Artikel
'Watt
Cells(last, 2).Value = TextBox_Watt
'Gr?e
Cells(last, 3).Value = TextBox_Gr?e
End Sub
Private Sub UserForm_Initialize()
'Artikel
TextBox_Artikel = "Artikel eingeben"
'Watt
TextBox_Watt = "Watt eingeben"
'Gr?e
TextBox_Gr?e = "Gr?e eingeben"
End Sub
Anzeige