ich habe hier folgenden Code und möchte ihn nur für bestimmte Zeilen im Sheet "Pulverbuch" ausführen. Er soll nur für die Zeilen sein in den ein Wert in der
Spalte X steht.
Sub kopieren()
Dim wksPulver As Worksheet, i
Set wksPulver = Sheets("Pulverbuch")
Application.ScreenUpdating = False
For i = 3 To wksPulver.Cells(Rows.Count, 1).End(xlUp).Row
wksPulver.Range(wksPulver.Cells(i, 1), wksPulver.Cells(i, 23)).Copy
With Sheets("Buchungen")
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial Paste:= _
xlPasteFormats
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial Paste:= _
xlPasteValues
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 7) = wksPulver.Cells(i, 26).Value
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 12) = wksPulver.Cells(i, 24). _
Value
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 24) = wksPulver.Cells(i, 25). _
Value
End With
Next
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub
Es wäre schön, wenn jemand für mich eine Idee hätte.
Vorab vielen Dank.
Liebe Grüße
Sascha