dieses Problem habe ich:
der Zellenbereich A2:M26 (Überschriften in Zeile 1) soll nach Spalte A abfallend sortiert werden. Aber automatisch bei jeder Neuberechnung.
Gibt es da was für?
Martin
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh Is Nothing Then Exit Sub
If Sh.Name = "Tabelle1" Then
' Hier könntest Du noch testen, ob die Änderungen den Bereich betreffen!
ActiveSheet.Range("A1:M26").Sort Key1:=ActiveSheet.Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh Is Nothing Then Exit Sub
If Sh.Name = "Calc Pareto" Then
' Hier könntest Du noch testen, ob die Änderungen den Bereich betreffen!
ActiveSheet.Range("A1:M26").Sort Key1:=ActiveSheet.Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub
Private Sub Worksheet_Calculate()
ActiveSheet.Range("A1:M26").Sort Key1:=ActiveSheet.Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Private Sub Worksheet_Calculate()
Dim ws As Worksheet
' Zur Sicherheit Tabellennamen prüfen
If ActiveSheet.Name <> "Calc Pareto" Then Exit Sub
Set ws = Worksheet("Calc Pareto")
ws.Range("A1:M26").Sort Key1:=ws.Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh Is Nothing Then Exit Sub
If Sh.Name = "Calc Pareto" Then
' Hier könntest Du noch testen, ob die Änderungen den Bereich betreffen!
Sh.Range("A1:M26").Sort Key1:=Sh.Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub