Makro in Code umwandeln
10.02.2009 09:04:00
abu
ich habe 2 Button und möchte nun 2 alte Makros überarbeiten und einbinden aber leider werde ich nicht ganz schlau aus dem Code. Würde mich freuen wenn ihr Hilfestellung leisten könntet.
Das erste Makro soll eigentlich nur
aus der jeweils aktiven Zelle sich die Zeile merken
aus dieser Zeile folgende Zellen in einem in dieser Arbeitsmappe gespeicherten Sheet rein kopieren und ausdrucken
o (als Beispiel nehme ich Zeile 10) D10 in Sheet Fenex F59 (alle Zellen vom Fenexsheet bleiben immer gleich)
o N10 in Fenex Zelle G8
o Q10 in Fenex Zelle C19
Dazu wurde nun folgender Code mit dem Makrorecorder aufgenommen und in jede Zeile ein Button kreiert. Allerdings ist diese Methode sehr speicherintensiv wenn man 5 Tage und pro Tag ca. 50 Zeilen hat.
Sub Monday11()
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Fenex").Select
Range("D59").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-27
Range("C19").Select
Selection.ClearContents
Range("G8").Select
Selection.ClearContents
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Fenex").Select
Range("M3").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Fenex").Select
ActiveWindow.SmallScroll Down:=30
Range("F59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Fenex").Select
ActiveWindow.SmallScroll Down:=-6
Range("N3").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Fenex").Select
ActiveWindow.SmallScroll Down:=-33
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Fenex").Select
Range("O3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Pre-alert Direct&RDC").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Fenex").Select
Range("C19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Maandag").Select
Range("E11").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Fenex").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Maandag").Select
End Sub
Hat jmd. eine Idee das ganze Sinvoll zu gestalten. Den Button habe ich in der der Symbolleiste _
_
_
schon untergebracht.
Danke im Vorraus für euer Interesse
Gruß
abu