AW: Makros machen .xls-Datei riesig
08.07.2003 09:58:34
friedrich
Danke Tobias für Deine schnelle Nachricht. Die Makros wurden aufgezeichnet. Wie kann ich checken, ob (wie Du vermutest) nicht das ganze Tabellenblatt aufgezeichnet wird ?
Die Makros sehen so aus:
Sub pe()
' pe Makro
' Makro am 05.02.2002 von DUMMY aufgezeichnet
Sheets("pe").Select
Cells.Select
ActiveWindow.LargeScroll Down:=1
Range("A34").Select
Sheets("alle").Select
Selection.AutoFilter
ActiveWindow.LargeScroll ToRight:=-1
Selection.AutoFilter Field:=1, Criteria1:="pe"
ActiveWindow.LargeScroll ToRight:=1
Columns("U:U").Select
Selection.Copy
Sheets("pe").Select
ActiveSheet.Paste
Sheets("alle").Select
ActiveWindow.LargeScroll ToRight:=-1
Range("A17").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A2").Select
End Sub
Sub pp()
' pp Makro
' Makro am 05.02.2002 von DUMMY aufgezeichnet
Sheets("pp").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("alle").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="pp"
Columns("D:G").Select
ActiveWindow.SmallScroll ToRight:=11
Range("D:G,N:P").Select
Range("N1").Activate
Selection.Copy
Sheets("pp").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("alle").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-11
Range("A2").Select
End Sub
Sub dp()
' dp Makro
' Makro am 05.02.2002 von DUMMY aufgezeichnet
Sheets("dp").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("alle").Select
Selection.AutoFilter
ActiveWindow.LargeScroll ToRight:=-1
Selection.AutoFilter Field:=1, Criteria1:="dp"
Columns("D:K").Select
Selection.Copy
Sheets("dp").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("alle").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A2").Select
End Sub