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

Makro

Makro
13.06.2003 12:33:58
Jens
Hallo,
ich hab folgendes Problem.
Ich muß aus einem Workbook eine Spalte durchlaufen und nach und nach jeden Wert der in der aktuellen Zeile steht in eine Spalte in einem anderen Workbook schreiben. Das rüberschreiben ist kein Problem für mich. Das was ich nicht hinbekomme ist das hin und her wandern zwischen den beiden Workbooks ohne die Workbooks immer wieder neu zu öffnen. Vielleicht versteht mich ja einer von euch.
Kann ich irgendwie zwischen den einzelnen Workbooks hin und her springen???

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

Betreff
Datum
Anwender
Anzeige
Re: Makro
13.06.2003 12:39:30
Erwin

Datei öffnen, WorkbookNr.1
Datei öffnen, WorkbookNr.2
Fenster, Anordnen, entweder nebeneinander oder untereinander, je nach Tabelle.

Würde sagen, müßte helfen.
Erwin

Re: Makro
13.06.2003 12:44:57
Jens

Das muss in nem Makro realisiert werden

Re: Makro
13.06.2003 12:50:21
WernerB.

Hallo Jens,

hast Du es schon mal mit Referenzieren versucht? Da entfällt das Hin- und Herwechseln ganz.
Mal als Ansatz:

Viel Erfolg wünscht
WernerB.


Ich probiers mal, danke
13.06.2003 12:56:57
Jens



Re: Makro
13.06.2003 13:02:37
xxx

Hallo,
wie meinst du das, immer wieder öffnen?

sub Schreiben()
Dim wbk1 as Workbook
Dim Wbk2 as Workbook
set Wbk1=workbooks.open (Filename:="c:_\Test1.xls")
set Wbk2=workbooks.open (Filename:="c:_\Test2.xls")
for s=1 to 5
for z=1 to 20
wbk2.sheets(1).cells(s,z)=wbk1.sheets(1).cells(z,s)
next z
next s
end sub

schreibt den Inhalt der Zeilen 1-20 aus den Spalten Spalten A-E aus dem 1.Workbook in die Zeilen 1-5 der Spalten A-T des 2.Workbooks.

Gruß aus'm Pott
Udo



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige