Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel kopieren mit vba

Excel kopieren mit vba
06.01.2014 16:31:38
Burkard
Ich möchte eine markierte Zeile in ein anderes Arbeitsblatt in Zeile 30 kopieren. Mit der folgenden Anweisung klappt es auch, aber hier werden auch die Formeln mit kopiert. Ich möchte aber die Werte kopieren.
Dim iRow As Integer
With Worksheets("Druck")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Worksheets("Druck").Rows(30
Kann mir jemand helfen? Vielen Dank im voraus
Mit freundlichen Grüßen
H.Burkard

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel kopieren mit vba
06.01.2014 16:34:35
Hajo_Zi
Hallo Burkard,
nach folgendem Prinzip
Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
'    Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address). _
Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues       ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub

Anzeige
AW: Excel kopieren mit vba
07.01.2014 09:19:45
Burkard
Hajo vielen Dank für die schnelle Antwort.
Das Programm funktioniert nicht ganz wie ich mir das vorstellte. Mit diesem Programm wird das ganze Arbeitsblatt mit den Werten kopiert. Ich wollte nur eine komplette Zeile des Arbeitsblattes, in der ein Feld markiert ist, kopieren. Dies funktioniert mit meinem Programm, aber es werden auch Formeln kopiert und nicht die Werte.
H.Burkard

Anzeige
AW: Excel kopieren mit vba
07.01.2014 14:16:02
Hajo_Zi
Hallo Burkhard,
wo ist das Problem
.UsedRange durch Deinen Bereich zu ersetzen dürfte es ja nicht sein. Den Dateinamen, Tabellename, Zielzelle dürfte es ja auch nicht sein.
Wo ist also das Problem?
Gruß Hajo

Anzeige
AW: Excel kopieren mit vba
07.01.2014 09:32:55
Rudi
Hallo,
ActiveCell.EntireRow.Copy
With Worksheets("Druck").Cells(30, 1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False

Gruß
Rudi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige