Thema Datum  Von Nutzer Rating
Antwort
10.05.2014 09:00:39 Jonny8
NotSolved
10.05.2014 09:03:53 Gast4655
NotSolved
Rot Bestimmte Werte aus sehr vielen Dateien herauskopieren
 10.05.2014 10:07:49 Gast5343
NotSolved
10.05.2014 11:51:46 Gast89834
NotSolved
10.05.2014 12:24:27 Gast86635
NotSolved
10.05.2014 12:33:14 Gast693
NotSolved

Ansicht des Beitrags:
Von:
Gast5343		 Datum:
10.05.2014 10:07:49		 Views:
733		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Werte aus sehr vielen Dateien herauskopieren		 
Sub sammeln()
Dim fd, Pfad, Dateiname, lr
Dim Suchstring As String
Dim Zelle As Range
Dim C As Variant
Dim wkb As Workbook
Dim lNextrow As Long
Dim Ra As Range
Set Ra = Range("A1:A300")
Suchstring = "How you can find us"
   Set wkb = ActiveWorkbook
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show() = True Then
    Pfad = fd.SelectedItems(1) & "\"
    Dateiname = Dir(Pfad & "*.xls")
    Do While Dateiname <> ""
     With Workbooks.Open(Pfad & Dateiname, , True)
      For sh = 1 To .Worksheets.Count

Set Zelle = Ra.Find(What:=Suchstring, After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        
        lNextrow = wkb.Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row + 1
        lCurrentRow = 2
        ActiveWorkbook.Worksheets(1).Zelle.Copy wkb.Worksheets(1).Cells(lNextrow, 1)
    Application.CutCopyMode = False
        

       
      Next
      .Close False
     End With
     Dateiname = Dir()
    Loop
End If
End Sub

Update:
hab nun einige fehler gefunden aber leider is immer noch der wurm drin ...

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.05.2014 09:00:39 Jonny8
NotSolved
10.05.2014 09:03:53 Gast4655
NotSolved
Rot Bestimmte Werte aus sehr vielen Dateien herauskopieren
 10.05.2014 10:07:49 Gast5343
NotSolved
10.05.2014 11:51:46 Gast89834
NotSolved
10.05.2014 12:24:27 Gast86635
NotSolved
10.05.2014 12:33:14 Gast693
NotSolved