VBA Was ist falsch
17.03.2006 14:09:24
Wolf
Private Sub Worksheet_Change(ByVal Target As Range)
' automatisch sortieren bei Eingabe im Bereich F4:F34
Dim Bereich As Range
Set Bereich = Range("C2:C200")
If Not Intersect(Target, Bereich) Is Nothing Then ' Zelle ist im Bereich
Range("A2:D200").Sort Key1:=Range("C2"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
FEHLER:
Fehler beim kompilieren:
End Sub erwartet
Habe eine Liste mit 4 Spalten die sich ständig neu sortieren soll. Die Daten für diese Tabelle kommen von mehreren anderen Tabellen.
Danke