Clever-Excel-Forum

Hallo zusammen,
ich komme nicht auf die Lösung ich will nach dem ich einen bereich von ca 90 Zeilen länge eingefügt habe 3 Zeilen darunter den nächsten einfügen.
ich muss mit Offset arbeiten denke ich. aber nichts funzt Undecided

Ich bin noch anfänger mit VBA also sorry wenn hier große schnitzer drin sind

Code:
Sub neu()

'

ThisWorkbook.Sheets("Woche").Activate

Range("A1").Select

For Index = 1 To 6

Workbooks.Open ("Z:\***\INTERN\16.Auswertungen\" & Date - Index & ".xlsx")

ActiveSheet.Range("A1:AD86").Copy

ThisWorkbook.Sheets("Woche").Activate

ActiveCell.Offset(1, 0).Select

ActiveSheet.PasteSpecial xlPasteAllMergingConditionalFormats

'ThisWorkbook.Sheets("Woche").Offset(1, 0).PasteSpecial xlPasteAllMergingConditionalFormats

Application.CutCopyMode = False

'ActiveWorkbook.Close

'

Exit For

Next

End Sub

Code:
Sub neu()

  Dim wb As Workbook

  Dim thiswb As Workbook

  Set thiswb = ThisWorkbook

    Range("A1").Select

    For Index = 1 To 6

        Set wb = Workbooks.Open("Z:\***\INTERN\16.Auswertungen\" & Date - Index & ".xlsx")

        wb.ActiveSheet.Range("A1:AD86").Copy

        thiswb.Sheets("Woche").Cells(Rows.Count, 1).End(xlUp).Offset(3).PasteSpecial xlPasteAllMergingConditionalFormats

        Application.CutCopyMode = False

        wb.Close

        'Exit For

    Next

End Sub

Dankeschön das hat mir super geholfen.
ein Problem konnte ich jetzt feststellen. wenn ich (aktuell nur 2 Dateien) habe öffnet er mit "Exit for" nur 1 Datei ohne öffnet er beide Dateien aber es kommt ein Fehler weil er die dritte nicht findet.
eine Idee wie ich das lösen kann?

Nun, das hast du gut analysiert. Es könnte oder wird wohl darauf hinauslaufen das du den Code an die realen Gegebenheiten anpassen mußt.
Ich habe das Exit for gar nicht benutzt. Ist auskommentiert.
Wenn du nicht weist wieviel Dateien du im Ordner hast, dann solltest du keine festen Zähler nehmen, sondern eine Variante mit Dir( ).

Enclave

ralf_b

Enclave

ralf_b