|
In meiner Arbeitsmappe befinden sich 2 Arbeitsblätter.
1. Prüfprotokoll mit vorhandenen und täglich neuen Daten ab Zeile 8
2. Vorlage
Es soll aus jeder Zeile des Protokolls, ab Zeile 8, ein neues Arbeitsblatt aus der Vorlage erzeugt werden, das nach der Gerätenummer in C8 des Prüfprotokolls benannt werden soll und von dort aus per Hyperlink zu erreichen ist.
Anschließend sollen die Daten aus jeder Spalte, von B bis M, in verschiedene Zellen der Vorlage kopiert werden.
Also:
B8 nach C5
C8 nach C6
...
Das ist mein Makro für eine Zeile. Das Problem ist das ich nicht weiß wie ich dies für jede folgende Zeile wiederhole.
Sub Einzelprotokoll()
'
' Makro3 Makro
'
'
Sheets("Vorlage").Select
Sheets("Vorlage").Copy After:=Sheets(2)
Sheets("Prüfprotokoll").Select
Range("B8").Select
Selection.Copy
Sheets("Vorlage (2)").Select
ActiveWindow.SmallScroll Down:=-27
Range("C5:D5").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("C6:F6").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("C8").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("D8").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("E8:G8").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("H5:M5").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
ActiveWindow.SmallScroll Down:=15
Range("M23").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("I8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("M24").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("J8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("M25").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("K8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("M26").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("L8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("M29").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
Range("M8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vorlage (2)").Select
Range("M30").Select
ActiveSheet.Paste Link:=True
Sheets("Prüfprotokoll").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("C8").Select
Application.CutCopyMode = False
Sheets("Prüfprotokoll").Select
ActiveCell.FormulaR1C1 = "701000194073"
Sheets("Vorlage (2)").Select
Sheets("Vorlage (2)").Name = "701000194073"
End Sub
|