PDA

Vollständige Version anzeigen : Problem mit Formeln die nicht Kopiert werden sollen


djell
19.04.2009, 13:35
Hallo hab da ein Makro das auch so weit ganz gut funktioniert.
Nur ich hab da ein kleines problem.
Und zwar, in der zeile die hier Kopiert wird stehen Formeln die in den Zellen stehen bleiben sollen. Nur wenn ich das Makro ausführe dann kopiert er mir die koplette zeile und meine Formeln sind in der Ausgangszeile nicht mehr drin und das ist schlecht!

Was kann ich da machen?

Sub Archiv()
Dim lngLastRow As Long
lngLastRow = Sheets("Archiv").Cells(Rows.Count, "B").End(xlUp).Row + 1
If lngLastRow < 10 Then lngLastRow = 10
With Sheets("Eingabe")
Sheets("Archiv").Range("A" & lngLastRow & ":V" & lngLastRow).Value = _
.Range(.Cells(2, "A"), .Cells(2, "V")).Value
.Range(.Cells(2, "A"), .Cells(2, "V")).Value = vbNullString
End With

End Sub


Könnt ihr mir helfen?
Wäre super!!!

jinx
19.04.2009, 13:38
Moin, djell,

wird durch die Zeile

.Range(.Cells(2, "A"), .Cells(2, "V")).Value = vbNullString
vorgenommen - z. B. die Anweisung auskommentieren:

Sub Archiv()
Dim lngLastRow As Long
lngLastRow = Sheets("Archiv").Cells(Rows.Count, "B").End(xlUp).Row + 1
If lngLastRow < 10 Then lngLastRow = 10
With Sheets("Eingabe")
Sheets("Archiv").Range("A" & lngLastRow & ":V" & lngLastRow).Value = _
.Range(.Cells(2, "A"), .Cells(2, "V")).Value
' .Range(.Cells(2, "A"), .Cells(2, "V")).Value = vbNullString
End With

End Sub

djell
19.04.2009, 13:50
Danke für die Turbo schnelle antwort!
Hat schon geholfen!