Hi Leute,
hoffe ihr könnt mir bei meinem kleinen Problem helfen:
Ich möchte mit diesem Code eigentlich nur den Bereich "A2:M" kopieren und in der "Mappe2" als Werte einfügen.
Mit diesem Code fügt er aber die kompletten Rows ein, dass darf er aber nicht, da hinten in AA1:AA15 Formeln stehen, die würde er ja mit rausmachen.
Private Sub CommandButton1_Click()
With Rows("2:" & Range("A" & Rows.Count).End(xlUp).Row) - Hier soll "A:M" stehen.
.Copy
Workbooks("Mappe2.xls").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Rows( _
Sheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:= _
xlPasteValues
End With
Wie muss ich den Code noch anpassen?
Danke für Eure Hilfen.
Frederic