Forum:Excel
Thema:Zeilenabschnitte aus xls-Dateien lesen und in eine kopieren
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
TheBigBird

Beiträge: 2 / 0

Hi Frank, danke erstmal für die Antwort. Deine Änderungen sind klar und ich hab sie direkt eingearbeitet.

Der Code gestaltet sich wie folgt:

Code:
    Sub Test()
   
    strPath = "D:\Users\SimonStrauss\Documents\Sollstundenberechnung FAA\Rechner-Liste"
        strExt = "*.xls"
        Dim strFile As String
        If strPath = "" Then
            Exit Sub
        Else
            strFile = Dir(strPath & strExt)
            Do While Len(strFile) > 0
                Workbooks.Open Filename:=strPath & strFile
               
               
                Sheets("Verteilung").Select
                           
                Dim i As Integer
                Dim cell As Range
                i = 5
                For Each cell In Verteilung
                'Cluster 2
                          Cells("L83:R83").Select
                          Range("U91").Select
                          Range("J5").Select
                'Cluster 5
                          Cells("L196:R196").Select
                          Range("U204").Select
                          Range("U206").Select
                ' Cluster 8
                          Cells("L308:R308").Select
                          Range("U316").Select
                          Range("U318").Select
                ' Cluster 10
                          Cells("L428:R428").Select
                          Range("U436").Select
                          Range("U438").Select
                             
                  Selection.Copy
                  Windows("Zeitraumberechung Soll FAA-Std MakroTest2.xlsm").Activate
                  Sheets("Import").Select
                    Range("C" & i & ":AU" & i).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
                  i = i + 1
                  Next cell
                             
            Workbooks(strFile).Close
                strFile = Dir() ' nächste Datei
            Loop
        End If
   
    End Sub
                               

Er bringt jetzt auch keine Fehlermeldung mehr, passieren tut aber trotzdem nichts...

Ist den der Code für den oberen, bzw. unteren Teil in dem ich die einzelnen xls Dateien anwähle, öffne und schließe korrekt?