Zellenwerte ohne Formeln und Formatierung mittels VBA kopieren.

Question

Hallo zusammen!

Das übernehmen von Zellenwerten ist mit einer Formel recht einfach; "=Y7" - fertig.

Doch wie sieht es aus, wenn die Zellenwerte aus "Y7-Y95" ohne Formeln und Formatierung mittels VBA  nach "W7:W95" kopiert werden müssen. Leider finde ich nur bedingte Hilfen; bitte seid so nett und helft mir bei dem Problem; Herzlichen Dank!

Noch ein Hinweis: Der Wert aus "Y7" soll nach "W7" kopiert werden; "Y8" nach "W8" usw.

Herzliche Grüße

Reinhard

Answer 1

Makro aufzeichnen liefert das:

Sub Makro1()

'

' Makro1 Makro

'

'

    Range("Y7:Y95").Select

    Selection.Copy

    ActiveWindow.SmallScroll Down:=-93

    Range("W7").Select

    ActiveSheet.Paste

End Sub

Answer 2

Hallo Reinhard,

füge das folgende Makro in ein Modul deiner Arbeitsmappe ein:

Sub kopieren()

'Bereich kopieren
Range("Y7:Y95").Copy

'Zielbereich
With Range("W7")
 .PasteSpecial Paste:=xlPasteValues    'Werte einfügen
End With

'Auswahl aufheben
Application.CutCopyMode = False

End Sub

Gruß

M.O.

Answer 3

Hi zusammen,

Wenn nur Werte übernommen werden sollen reicht die folgende Zeile völlig aus. 

Range("W7:W95").Value = Range("Y7:Y95").Value

Da spart man sich das Geflimmer, das bei Copy und Paste entsteht. Und das Makro läuft schneller durch.

Gruß Mr. K.