Office: Werte ohne Formatierung Kopieren

Hallo,

ich möchte per VBA einen Range (genauer: eine Spalte) von einem Arbeitsblatt in das andere Kopieren. Dabei soll das Format nicht übernommen werden.
Hinzu kommt noch eine kleine Schwierigkeit: ich weiß leider nicht wieviel Daten im Quelldatenfile drin sind, aber ich möchte nur soviele Daten wie nötig kopieren.

Ich habe schon 2 Lösungen, mit denen ich beidesmal nicht ganz zufrieden bin.

Diese Lösung übernimmt das Format mit, abeitet dafür schnell
Code:

Diese Lösung nimmt das Format nicht mit, bringt aber hässliches Blitzem am Bilschirm mit sich und ist recht lam
Code:

Ich suche die Kombination aus beiden - und zwar die, die schnell ist (ohne Geblitze) und die Formate nicht übernimmt.

Danke für jede Hilfe

:)

 

Hallo Dafra!


Versuchs mal hiermit:

Sub WerteKopieren()

Dim LetzteZeile, LetzteSpalte As Integer

Application.ScreenUpdating = False

Letzte Zeile = Workbooks(Datei1).Sheets(Blatt1).UsedRange.Rows.Count
LetzteSpalte = Workbooks(Datei1).Sheets(Blatt1).UsedRange.Columns.Count

Workbooks(Datei1).Sheets(Blatt1).Range(Cells(1, 3), Cells(LetzteZeile, LetzteSpalte)).Copy
Workbooks(Datei2).Sheets(Blatt2).Cells(1, 1).PasteSpecial Paste:=xlValues

Application.ScreenUpdating = True

End Sub



Gruß
Mattin

 

Hallo, dafra,

abhängig von der Datenaufbereitung kann entweder die Feststellung der letzten genutzten Zeile der Spalte C von unter (wie in den Beispielen) oder von oben (durchgehender Bereich vorausgesetzt). Den Code zum Ausschalten der Bildsschirmaktualisierung findest Du bei Mattin. Allerdings wird dort ein größerer Bereich, nicht nur eine Spalte kopiert.

Gruß
LS

 

Hallo Mattin12 und Lumpensammler,

Danke für eure Anworten! *Smilie
Tut mir leid mich etwas unverständlich ausgedrückt zu haben - meine Beispielzeilen haben wirklich nur Zellen kopiert die auch genutzt waren. Ich hatte mich dabei für Lumpensammlers 2te Methode entschieden gehabt - ich habe von unten nach oben gesucht, wo die letzte Zeile ist.

Hallo Mattin12
Mit 'UsedRange' arbeite ich sehr ungern, weil dabei mitunter verwirrende Ergebnisse herauskommen. 'UsedRange.Rows.Count' liefert immer alle Zeilen die schoneinmal genutzt waren, auch wenn diese Zeilen/Zellen inzwischen wieder leer sind. Insbesondere wenn man aus einer Spalte exakt herauskopieren will, sollte man mit dieser Methode arbeiten:

Code:

Ich werde dann wohl meine 2te Methode nutzen und dabei die Bildschirmaktualisierung ausschalten...

Thx,

 

Moin, dafra,

gerade die Ermittlung der letzten Zeile einer Spalte von unten her schließt die Übernahme leerer Zeilen per se ein - wenn Du nur genutzte Zellen kopieren willst, muss entweder ein Autofilter verwendet oder eine Abfrage auf leeren Wert der Zelle in einer Schleife eingefügt werden...

 

hi jinx!

jub, da hast Recht...
Für mein Problem passts so schon, weil ich keine Leezeilen drin hab - somit ists auch egal ob ich von Oben oder von Unten anfange...