Herbers Excel-Forum - das Archiv

nur Werte kopieren

Bild

Betrifft: nur Werte kopieren
von: Joachim

Geschrieben am: 17.02.2005 10:47:13
Hallo zusammen,
folgendes Programm kopiert den Inhalt einiger Zellen auf ein anderes Blatt was auch funktioniert.
Sheets("Daten").Select
Range("A100:AH100").Select
Selection.Copy
Sheets("SÜD").Select
GesellschaftZelle.Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
In einigen Zellen befinden sich Formel hier sollen nur die Ergebniste (Werte)
kopiert werde. Ich habe die Funktion schonmal mit dem Makrorekorder aufgezeichnet. Bei der verbindung beider Funktionen gab es aber eine Fehlermeldung.
Kann mir jemand weiterhelfen?
Bild

Betrifft: AW: nur Werte kopieren
von: ???
Geschrieben am: 17.02.2005 11:42:31
Da nimmst du am besten:
ActiveSheet.PasteSpecial Paste:=xlValues
Gruß
Bild

Betrifft: AW: nur Werte kopieren
von: Joachim

Geschrieben am: 17.02.2005 14:17:09
Hallo,
Vielen Dank für den hinweis. Ich weis leider nicht wo ich die Zeile genau einfügen muß bzw. was ich löschen kann.
Wenn ich die Zeile so einfüge bekomme ich eine Fehlermeldung beim kompilieren

ActiveSheet.PasteSpecial Paste:=xlValues
Gruß Joachim
Bild

Betrifft: AW: nur Werte kopieren
von: Beni

Geschrieben am: 17.02.2005 15:12:39
Hallo Joachim,
probiere das und ganze ohne Select.
Gruss Beni
Dim lz, ls As Integer
With Sheets("SÜD")
Sheets("Daten").Range("A100:AH100").Copy
.Range("GesellschaftZelle").PasteSpecial Paste:=xlPasteValues
lz = .Cells(65536, 1).End(xlUp).Row
ls = .Cells(1, 256).End(xlToLeft).Column
Range(.Cells(2, 1), .Cells(lz, ls)).Sort Key1:=Range("A2"), Header:=xlGuess
End With
 Bild
Excel-Beispiele zum Thema "nur Werte kopieren"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren