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"