AW: Makro ausführen, wenn anderes Blatt aktiviert wird
07.05.2008 15:11:57
Wolfgang
Hallo Andi,
So sieht mein Makro dann aus:
Private Sub Worksheet_Activate()
Sub Piepser_automatisch_sortieren()
' Piepser_automatisch_sortieren Makro
' Makro am 07.05.2008 von Wolfgang Rinke aufgezeichnet
Sheets("Piepser").Select
Range("B3:D71").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 3
Range("B3").Select
Sheets("Alarmierungsliste").Select
End Sub
End Sub
Wäre super, wenn du mir helfen könntest.
Gruß Wolfgang