Referenziert Kopieren nur Werte

Sub Kopieren() Dim rngQuelle As Range, rngZiel As Range Set rngQuelle = Worksheets("Eingabe").Range("A4") Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Set rngZiel = Worksheets("Kopie").Range("A1") rngQuelle.Copy rngZiel End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Kopieren() Dim rngQuelle As Range, rngZiel As Range Set rngQuelle = Worksheets("Eingabe").UsedRange Set rngZiel = Worksheets("Kopie").Range("A1") rngQuelle.Copy rngZiel.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False End Sub

Hallo Matthias,
vielen Dank, aber UsedRange kopiert immer alles (von A1 beginnend) aus dem Quellblatt ins Zielblatt.
Ich benötige erst die Werte ab A4.
Weiterhin habe ich im Blatt "Eingabe" nur Werte bis Zeile 165 stehen. Die Formeln gehen im Eingabeblatt aber bis ans Blattende.
Über UsedRange und Names.Add wird im neien Bereich aber immer der komplette Bereich bis zur letzten Zeile in die Namensdeklaration übernommen. Ich möcht aber den Namen nur bis zur letzten ausgefüllten Zeile (165 haben)
Hier mein vollständiger Code:

Sub Aktualisieren()
Dim rngQuelle As Range, rngZiel As Range
Set rngQuelle = Worksheets("Eingabe").UsedRange
Set rngZiel = Worksheets("Kopie").Range("A1")
rngQuelle.Copy
rngZiel.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Kopie").Activate
' Bereichsnamen löschen
ActiveWorkbook.Names("Import2").Delete
' Bereich neu definieren
ActiveWorkbook.Names.Add Name:="Import2", RefersToR1C1:=Range("A4").CurrentRegion
Sheets("Auswertung").Activate
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

hoffe hab mich verständlich ausgedrückt.
Micha

Hi Michael,
"habe ich im Blatt "Eingabe" nur Werte bis Zeile 165 stehen. Die Formeln gehen im Eingabeblatt aber bis ans Blattende"
stimmt nicht wirklich.
In welchem Bereich stehen die Formeln (genau bitte)?
Das könnte z. B. der Bereich A4:K65536 sein (Formeln ab Zeile 4 bis zur letzten Zeile).
Der benutzte Bereich (=UsedRange) und die CurrentRegion umfassen mindestens diesen Bereich,
denn durch das Reinschreiben einer Formel wird eine Zelle ja benutzt.
Um welche Spalten geht es eigentlich? Das kam bislang wohl noch nicht vor - außer A natürlich.
Jede Formel hat einen Wert. Das kann auch mal ein Fehlerwert sein. Oder der Wert "".
Die beiden Formeln
=WENN(1=1;"";"nie") hat den Wert ""
=WENN(1=1;"ja";"nie") hat den Wert "ja"
Ob da nun "" oder "ja" rauskommt - Werte sind das beide.
Nun stellt sich die Frage, welcher Bereich kopiert werden soll. Der Start ist klar: A4.
Welches solll die letzte kopierte Zeile sein?
Die letzte Zeile, in der in Spalte A etwas steht, was ungleich "" ist?
oder
Die letzte Zeile, in der in irgend einer Spalte etwas steht, was ungleich "" ist?
Erst wenn die Aufgabe klar ist, sollte man mit der VBA-Umsetzung anfangen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Referenziert Kopieren nur Werte

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread