Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datenblock kopieren

Datenblock kopieren
13.07.2006 09: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
Anzeige
AW: Datenblock kopieren
13.07.2006 11: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 12: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige