Clever-Excel-Forum

Hallo Zusammen,
wie kann man einstellen im VBA, dass ein gewisser Bereich kopiert wird ohne Formatierung?

Anbei der Code, der den Bereich kopiert, jedoch mit Formatierung:

Code:
Worksheets("SOLL_STUNDEN").Range("A1").CurrentRegion.Offset(1, 0) _

                .Resize(Worksheets("SOLL_STUNDEN").UsedRange.Rows.Count - 1) _

                .Copy Destination:=Worksheets("Tabelle1").Range("A1")

                Application.CutCopyMode = False

Gruß

Hallo,

nicht das Kopieren ist dein Problem, sondern das Einfügen! Du solltest halt nur Werte (ohne Formate) einfügen:

Worksheets("SOLL_STUNDEN").Range("A1").CurrentRegion.Offset(1, 0) _
.Resize(Worksheets("SOLL_STUNDEN").UsedRange.Rows.Count - 1).Copy
Worksheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Gruß Sigi

Hallo Sigi,
vielen Dank.

Funktioniert.

Gruß

Jo7411

Sigi.21

Jo7411