Re: Pr.:Makro läuft nur auf Sheet1
20.08.2002 16:03:36
Markus
Dein Wunsch ist mir befehl ;-)))Sub save2_Click()
'
' save2 Makro
' Makro am 20.08.2002 von Markus aufgezeichnet
'
'
ActiveWindow.SmallScroll Down:=3
Range("B24").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=84
Range("A102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-90
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=87
Range("B102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-87
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=84
Range("E102").Select
ActiveSheet.Paste
'Columns("B:E").Select
'Range("B85").Activate
'Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll Down:=-75
Range("C15").Select
ActiveWindow.SmallScroll Down:=-21
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=81
Range("D102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-81
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=84
Range("C102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-84
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=87
Range("F102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-81
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=78
Range("G102").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-78
ActiveWindow.LargeScroll ToRight:=-1
Range("B17").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=57
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.SmallScroll Down:=18
Range("H102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-78
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Range("B14").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=48
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.SmallScroll Down:=36
Range("I102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-75
ActiveWindow.LargeScroll ToRight:=-1
Range("B15").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=87
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Range("J102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-81
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=-36
Range("B21").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=75
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Range("K102").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-51
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=-27
Range("B22").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=87
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Range("L102").Select
ActiveSheet.Paste
ActiveWindow.LargeScroll ToRight:=-1
Rows("102:102").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Daten").Select
Rows("2:2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
Application.CutCopyMode = False
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("2:2").Select
Selection.Copy
Rows("6:6").Select
ActiveSheet.Paste
Rows("2:2").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Dateneingabe").Select
Rows("102:102").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-105
Range("D7").Select
End Sub
Probleme macht der bei dem Befehl
Sheets("Daten").Select
Rows("2:2").Select
bei der Markierung der Zeile 2. da steigt er immer aus.
Ich dachte ich könnte den Code von dem aufgezeichneten Makro einfach in den für den Commandbuttom reinkopieren, das hatte beim ersten auch wunderbar geklappt, der beschränkt sich aber nur auf ein Excel-Blatt...hierbei geht es einfach nicht...
Ich hoffe das hilt dir, danke erstmal für deine Mühen,
Gruß Markus