Sortierungen - VBA
06.12.2003 17:24:25
Dieter
Hallo!
Ich wollte mit folgendem Makro erreichen, dass in den Tabellenblättern "Kreditoren" und "Abbuchungen" eine Sortierung vorgenommen wird. Das Makro wird aber nur im Tabellenblatt "Abbuchungen" ausgeführt. Im Tabellenblatt "Kreditoren" kommt eine Fehlermeldung. Er greift m. E. nur auf das letzte Tabellenblatt zu. Wo muß ich was ändern, dass auch auf dem ersten Tabellenblatt das Makro ausgeführt wird. In der Datei sind noch weitere 10 Tabellenblätter enthalten, von denen aber nur bestimmte mit dem gleichen Sortierungsschlüssel bearbeitet werden sollen. Danke schonmal an die Antworten von vorhin.
Sub Sort2()
' Sort2 Makro
' Sortierung erfolgt mit der Tastenkombination "Steuerung M"
ActiveSheet.Unprotect password:=""
Sheets("kreditoren").Select
Sheets("abbuchungen").Select
Range("B5:i278").Select
Selection.Sort2 Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect password:=""
End Sub