.copy Werte statt Formeln und Bezüge
28.08.2014 10:00:34
Henry
ich benutze den VBA um Zeilen von einem TB ins nächste TB zu kopieren.
Leider kopiert er nicht die Werte sondern Formeln und Bezüge.
Wie ändere ich den Code damit nur die Werte kopiert werden ?
Sub T2222()
Sheets("Main").Select
Dim Loletzte As Long
Dim I As Long
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = 1 To Loletzte
If Cells(I, 1) "" And Cells(I + 1, 4).Interior.ColorIndex = 6 Then
Cells(I, 10).Value = Cells(I + 1, 3).Value
Rows(I).Copy Destination:=Sheets("IDA").Cells(Sheets("IDA").Cells(Rows.Count, 1).End(xlUp). _
Row + 1, 1)
End If
Next I
End Sub
Anzeige