Nicht miteinanderverbundene Zellen kopieren

Question

Hallöchen,
könnte mir jemand sagen, wie ich per VBA-Code mehrere, nicht miteinander verbundene Zellen markieren kann und sie als Werte kopieren kann?

Habe mal folgendes probiert:

Range("A1:C1, E1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Funktioniert auch , aber nun möchte ich statt den Zellbezeichnungen wie "A1" lieber irgendwie Variablen einsetzen. Kann mir vielleicht jemand helfen und mir einen klitzekleinen Tipp geben wie man das schreibt???

Answer 1

Hallo Moni,

probier mal diesen Trick

Range("A1:E1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1").ClearContents

Gruß
Rainer

Answer 2

Danke erstmal!
Leider hilft mir das nicht weiter, da ich nicht sehe kann, wo ich beim Range-Befehl Variablen eingeben kann. Trotzdem Danke für deinen Versuch! :P

Answer 3

Hallo Moni
wenn du vorher die Zellen selber auswählst.

Selection.Copy
Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Gruß
fedjo