ist es möglich das sich ein Makro automatisch anpasst wenn ich z.B Zeilen später lösche oder einfüge?
Danke für jeden Tip!
Gruß Kai
Private Sub Sortiere()
' GrpA Makro
' Makro am 02.06.2005 von Kadmo aufgezeichnet
Range("CA33:CF37").Select
Selection.Sort Key1:=Range("CB33"), Order1:=xlDescending, Key2:=Range( _
"CF33"), Order2:=xlDescending, Key3:=Range("CC33"), Order3:=xlDescending _
, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("CH33:CM37").Select
Selection.Sort Key1:=Range("CI33"), Order1:=xlDescending, Key2:=Range( _
"CM33"), Order2:=xlDescending, Key3:=Range("CJ33"), Order3:=xlDescending _
, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("CA41:CF45").Select
Selection.Sort Key1:=Range("CB41"), Order1:=xlDescending, Key2:=Range( _
"CF41"), Order2:=xlDescending, Key3:=Range("CC41"), Order3:=xlDescending _
, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("CH41:CM45").Select
Selection.Sort Key1:=Range("CI41"), Order1:=xlDescending, Key2:=Range( _
"CM41"), Order2:=xlDescending, Key3:=Range("CJ41"), Order3:=xlDescending _
, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("AB88").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Fragen, ob man in Spalte AZ ist
If Target.Column = 52 And Target.Row > 31 And Target.Row < 79 Then
'Sortierung aufrufen
Sortiere
'Nächste Zelle in AW aktivieren
Cells(Target.Row, Target.Column).Offset(1, -3).Select
End If
End Sub