Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Drei Zellen aus Mappen kopieren

Drei Zellen aus Mappen kopieren
19.02.2005 16:14:44
Michael
Hallo,
habe folgendes Makro gefunden und auch schon benutzt. Nun möchte ich aber zusätzlich die Zellen A7 und B17 kopieren. Hab schon viel versucht, nur bekomme ich es allein nicht hin. Denke mal das das kein großes Problem ist und ganz einfach nur als Anfänger komme ich da nicht weiter.

Sub auslesen()
Dim i As Long
Const verz = "C:\Daten\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i))
ThisWorkbook.Worksheets("Tabelle1").[B65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("Daten").[E15]
quelle.Close
Next i
End Sub

MfG
Michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drei Zellen aus Mappen kopieren
Bert
"Nun möchte ich aber zusätzlich die Zellen A7 und B17 kopieren..."
Schön, und wohin?
Bert
AW: Drei Zellen aus Mappen kopieren
19.02.2005 16:24:29
Michael
Hallo Bert,
die sollen jeweils in die nächste freie Spalte der Tabelle1. Denke das ich das hin bekomme über offset, nur dich hab keine Ahnung wie ich die anderen Zellen zum kopieren anspreche.
MfG
Michael
AW: Drei Zellen aus Mappen kopieren
19.02.2005 16:27:22
Josef
Hallo Michael!
Sollte es tun!

Sub auslesen()
Dim i As Long, lastRow As Long
Dim fs As FileSearch
Dim quelle As Workbook
Dim ziel As Worksheet
Const verz = "C:\Daten\"
ChDir verz
Set ziel = ThisWorkbook.Worksheets("Tabelle1")
lastRow = ziel.[B65536].End(xlUp).Row
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Set quelle = Workbooks.Open(.FoundFiles(i))
lastRow = lastRow + 1
ziel.Cells(lastRow, 1) = quelle.Worksheets("Daten").[E15]
ziel.Cells(lastRow, 2) = quelle.Worksheets("Daten").[A7]
ziel.Cells(lastRow, 3) = quelle.Worksheets("Daten").[B17]
quelle.Close False
Set quelle = Nothing
Next
End With
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Drei Zellen aus Mappen kopieren
19.02.2005 16:37:36
Michael
Super das geht!!!!
Danke Sepp für deine schnelle Hilfe. Natülich auch ein Danke an Bert.
MfG
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige