Makroprobleme
03.06.2004 10:18:27
Andreas
ich habe ein Makro aufgezeichnet. Es soll Datenreihen einfach nur sortieren(von A => Z)und es hat auch funktioniert. In den ersten 3 Tabellenblättern, allerdings nicht in den letzten 4 Tabellenblättern. Ich schicke den Code mit, aber es dürfte nichts falsch sein. Ist ein Makro und ich habe nur den Tabellennamen ausgetauscht. Bin für Hilfe sehr dankbar!!!
Private Sub Workbook_Open()
'Schützt die ersten vier Zeilen, so dass beim Kopieren der ToDo´s
'diese nicht als erste freie Zeile angesehen werden
Sheets("UG").ScrollArea = "A$5:$IV$65536"
Sheets("TS").ScrollArea = "A$5:$IV$65536"
Sheets("ZK").ScrollArea = "A$1:$IV$65536"
Sheets("Dringende Termine").ScrollArea = "A$2:$IV$65536"
Sheets("Aktuelle Aufgaben").ScrollArea = "A$2:$IV$65536"
Sheets("Stetige Aufgaben").ScrollArea = "A$2:$IV$65536"
Sheets("Erledigte Aufgaben").ScrollArea = "A$2:$IV$65536"
Sheets("Ablage").ScrollArea = "A$2:$IV$65536"
Sheets("Ablage").Select
Sheets("Ablage").Cells(65536, 1).End(xlUp).Offset(1, 0).Select
' Priorität Makro, sortiert nach der Prio und sortiert die wichtigsten Aufgaben nach vorne
' Makro am 05.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Sheets("UG").Select
Sheets("UG").Range("A5:J103").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
' Priorität Makro, sortiert nach der Prio und sortiert die wichtigsten Aufgaben nach vorne
' Makro am 05.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Sheets("TS").Select
Sheets("TS").Range("A5:J103").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
' Priorität Makro, sortiert nach der Prio und sortiert die wichtigsten Aufgaben nach vorne
' Makro am 05.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Sheets("ZK").Select
Sheets("ZK").Range("A5:J103").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
' Priorität Makro, sortiert nach der Prio und sortiert die wichtigsten Aufgaben nach vorne
' Makro am 05.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Sheets("Erledigte Aufgaben").Select
Sheets("Erledigte Aufgaben").Range("A5:J103").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
' Priorität Makro, sortiert nach der Prio und sortiert die wichtigsten Aufgaben nach vorne
' Makro am 05.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Sheets("Dringende Termine").Select
Sheets("Dringende Termine").Range("A5:J103").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
' Priorität Makro, sortiert nach der Prio und sortiert die wichtigsten Aufgaben nach vorne
' Makro am 05.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Sheets("Aktuelle Aufgaben").Select
Sheets("Aktuelle Aufgaben").Range("A5:J103").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
' Priorität Makro, sortiert nach der Prio und sortiert die wichtigsten Aufgaben nach vorne
' Makro am 05.05.2004 von Bonn.Prakt2-MVW24 aufgezeichnet
Sheets("Stetige Aufgaben").Select
Sheets("Stetige Aufgaben").Range("A5:J103").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
Sheets("UG").Select
Sheets("UG").Cells(65536, 1).End(xlUp).Offset(1, 0).Select
End Sub
MFG Andreas