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?