Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

spalten kop. ohne select!

Forumthread: spalten kop. ohne select!

spalten kop. ohne select!
27.10.2007 10:49:27
lisa
Hallo zusammen
Bei meinem Macro laufe ich immer beim Select auf einen Fehler.
Ich habe in der Recherche gelesen das es ganz ohne Select funktioniert (jedenfalls zu 99%)
Das Problem ist, das ich hier von einander getrennte Spalten kopieren will, aber dafür habe ich in der Recherche mit dem Worbookswechsel nicht finden können.
Hat jemand hierzu eine Idee?
Gruß Lisa
Windows("Quelle.xls").Activate
Range("A4:A25").Select
Selection.Copy
Windows("Ziel.xls").Activate
Sheets("Tabelle3").Select
Range("A2").Select
ActiveSheet.Paste
Windows("Quelle.xls").Activate
Range("G4:G26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ziel.xls").Activate
Range("C2").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Range("A1").Select

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kop. ohne select!
27.10.2007 10:58:46
Hajo_Zi
Hallo Lisa,

Option Explicit
Sub Lisa()
Workbooks("Quelle.xls").Range("A4:A25").copy Workbooks("Ziel.xls").Sheets("Tabelle3").Range( _
"A2")
Workbooks("Quelle.xls").Range("G4:G26").copy Workbooks("Ziel.xls").Sheets("Tabelle3").Range( _
"C2")
End Sub



Anzeige
AW: Zellen kop. ohne select!
27.10.2007 11:05:00
lisa
Hallo Hajo
Danke für die schnelle Antwort.
So läuft es sauber und schnell durch
Ein schönes WE
Gruss Lisa

Forumthreads zu verwandten Themen

Anzeige
Anzeige