AW: Teilbereich sortieren
03.11.2014 06:27:42
fcs
Hallo Heinz,
das Sortieren würde ich an deiner Stelle nicht in das vorhandenen Ereignismakro integrieren sondern in einem separaten Makro bei Bedarf ausführen.
In meinem Makro wird die Tatsache ausgenutzt, dass in Spalte B die Zelle in der Summenzeile zwischen den Datumsblöcken leer bleibt.
Gruß
Franz
Sub Sortieren()
'Sortieren der Zeilen zu einem Datum nach Spalte B und I
Dim wks As Worksheet
Dim Zeile As Long, Zeile1 As Long, Zeile2 As Long, StatusCalc As Long
Set wks = ActiveWorkbook.Worksheets("Gesperrte Ware")
With Application
.EnableEvents = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
With wks
For Zeile = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 2) "" And Zeile1 = 0 Then
Zeile1 = Zeile
Zeile2 = Zeile
ElseIf .Cells(Zeile, 2) "" And Zeile1 > 0 Then
Zeile2 = Zeile
ElseIf .Cells(Zeile, 2) = "" And Zeile1 > 0 Then
If Zeile2 - Zeile1 >= 1 Then
With .Range(.Cells(Zeile1, 2), .Cells(Zeile2, 12))
.Sort Key1:=.Range("A1"), Order1:=xlAscending, _
Key2:=.Range("H1"), Order2:=xlAscending, Header:=xlNo
End With
End If
Zeile1 = 0
Zeile2 = 0
End If
Next
End With
With Application
.EnableEvents = True
.Calculation = StatusCalc
.ScreenUpdating = True
End With
End Sub