Makro Werte kopieren (Fehler)

Bild

Betrifft: Makro Werte kopieren (Fehler)
von: Daniel
Geschrieben am: 08.10.2015 12:10:01

Hallo Leute,
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

Bild

Betrifft: AW: Makro Werte kopieren (Fehler)
von: Michael
Geschrieben am: 08.10.2015 15:32:56
Hi Daniel,
versuch's mal damit:

Sub Schaltfläche2_KlickenSieAuf()
Dim Z As Long
Worksheets("Tabelle2").Rows("6:6").Copy
Worksheets("Tabelle1").Activate
Z = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Z).PasteSpecial Paste:=xlPasteValues
End Sub
Schöne Grüße,
Michael

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro Werte kopieren (Fehler)"