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

Beiträge aus den Excel-Beispielen zum Thema "nur Werte kopieren"