Hallo Thomas,
Gruss Beni
Private Sub CommandButton1_Click()
Dim lz, lr, s, z As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row
For z = 2 To lz
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
For tb = 1 To 4
For s = 2 To 5
If Controls("TextBox" & CStr(tb)) <> "" Then
Wert = Controls("TextBox" & CStr(tb))
If Cells(z, s) = CInt(Controls("TextBox" & CStr(tb))) Then
Cells(lr, 1) = Cells(z, 1)
ls = Cells(lr, 256).End(xlToLeft).Column + 1
Cells(lr, ls) = Cells(z, s)
End If
End If
Next s
Next tb
Next z
End Sub