UsedRange für 2 Spalten
09.03.2016 12:08:47
Alex
hab gerade ein Brett vor dem Kopf.
ich möchte aus dem Worksheet "2.Vertrag" NUR die Spalte A+B in das Worksheet "PM" kopieren.
Mit der Funktion:
Set rng = Worksheets("2.Vertrag").UsedRange
Set rng1 = Worksheets("PM").Cells(Rows.Count, "A").End(xlUp)(2)
rng.Copy Destination:=rng1
kopiere ich auch den "benutzen" Bereich.
Problem: Ich habe zum Teil versteckte Funktionen/Code/Grafiken in dem Worksheet "2.Vertrag" untergebracht, die man so nicht sieht, aber auch nicht mitkopiert werden sollten.
Daher will ich nur den benutzen Bereich von ("A:B") kopieren.
Ich kann ja sagen:
Set rng = Worksheets("2.Vertrag").UsedRange.colums(1), aber wie sage ich Spalte A+B?
Lösung wäre ja erst Spalte A, dann spalte B kopieren, aber nicht wirklich tolle Lösung
Danke für die Hilfe.
Gruß Alex
Anzeige