Thema Datum  Von Nutzer Rating
Antwort
Rot Copy Inhalt aus Array von Workbooks
 17.03.2022 09:54:11 Tung
NotSolved
17.03.2022 18:50:46 Yal
NotSolved
17.03.2022 18:52:15 Yal
NotSolved

Ansicht des Beitrags:
Von:
Tung		 Datum:
17.03.2022 09:54:11		 Views:
634		 Rating:
     
Antwort:
  Ja
Thema:
Copy Inhalt aus Array von Workbooks

Hey Leute,

ich brauch mal bitte etwas Hifle und zwar möchte ich einen bestimmten Inhalt aus mehreren Workbooks kopieren. Die sind alle gleich, heißen auch gleich und haben nur einen unterschiedlichen Pfad. Jetzt habe ich an einen Array gedacht weiß aber nicht so ganz wie man das implementiert. Für die Kopierfunktion habe ich etwas aus dem Internet benutzt, was auch funktioniert wenn es Copy und Paste von einem zum anderen ist . Mein momentaner code wie folgt:

Sub Copy_Paste_Below_Last_Cell()

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long

  Set wsCopy = Workbooks("New Data.xlsx").Worksheets("Export 2")
  Set wsDest = Workbooks("Reports.xlsm").Worksheets("All Data")

  lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
  lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

  wsCopy.Range("A2:D" & lCopyLastRow).Copy _
    wsDest.Range("A" & lDestLastRow)

End Sub

 

Jetzt möchte ich bei Copy ein Array haben. 

VG Tung

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Copy Inhalt aus Array von Workbooks
 17.03.2022 09:54:11 Tung
NotSolved
17.03.2022 18:50:46 Yal
NotSolved
17.03.2022 18:52:15 Yal
NotSolved