PasteSpecial statt copy Range geht nicht
21.01.2013 17:34:43
Burghard
ich möchte mittels dieses Makros nur die Werte einfügen (also nicht mittels copy):
Sub Leerzellen_auffuellen()
Dim L As Long
Dim Bereich As Range
For L = 1 To 10000
If WorksheetFunction.CountIf(Range(Cells(L, 6), Cells(L, 8)), "") = 3 Then _
Range(Cells(L, 1), Cells(L, 2)).Copy Range(Cells(L, 6), Cells(L, 7))
Next
Range("A2").Select
End Sub
Wenn ich "copy" durch "PasteSpecial xlPasteValues" ersetze, läuft das Makro nicht mehr. Wo ist der Fehler?Grüße
Burghard