VBA nur für die Zeilen ausführen wenn Beding. erf.
11.02.2014 13:11:26
Sascha
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
Anzeige