Verketten von Textboxen fkt. nicht

'Füge die Benutzer in die Combobox 1 (aus Tabelle Benutzer Spalte B)  
'Füge die Artikel in die Combobox 2  (aus Tabelle Artikel Spalte B)  
'Füge die Lieferanten in die Combobox 3 (aus Tabelle Lieferant Spalte B)  

Dim yRg As Range

Dim zRg As Range

Dim xRg As Range







Private Sub UserForm_Initialize()
    Set yRg = Worksheets("Benutzer").Range("B1:C3")  
    Me.Box1.List = yRg.Columns(1).Value
    
Set zRg = Worksheets("Artikel").Range("B1:C72")  
    Me.Box2.List = zRg.Columns(1).Value

Set xRg = Worksheets("Lieferant").Range("B1:C9")  
    Me.Box3.List = xRg.Columns(1).Value

'Füge in die Textbox 3 das Datum ein und entferne in der Textbox 4 die Datumspunkte  

UserFormDruck.TextBox3.Value = Date
UserFormDruck.TextBox4.Value = Date
TextBox4 = Format(TextBox4, "DDMMYY")  

End Sub


'Jeder Benutzer hat eine Benutzernummer,diese wird in Textbox 2 ausgegeben (aus Tabelle Benutzer Spalte C)  
'Jeder Artikel hat eine Artikelnummer,diese wird in Textbox 6 ausgegeben (aus Tabelle Artikel Spalte C)  
'Jeder Lieferant hat eine Lieferantennummernummer,diese wird in Textbox 8 ausgegeben (aus Tabelle Lieferant Spalte C)  
     
    Private Sub Box1_Change()
     On Error Resume Next
     Dim result As Variant
     result = Application.WorksheetFunction.VLookup(Me.Box1.Value, yRg, 2, False)
     Me.TextBox2.Text = result
End Sub
    Private Sub Box2_Change()
     On Error Resume Next
     Dim result As Variant
     result = Application.WorksheetFunction.VLookup(Me.Box2.Value, zRg, 2, False)
     Me.TextBox6.Text = result
End Sub
    Private Sub Box3_Change()
     On Error Resume Next
     Dim result As Variant
     result = Application.WorksheetFunction.VLookup(Me.Box3.Value, xRg, 2, False)
     Me.TextBox8.Text = result
End Sub

 'Ausdrucken mit der Anzahl aus Textbox 9  

Private Sub CommandButton1_Click()
 
 Dim Anzahl As Integer
Anzahl = CInt(TextBox9.Value)
 Sheets("Tabelle2").Select  
 Sheets("Tabelle2").PrintOut Copies:=Anzahl  
End Sub

'Vor dem Druck anschauen  

Private Sub CommandButton2_Click()
Me.Hide
Sheets("Tabelle2").Select  
Sheets("Tabelle2").PrintPreview  
End Sub

'Verketten der Textboxen 2,4,6,8  
Private Sub TextBox10_Change()
Dim strNew As String
strNew = Me.TextBox2.Text & Me.TextBox4.Text & Me.TextBox6.Text & Me.TextBox8
End Sub