habe noch ein Problem, und möchte euch
um eure Hilfe bitten.
Wie übertrage (kopiere) ich alle Zeilen eines Blattes
in denen in Spalte A zB ein x steht.Und kann das in nachstehendem Makro
eingebaut werden?
Dim rng As Range
Dim lngE As Long
Set rng = Sheets("Einzahlungen").Range("A6:M45")
With Sheets("Jahresbeträge")
lngE = .Range("A65536").End(xlUp).Row + 1
rng.Copy
.Cells(lngE, 1).PasteSpecial Paste:=xlPasteValues
.Cells(lngE, 1).PasteSpecial Paste:=xlPasteFormats
' nur Werte und Formatierung
End With
End Sub
Herzlichen Dank, Rebecca