Drei Zellen aus Mappen kopieren

Bild

Betrifft: Drei Zellen aus Mappen kopieren
von: Michael
Geschrieben am: 19.02.2005 16:14:44
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
Bild

Betrifft: AW: Drei Zellen aus Mappen kopieren
von: Bert
Geschrieben am: 19.02.2005 16:18:57
"Nun möchte ich aber zusätzlich die Zellen A7 und B17 kopieren..."
Schön, und wohin?
Bert
Bild

Betrifft: AW: Drei Zellen aus Mappen kopieren
von: Michael
Geschrieben am: 19.02.2005 16:24:29
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
Bild

Betrifft: AW: Drei Zellen aus Mappen kopieren
von: Josef Ehrensberger
Geschrieben am: 19.02.2005 16:27:22
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!
Bild

Betrifft: AW: Drei Zellen aus Mappen kopieren
von: Michael
Geschrieben am: 19.02.2005 16:37:36
Super das geht!!!!
Danke Sepp für deine schnelle Hilfe. Natülich auch ein Danke an Bert.
MfG
Michael
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Drei Zellen aus Mappen kopieren"