Thema Datum  Von Nutzer Rating
Antwort
14.10.2020 12:52:16 MH
NotSolved
14.10.2020 13:57:33 Gast93089
NotSolved
14.10.2020 16:38:06 Gast84114
NotSolved
14.10.2020 17:49:46 Gast12967
NotSolved
15.10.2020 10:23:10 Gast25351
NotSolved
Blau Mehrere Excel-Dateien zu einer Datei zusammenfassen
 15.10.2020 13:11:43 Gast86679
NotSolved

Ansicht des Beitrags:
Von:
Gast86679		 Datum:
15.10.2020 13:11:43		 Views:
549		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Excel-Dateien zu einer Datei zusammenfassen

Kleiner Tip zur Alternative.

Anstatt mit Indizes zu arbeiten, verwende Range.Offset um die Zeile zu referenzieren.

Option Explicit

Sub Test()

  Dim rngSource As Excel.Range
  Dim rngTarget As Excel.Range
  Dim n         As Long
  
  'setze Referenz auf ersten Einfügepunkt
  Set rngTarget = Range("A1")
  
  Do While n < 2
    
    n = n + 1
    
    Debug.Print "n =";  n
    Debug.Print "bin gerade hier: "; Tab(3); rngTarget.Address
    
    'Quelldaten referenzieren (als Beispiel ist Zeilenanzahl hier zufällig)
    Set rngSource = Tabelle2.Range("C13:CZ13").Resize(RowSize:=WorksheetFunction.RandBetween(2, 30))
    
    'kopiere Datenbereich
    Debug.Print "kopiere Bereich: "; Tab(3); rngSource.Address; Spc(4); rngSource.Rows.Count; "Zeilen"; Tab(3); "nach " & rngTarget.Address
    Call rngSource.Copy(Destination:=rngTarget)
    
    'setze Referenz auf nächsten Einfügepunkt
    Set rngTarget = rngTarget.Offset(rngSource.Rows.Count)
    
  Loop
  
End Sub

Ausgabe (z.B.):

n =1
bin gerade hier: 
  $A$1
kopiere Bereich: 
  $C$13:$CZ$26     14 Zeilen
  nach $A$1
n =2
bin gerade hier: 
  $A$15
kopiere Bereich: 
  $C$13:$CZ$42     30 Zeilen
  nach $A$15

 

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
14.10.2020 12:52:16 MH
NotSolved
14.10.2020 13:57:33 Gast93089
NotSolved
14.10.2020 16:38:06 Gast84114
NotSolved
14.10.2020 17:49:46 Gast12967
NotSolved
15.10.2020 10:23:10 Gast25351
NotSolved
Blau Mehrere Excel-Dateien zu einer Datei zusammenfassen
 15.10.2020 13:11:43 Gast86679
NotSolved