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"