Bei einer Neueingabe wird ein neuer Datensatz in die letzte Zeile geschrieben. Unter anderem wird die Formel
=SUMMEWENN(Frequenzen!$A$2:$A$20718;LaborGM!B1906;Frequenzen!$C$2:$C$20718)
in der Spalte L in die nächste freie Zelle geschrieben.
In diesem Fall wäre also der neue Datensatz in der Zeile 1906
Wenn ich jetzt mit dem unteren Makro sortieren will (Bereich) so wird nicht richtig sortiert. in der Spalte L Zeile 2 wird z. B. dieser Datensatz eingereiht und in L2 steht dann die gleiche Formel, welche in der Zeile 1906 gestanden ist, also:
=SUMMEWENN(Frequenzen!$A$2:$A$20718;LaborGM!B1906;Frequenzen!$C$2:$C$20718)
und nicht
=SUMMEWENN(Frequenzen!$A$2:$A$20718;LaborGM!B2;Frequenzen!$C$2:$C$20718)
wie es eigentlich sein sollte.
Warum ist dies bitte so und wo könnte hier mein Denkfehler sein?
Sub LABGM_Sort()
Dim Bereich As Range
Dim Bereich1 As Range
Dim wks As Worksheet
Set wks = Workbooks("Vertragspartner_SVA.xls").Worksheets("LaborGM")
Set Bereich = wks.Range("A2:P" & ActiveSheet.Range("A65536").End(xlUp).Row)
Set Bereich1 = wks.Range("C2:C" & ActiveSheet.Range("A65536").End(xlUp).Row)
Bereich1.NumberFormat = "@"
Bereich.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("K2") _
, Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End Sub
Danke
Josef