Pr.:Makro läuft nur auf Sheet1

Forumthread: Pr.:Makro läuft nur auf Sheet1

20.08.2002 15:46:35

Markus

Hi!!
Ich bin absoluter Newbie und habe ein Problem.
Ich habe ein Makro aufgenommen, welches so einwandfrei funktioniert (ist gespeichert in einem Modul)(es makriert Daten und kopiert diese in ein anderes Excel-Blatt und fügt sie dort an bestimmten stellen ein, gleiche Arbeitsmappe)

Wenn ich diese Makro dann mit einem Command-Buttom verknüpfe und es beim Clicken starten lasse, dann kann diese Makro NICHT mehr das andere Excelblatt auswählen, aber in dem aufgezeichneten geht es. Ich denke ich muss es irgendwie deklarieren, das es auch das 2te Sheet benutzten kann, habe aber nicht rausgefunden wie. Wäre schön, wenn einer eine Lösung weis.
Vielen Dank.
Gruß Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Pr.:Makro läuft nur auf Sheet1

20.08.2002 15:48:42

PeterW

Hallo Markus,

wenn es sich um aufgezeichneten Code handelt ist davon auszugehen, dass Bezüge zum Blatt hat, in dem es aufgezeichnet wurde.
Poste mal den Code, dann kann man mehr dazu sagen.

Gruß
Peter

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

Re: Pr.:Makro läuft nur auf Sheet1

20.08.2002 16:11:15

PeterW

Hallo Markus,

Rows(2).Select

sollte zumindest dieses Problem lösen. Den Rest des Rekorder-Codes tu ich mir lieber nicht an. ;)

Gruß
Peter

Re: Pr.:Makro läuft nur auf Sheet1

20.08.2002 16:21:17

Hajo_Zi

Hallo Markus

ohne tiefer in Deinen Code einzudringen. Wie folgt müßte auch reichen.

Gruß Hajo

Re: Pr.:Makro läuft nur auf Sheet1

20.08.2002 17:27:53

Markus

Danke erstmal ..habe leider heute keien Zeit mehr das zu testen ....

Aber vielen Dank für eure Mühe
Gruß Markus

Beliebteste Forumthreads (12 Monate)

Forumthread: Pr.:Makro läuft nur auf Sheet1

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread