Datenblock kopieren

Forumthread: Datenblock kopieren
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Datenblock kopieren

Datenblock kopieren

13.07.2006 11:48:55

Dominik

Hallo Forum!
Ich würde gerne einen ganzen Datenblock in ein anderes Tabellenblatt in einer anderen Datei kopieren.
Dazu lasse ich zuerst von meinem Makro mir meine Eckpunkte (zelle1 und zelle2) finden und dann würde ich gerne den Bereich makieren und kopieren
also entweder so
zelle1 = Windows(probe & "e").Cells(k, y1)
zelle2 = Sheets(probe & "e").Cells(p, y2)
Range(zelle1, zelle2).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows(probe).Activate
Range("C18").Select
ActiveSheet.Paste
oder so:
Sheets(probe & "e").Range(Cells(k,y1),Cells(p,y2)).Select
Selection.Copy _
Destination:=Workbooks(vlies).Worksheets(probe).Range("B5")
Die Zellen einzeln kopieren möchte ich nicht, da mir dass zuviel rechnerzeit schluckt.
Grüße und dank

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datenblock kopieren

13.07.2006 13:48:56

{mskro}
AW: Datenblock kopieren

13.07.2006 14:40:46

Dominik

AW: Datenblock kopieren

13.07.2006 13:48:56

{mskro}

Hallo Dominik,
probiere es doch mal mit (Stelle vorher den Curser auf eine beschriebene Zelle):


Sub Test()
Selection.CurrentRegion.Select
Selection.Copy
'u.s.w.
End Sub

Gruss Manfred
Rückmeldung wäre nett!

AW: Datenblock kopieren

13.07.2006 14:40:46

Dominik

Da liegt schon das Problem. Er kann mir die zelle1 nicht zu ordnen.
Muss ich im Kopf die Dimension der zelle1 festlegen?
zelle1 = Cells(k, y1)
zelle2 = Cells(p, y2)
Range(zelle1, zelle2).Select
Selection.Copy