Problem mit Makro
30.05.2008 15:39:08
M
ich habe mir ein Makro erstellt. die abzuarbeitenden Schritte habe ich genau und pingelich ausgeführt. Das Ding funktioniert nicht. Er soll aus dem Tabellenblatt "Kanal 1" nur jeweils einen definierten Abschnitt in die anderen Tabellenblätter (Terminkontrakte, Primärregelreserve, Sekundärregelreserve, Marktpreise, Minutenreserve) kopieren und das ganze bei Spalte A Zeile 6 in das entsprechende Tabellenblatt einfügen.
Es wird jedoch nach jedem neuen öffnen der Tabelle immer wieder in Spalte A Zeile 1 eingefügt und immer die selbe Selektierung aus Tabellenblatt "Kanal 1" kopiert und eingefügt - das soll der aber nicht machen - woran kann das liegen? untenstehend der code:
Sheets("Terminkontrakte").Select
Range("A6").Select
Sheets("Primärregelreserve").Select
Range("A6").Select
Sheets("Sekundärregelreserve").Select
Range("A6").Select
Sheets("Marktpreise").Select
Range("A6").Select
Sheets("Kanal 1").Select
Range("A7:U324").Select
Selection.Copy
Sheets("Terminkontrakte").Select
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Kanal 1").Select
Range("A7:D324").Select
Selection.Copy
Sheets("Primärregelreserve").Select
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Kanal 1").Select
Range("A7:G324").Select
Selection.Copy
Sheets("Sekundärregelreserve").Select
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Kanal 1").Select
Range("A7:C324").Select
Selection.Copy
Sheets("Marktpreise").Select
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Kanal 1").Select
Range("A7:I324").Select
Selection.Copy
Sheets("Minutenreserve").Select
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Terminkontrakte").Select
Range("A6").Select
Sheets("Primärregelreserve").Select
Range("A6").Select
Sheets("Sekundärregelreserve").Select
Range("A6").Select
Sheets("Marktpreise").Select
Range("A6").Select
Sheets("Start").Select
würde mich über hinweise zu den fehlern freuen.
Grüße,
Marc