hallo,
ich hab im code so versucht es geht naturlich aber ich will die ganze (unten angegeben)spalten copieren und auf die unten angegebene spalten einfügen ,obwohl ich vielmals versucht habe geht leider nicht hat jemand eine idee wie man das machen kann?:
Worksheets("bla").Range("A12").Copy _
Destination:=Worksheets("Termin_Blatt").Range("A6")
Worksheets("bla")Range("B12").Copy _
Destination:=Worksheets("Termin_Blatt").Range("B6")
Worksheets("bla")Range("L12").Copy _
Destination:=Worksheets("Termin_Blatt").Range("C6")
Worksheets("bla").Range("M12").Copy _
Destination:=Worksheets("Termin_Blatt").Range("D6")
Worksheets("bla").Range("S12").Copy _
Destination:=Worksheets("Termin_Blatt").Range("E6")
Worksheets("bla").Range("K12").Copy _
Destination:=Worksheets("Termin_Blatt").Range("F6")
Worksheets("bla").Range("R12").Copy _
Destination:=Worksheets("Termin_Blatt").Range("G6")