Userform nach Datenübermittlung leeren

Private Sub CommandButton_Insert_Click()
On Error GoTo hell
Dim lRow As Long
With Sheet2
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = Date
If IsNumeric(Me.ComboBox_Artikelnummer) Then .Cells(lRow, 2).Value = --Me. _
ComboBox_Artikelnummer Else .Cells(lRow, 2).Value = Me.ComboBox_Artikelnummer
.Cells(lRow, 3).FormulaR1C1 = "=VLOOKUP(RC[-1],Datenbank!C1:C2,2,)"
.Cells(lRow, 3).Value = .Cells(lRow, 3).Value
If Not Me.TextBox_Zugang = "" Then .Cells(lRow, 4).Value = --Me.TextBox_Zugang
If Not Me.TextBox_Abgang = "" Then .Cells(lRow, 5).Value = --Me.TextBox_Abgang
.Cells(lRow, 6).Value = Application.WorksheetFunction.Substitute(Me.TextBox_LagerID, "ß", "- _
")
.Cells(lRow, 7).Value = Me.ComboBox_NamenKurz
.Cells(lRow, 8).Value = Application.WorksheetFunction.VLookup(Me.ComboBox_NamenKurz, Sheet1. _
Range("G1:H1").EntireColumn, 2, False)
Me.TextBox_Abgang.Text = ""
Me.TextBox_Zugang.Text = ""
Me.ComboBox_Artikelnummer.SetFocus
End With
GoTo heaven:
hell:
MsgBox ("Eintrag gescheitert, bitte prüfen und korrigieren")
Sheet2.Cells(lRow, 1).EntireRow.ClearContents
heaven:
End Sub

Private Sub Label_LagerID_Click()
End Sub

Private Sub TextBox_Abgang_Change()
End Sub

Private Sub UserForm_Initialize()
Dim lRow As Long
Dim r As Range
With Sheet1
lRow = .Cells(Rows.Count, 7).End(xlUp).Row
For Each r In .Range(.Cells(3, 7), .Cells(lRow, 7)) 'Namensbox füllen
Me.ComboBox_NamenKurz.AddItem r.Value
Next r
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Each r In .Range(.Cells(3, 1), .Cells(lRow, 1)) 'Artikelnummern füllen
Me.ComboBox_Artikelnummer.AddItem r.Value
Next r
End With
End Sub