ich probiere gerade die Formatierung für die neue eingefügten Zeilen zu Kopieren. Diese Formatierung soll aus der ersten Zeile der Tabelle übernommen werden. In T7 steht die erste Zeile der Tabelle. In T6 steht die letzte neue Zeile ohne Format. In T5 stehen die Anzahl der neue Zeilen. Meine Frage ist ob man in einer Range Funktion zwei Integer haben kann. Ich muss die Range "variabel" halten, da ich den Makro für mehrer Dateien verwenden möchte.
Sub Makro11()
Dim a As Integer
Dim F As Integer
Dim G As Integer
a = Worksheets("Navision").Range("T7") + 1
F = Worksheets("Navision").Range("T6") - Worksheets("Navision").Range("T5") - 1
G = Worksheets("Navision").Range("T6") - 1
Worksheets("Service Center Plan-Ist 2016").Range("B" & a":R" & a).Select
Selection.Copy
Worksheets("Service Center Plan-Ist 2016").Range("B & F :R" & G).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Vielen Dank!