Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1092to1096
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 aus Workbook

Zellen kopieren aus Workbook
Sebastian
Hallo zusammen,
würde gerne folgendes programmieren:
workbook1 ist geöffnet
kopiere zelleA1 aus workbook2 (nicht geöffnet) in workbook1.zelleA1
kopiere zelleA1 aus workbook3 (nicht geöffnet) in workbook1.zelleA2
.
..
also im prinzip eine auflistung aller zellen A1 aus den workbooks 2 bis n
oder alternativ alle workbooks im ordner "test"
hoffe ihr könnte mir weiterhelfen
gruß
sebastian

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen kopieren aus Workbook
03.08.2009 17:47:16
Sebastian
hallo
vielen dank schonmal,
komm damit nicht ganz zurecht,
besonders mit der zeile: If Datei ThisWorkbook.Name Then
wie würde der code den aussehen, wenn zelle A1 aus allen workbooks im ordner "Test" kopiert werden
sollen und untereinander in die zellen A1 bis A100 im workbook"NEU".sheet("tabelle1") kopiert werden
sollen
vielen Dank und gruß
Sebastian
AW: Zellen kopieren aus Workbook
03.08.2009 18:04:50
Daniel
hi
die IF-Zeile ist nur sicherheitshalber drin, um zu vermeiden daß die Sammeldatei sich selber öffnet, falls sie doch mal zufällig im gleichen Verzeichnis gespeichert wurde wie die zu öffnenden Dateien.
ansonsten ist der Code doch recht eindeutig, du musst die entsprechenden Sheet-Namen halt anpassen.
im Code bin ich davon ausgegangen,daß es immer das erste Sheet ist, deswegen ist hab ich da immer nur die Index-Nummer verwendet (Sheets(1)). Für die 1 müsstest du halt die entsprechende Sheet-Bezeichnung eintragen.
shDatenbank ist das Sheet, in dem die Daten gesammelt werden
und shBewerbung ist das Sheet in den Dateien, die nacheinander geöffnet werden.
Gruß, Daniel
Anzeige
AW: Zellen kopieren aus Workbook
03.08.2009 18:20:32
Sebastian
Hi Daniel
vielen Dank für Deine schnelle Hilfe
bei einer Sache habe ich noch ein Problem:
'Bewerberungsdatei öffnen
Set wbBewerbung = Workbooks.Open(Filename:=Pfad & Datei, ReadOnly:=True)
Set shBewerbung = wbBewerbung.Sheets(1)
muss ich dort etwas anpassen?
AW: Zellen kopieren aus Workbook
03.08.2009 18:26:59
Daniel
Hi
wenn deine Daten immer im ersten Tabellenblatt stehen nein.
wenn das Tabellenblatt auch mal ein eineranderen Position im Register stehen kann, aber eiinen festen Namen hat, dann musst du es so anpassen:
'Bewerberungsdatei öffnen
Set wbBewerbung = Workbooks.Open(Filename:=Pfad & Datei, ReadOnly:=True)
Set shBewerbung = wbBewerbung.Sheets("DeinTabellenblattname")
Gruß, Daniel
Anzeige
AW: Zellen kopieren aus Workbook
03.08.2009 18:34:51
Sebastian
'Bewerberungsdatei öffnen
Set wbBewerbung = Workbooks.Open(Filename:=Pfad & Datei, ReadOnly:=True)
Set shBewerbung = wbBewerbung.Sheets("DeinTabellenblattname")
Fehlermeldung bei Set wbBwerbung : "fehler beim kompilieren: Erwartet:Ausdruck"
was heisst das?
AW: Zellen kopieren aus Workbook
03.08.2009 18:45:08
Daniel
Hi
das bedeutet, daß ein Fehler aufgetreten ist und der Kompiler einen Wert erwartet der nicht vorhanden ist.
welche Werten haben die Variablen "Pfad" und "Datei"?
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige