beim kopieren Werte statt Formel übernehmen
30.03.2015 11:31:38
lau
möchte für unteres Makro Werte statt Formel kopieren.
Kann mir jmd. noch helfen? Wo muss ich das Value eingeben?
Vielen Dank.
Laura
Sub Historie()
Dim zeile, zeile_nach As Long
' geht davon aus, daß die Tabelle mit den Daten "Daten" heißt
zeile = Sheets("calculator").Range("b1000").End(xlUp).Row
' den Wert nach dem A kannst Du bei Bedarf erhöhen auf 10000 oder mehr
zeile_nach = Sheets("Historie").Range("b1000").End(xlUp).Row + 1
With Sheets("Calculator")
.Range(.Cells(zeile, 1), .Cells(zeile, 14)).Copy _
Sheets("Historie").Cells(zeile_nach, 1)
End With
End Sub
Anzeige