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:
24
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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