Makro Werte kopieren (Fehler)
08.10.2015 12:10:01
Daniel
ich möchte Werte aus einer Zeile mit Formeln ans Ende einer anderen Tabelle kopieren.
Es ist wichtig, dass diese Zeile ihre Formeln behält.
Mit einer Lösung, die ich im Internet gefunden habe kann ich zwar korrekt kopieren, allerdings überschreibt er mir die Formeln in der Zeile mit Werten. Wie kann ich nur die Werte aus den Formeln ziehen ohne diese zu überschreiben?
Bin für jede Hilfe dankbar.
Hier der Code:
Sub Schaltfläche2_KlickenSieAuf()
Worksheets("Tabelle2").Activate
Rows("6:6").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Activate
Z = 10
Do While Len(Worksheets("Tabelle1").Cells(Z, 1)) > 0 'Ermitteln der Tabellenlänge
Z = Z + 1
Loop
Range("A" & Z).Select
ActiveSheet.Paste
End Sub
Anzeige