Hallo Zusammen,

ich möchte ein paar Zelleninhalte aus einem anderem Tabellenblatt kopieren. (Da ich nicht alle Spaltem brauche)

Mein makro sieht wie folgt aus;:

Private Sub CommandButton3_Click()
Dim Spalten
Dim S As Long
Spalten = Array(1, 2, 7, 0, 0, 0, 8, 12, 13)
For S = 0 To UBound(Spalten)
    Sheets("Mai Original").UsedRange.Offset(2, 0).Columns(Spalten(S)).Copy
    Cells(10, S + 1).PasteSpecial xlPasteValues
Next
End Sub

Das funktionierte auch die ganze zeit. Jetzt soll er mir das kopierte anstatt in dei 2 Zeile ab der 10ten Zeile einfügen.

Ich bekomme jedoch fehlermeldungen.

Kann mir jemand helfen?

Danke!