Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen kopieren

Zellen kopieren
Snewi
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ß

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen kopieren
31.01.2012 10:29:06
Josef

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 »

Anzeige
AW: Zellen kopieren
31.01.2012 10:53:01
Snewi
klappt wie alles was du machst :-)
Danke
AW: Zellen kopieren
31.01.2012 13:09:22
Snewi
Eins hab ich noch ich möchte nur als Werte kopieren ohne formatierung!
Was muss ich dazu in deinem Syntax einbauen?
Gruß
AW: Zellen kopieren
31.01.2012 13:17:45
Josef

Hallo Snewi,
mein Code überträgt nur Werte!

« Gruß Sepp »

AW: Zellen kopieren
31.01.2012 13:39:48
Snewi
Supi Danke habs gesehen :-)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige