bei einem Button im Userform habe ich den folgenden Code hinterlegt.
Ich möchte allerdings, dass nach der Datenübergabe die Eingabefelder
geleert werden.
Kann mir jemand sagen wie ich das realisiert bekomme?
Vorab vielen lieben Dank.
LG
Sascha
Option Explicit
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