|
Ich möchte alle Kunden zwischen den min_Wert und Max_wert ausgeben.
Leider liefert er mir sehr viele Kunden raus.
Wenn ich 1-5 eintippe. Tauchen auch die Nummern 10,11,12 usw auf
Falls der Code zu unsauber ist, dann einfach bescheid geben.
x = 3, weil die Nr dort anfangen.
Sub Kunden_Filter()
Dim x As Long
Dim y As Long
y = 3
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For x = 3 To lastrow
If Tabelle1.Cells(x, 1) < UserFormSearch.max_nummer.Text And Tabelle1.Cells(x, 1) > UserFormSearch.min_nummer.Text Then
Rows(x).Copy Destination:=Tabelle2.Rows(y)
y = y + 1
Else
End If
Next x
End Sub
|