Hallo,
ich 2 Select Case Funktionen, beide sollen Reihen in ein neues Tab.blatt sortieren. Nätürlich ohne das Lücken sind, also immer in die nächste leere Zeile, egal ob die zu kopierenden Zeilen hintereinander sond oder auch Lücken aufweisen. Verstehe nicht, warum das bei der ersten Select Case Funktion klappt, aber bei der anderen nicht ?
Hier klappts:
Dim i As Long, n As Long, a As Long
Cells.Interior.ColorIndex = xlNone
n = 1
For i = 4 To 103
Select Case Sheets("UG").Cells(i, 7).Value
Case Is = Date
Rows(i).Font.ColorIndex = 3
Rows(i).Font.Size = 12
Rows(i).Font.Bold = True

Do
n = n + 1
Loop Until IsEmpty(Sheets("Dringende Termine").Cells(n, 7))

Rows(i).Copy Destination:=Sheets("Dringende Termine").Cells(n, 1)
Case ....
Aber hier nicht ?
Cells.Interior.ColorIndex = xlNone
n = 1
For a = 4 To 103
Select Case Sheets("UG").Cells(a, 9).Value
Case "stetig"
Do
n = n + 1
Loop Until IsEmpty(Sheets("Stetige Aufgaben").Cells(n, 7))

Rows(a).Copy Destination:=Sheets("Stetige Aufgaben").Cells(n, 1)
Case ...
;-)