VBA - Bereich kopieren ohne Formatierung

[Jo7411]

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ß

[Sigi.21]

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

[Jo7411]

Hallo Sigi,
vielen Dank.

Funktioniert.

Gruß