Private Sub CommandButton1_Click()
'Hier schreibe ich einfach etwas in die Zelle
ZN = 2
Do While Trim(CStr(Tabelle1.Cells(ZN, 1).Value)) ""
ZN = ZN + 1
Loop
Tabelle1.Cells(ZN, 1) = "Button gedrückt"
letztezeile = Worksheets("Tabelle1").Cells(400, 1).End(xlUp).Row 'Ab Excel 2007
With ListBox1
.ColumnCount = 1
.ColumnWidths = "2cm"
.ColumnHeads = True
ListBox1.RowSource = "Tabelle1!A2:b" & letztezeile
End With
TextBox1 = ""
TextBox1.SetFocus
End Sub
------------------------------------------------------------------------------------------------ _
------
Private Sub TextBox1_Change()
'Dieser Wert ist der Wert wo mir der Barcodscanner einscannt
If TextBox1 = "4006770110112" Then
Call CommandButton1_Click
End If
End Sub
------------------------------------------------------------------------------------------------------
'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub