Microsoft Excel

Herbers Excel/VBA-Archiv

Mappen öffnen, Daten einfügen und kopieren

Betrifft: Mappen öffnen, Daten einfügen und kopieren von: Robert Aalderink
Geschrieben am: 14.09.2004 21:26:22

Hallo,

Nach langer Zeit habe ich im Archive von Herber, ein Code gefunden womit ich ein Teil meines Zieles erreichen kann. Mappen öffnen mittels eine Liste.

Option Explicit

Sub Readfiles() 

Dim iCounter As Integer 
With Application.FileSearch 
    .LookIn = Range("B1").Value 
    .Filename = "*.xls" 
    .Execute 
    For iCounter = 1 To .FoundFiles.Count 
        Cells(iCounter + 1, 1).Value = Dir(.FoundFiles(iCounter)) 
        
        Next iCounter 
    End With 
       
End 
Sub 



Option Explicit 

Sub openfiles() 

    
    Dim wks As Worksheet 
    Dim iRow As Integer 
    Dim sPath As String 
    Application.ScreenUpdating = False 
    Application.EnableEvents = False 
   
    Set wks = ActiveSheet 
    iRow = 1 
    sPath = Range("B1").Value 
    On Error GoTo ERRORHANDLER 
    Do Until IsEmpty(wks.Cells(iRow, 1)) 
        iRow = iRow + 1 
        If LCase(wks.Cells(iRow, 2).Value) = "x" Then 
        Workbooks.Open sPath & "\" & wks.Cells(iRow, 1).Value, False 
       
    End If 
    Loop 

ERRORHANDLER: 

    Application.EnableEvents = True 
    Application.ScreenUpdating = True 
  
End 
Sub 


Jetzt brauchte ich zusätzlich noch eine Schleife die es ermöglicht in alle vom Code geöffnete Mappen, Daten von der Mappe "Main" Worksheet("Data").Range("A1:D1), dort in den Zellen vom Worksheet("Input").range("E1:E4")einzufügen.(Transpose?) Nachdem die Daten eingefügt würden, müsste in jede einzelne Mappe auch wieder Daten kopiert werden (Range("D1:D4")um anschliessend in der Mappe "Main" eingefügt zu werden. Nachher müsste der Code wiederum Daten von der Mappe "Main" Worksheet("Data").Range("A2:D2), in den Zellen Worksheet("Input").range("E1:E4") einfügen und kopieren.(Schleife) usw....!
Hört sich alles sehr kompliziert an und ist es auch für mich. Hoffentlich könnt ihr mich weiter helfen oder jedenfalls hinweise geben!

Grüsse

Robert


  


Betrifft: AW: Mappen öffnen, Daten einfügen und kopieren von: Gorginio
Geschrieben am: 14.09.2004 22:09:42

Hallo, es waere extrem hilfreich, wenn du das ganze etwas uebersichtlicher und nur in Worten schreibst.
Ich habe naemlich keinen Plan wo welches Worksheet wie heisst....

lg georg


  


Betrifft: AW: Mappen öffnen, Daten einfügen und kopieren von: Robert Aalderink
Geschrieben am: 14.09.2004 23:53:02

Hallo,

Entschuldigung. Die Schleife sollte nachdem alle Mappen geöffnet sind, vom "Hauptbuch.xls, Daten von Worksheets("Sheet1").Range("A1:D1") in alle vom Code geöffnete Mappen, Worksheets("Input").range("E1:E4")einfügen. (Tranpose?) Nachden die Daten eingefügt wurden sollten die neu berechnete Daten in Range("F1:F4")kopiert werden und im "Hauptbuch" Worksheets("Data").range("G1:G4") eingefügt werden.

Hoffentlich ist das ganze irgendwie deutlich.

Grusse

Robert


 

Beiträge aus den Excel-Beispielen zum Thema "Mappen öffnen, Daten einfügen und kopieren"