Hallo Berpre,
auch wenn ich nicht Helmut bin möchte ich Dir trotzdem mal eine Lösung präsentieren.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Kopieren()
Dim lngRow As Long
Dim lngFirstRow As Long
For lngRow = 2 To Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
Select Case Sheets("Daten").Cells(lngRow, 1)
Case 1 To 199999
lngFirstRow = Sheets("Daten_Gruppe1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheets("Daten").Rows(lngRow).Copy _
Sheets("Daten_Gruppe1").Cells(lngFirstRow, 1)
Case 200000 To 399999
lngFirstRow = Sheets("Daten_Gruppe2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheets("Daten").Rows(lngRow).Copy _
Sheets("Daten_Gruppe2").Cells(lngFirstRow, 1)
End Select
Next
End SubMit dem Makro werden die Daten entsprechend Deinen Vorgaben in die Blätter aufgeteilt. Bei weiteren Kriterien, einfach die" Anweisung Case" kopieren, unter der letzen "Case-Anweisung" einfügen und anpassen.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]