Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen kopieren | Herbers Excel-Forum


Betrifft: Zellen kopieren von: Snewi
Geschrieben am: 31.01.2012 09:44:40

Hallo,

ich habe folgenden Syntax:

Range("D7:E71,J7:K71,N7:O71,Q7:R71,U7:V71,Y7:Z71,AC7:AD71,AF7:AL71").Select
Selection.copy
Sheets("Tabelle1").Select
Range("D7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

So werden die Werte einfach hintereinander kopiert! Ich möchte aber wieder in die o.g. Spalten einfügen!
Wie mache ich das?

Gruß

  

Betrifft: AW: Zellen kopieren von: Josef Ehrensberger
Geschrieben am: 31.01.2012 10:29:06


Hallo Snewi,

das geht so nicht, du musst alle Bereiche einzeln übertragen.

Sub test()
  Dim rng As Range
  
  For Each rng In Sheets("Tabelle4").Range("D7:E71,J7:K71,N7:O71,Q7:R71,U7:V71,Y7:Z71,AC7:AD71,AF7:AL71").Areas
    Sheets("Tabelle1").Range(rng.Address) = rng.Value
  Next
  
End Sub






« Gruß Sepp »



  

Betrifft: AW: Zellen kopieren von: Snewi
Geschrieben am: 31.01.2012 10:53:01

klappt wie alles was du machst :-)

Danke


  

Betrifft: AW: Zellen kopieren von: Snewi
Geschrieben am: 31.01.2012 13:09:22

Eins hab ich noch ich möchte nur als Werte kopieren ohne formatierung!
Was muss ich dazu in deinem Syntax einbauen?

Gruß


  

Betrifft: AW: Zellen kopieren von: Josef Ehrensberger
Geschrieben am: 31.01.2012 13:17:45


Hallo Snewi,

mein Code überträgt nur Werte!




« Gruß Sepp »



  

Betrifft: AW: Zellen kopieren von: Snewi
Geschrieben am: 31.01.2012 13:39:48

Supi Danke habs gesehen :-)


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