Zeilen in andere Datei verschieben- VBA -

Bild

Betrifft: Zeilen in andere Datei verschieben- VBA -
von: Sebastian
Geschrieben am: 13.10.2015 16:16:10

Hallo Zusammen,
ich habe bei euch ein Makro gefunden, welches mir aus verschiedenen Tabellenblättern Zellen in ein Zielblatt kopiert. Das Makro funktioniert auch super, nur möchte ich nun das die Zeilen in eine andere Datei (datei2.xlsm) in ein bestimmtes Tabellenblatt (Auswertung)kopiert werden. Wie muss der Code dazu angepasst werden?

  • 
    Sub zusammenführen()
        Dim shMain As Worksheet
        Dim sh As Object
        Set shMain = Sheets("Auswertungen")
        For Each sh In ThisWorkbook.Worksheets
            Select Case Right(sh.Name, 4)
                Case Is = "2011"
                  sh.Range("A4:Q" & sh.Cells(sh.Rows.Count, 1) _
                  .End(xlUp).Row + 1).Copy Destination:= _
                  shMain.Cells(shMain.Cells(shMain.Rows.Count, 1) _
                  .End(xlUp).Row + 1, 1)
                Case Else
            End Select
        Next
    End Sub

  • Vielen Dank
    Gruß Sebastian

    Bild

    Betrifft: AW: Zeilen in andere Datei verschieben- VBA -
    von: ChrisL
    Geschrieben am: 13.10.2015 19:05:51
    Hi Sebastian
    Set shMain = Sheets("Auswertungen")
    anpassen in
    Set shMain = Workbooks("datei2.xlsm").Sheets("Auswertungen")
    bedingt, dass die Datei offen ist.
    cu
    Chris

    Bild

    Betrifft: AW: Zeilen in andere Datei verschieben- VBA -
    von: sebastian
    Geschrieben am: 13.10.2015 22:02:17
    und was wenn die Datei geschlossen ist??Ich denk mal müsste zuvror über vba geöffnet werden. Könnte man das noch ergänzen.
    Gruß Sebastian

    Bild

    Betrifft: AW: Zeilen in andere Datei verschieben- VBA -
    von: ChrisL
    Geschrieben am: 14.10.2015 08:41:43
    Hi Sebastian
    Keine rocket science (sowas lässt sich gut mit dem Makrorekorder aufzeichnen oder innert Sekunden googeln)...
    Workbooks.Open Filename:="C:\Pfad\datei2.xlsm"
    cu
    Chris

    Bild

    Betrifft: AW: Zeilen in andere Datei verschieben- VBA -
    von: Sebastian
    Geschrieben am: 14.10.2015 20:23:48
    Hallo Chris,
    funktioniert, Danke.
    Gruß

    Bild

    Betrifft: AW: Zeilen in andere Datei verschieben- VBA -
    von: Sebastian
    Geschrieben am: 14.10.2015 21:00:12
    Hallo Chris,
    irgendwie bekomme ich ein Laufzeitfehler 9: Index außerhalb des gültigen Bereichs und zwar in der Zeile

    Set shMain = Workbooks("Übersicht_Reparaturaufträge_RA_2015.xlsm").Sheets("Tabelle1")
    ich habe ein paar mal die Rechtschreibung geprüft und die stimmt.Ich komme hier an der Stelle nicht weiter. Hier nochmal der ganze Code
    Sub zusammenführen()
        Dim shMain As Worksheet
        Dim sh As Object
        Set shMain = Workbooks("Übersicht_Reparaturaufträge_RA_2015.xlsm").Sheets("Tabelle1")
        Workbooks.Open Filename:= _
            "\\XXXXXXX\XXXXX\XXXXX\XXXX\XXX\Reparatur\Übersicht_Reparaturaufträge_RA_2015.xlsm"
        For Each sh In ThisWorkbook.Worksheets
            Select Case Right(sh.Name, 3)
                Case Is = ".KW"
                  sh.Range("A5:az" & sh.Cells(sh.Rows.Count, 1) _
                  .End(xlUp).Row + 1).Copy Destination:= _
                  shMain.Cells(shMain.Cells(shMain.Rows.Count, 1) _
                  .End(xlUp).Row + 1, 1)
                Case Else
            End Select
        Next
    End Sub


    Bild

    Betrifft: AW: Zeilen in andere Datei verschieben- VBA -
    von: ChrisL
    Geschrieben am: 15.10.2015 08:51:48
    Hi Sebastian
    Die beiden Code-Zeilen musst du wechseln d.h. zuerst öffnen und nachher das Blatt definieren.
    cu
    Chris

    Bild

    Betrifft: AW: Zeilen in andere Datei verschieben- VBA -
    von: Sebastian
    Geschrieben am: 16.10.2015 14:26:20
    Hallo Chris,
    jetzt funktioniert es, Danke!

     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Zeilen in andere Datei verschieben- VBA -"