Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Werte kopieren (Fehler)

Makro Werte kopieren (Fehler)
08.10.2015 12:10:01
Daniel
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Werte kopieren (Fehler)
08.10.2015 15:32:56
Michael
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige