Daten mit VBA konsolidieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ulf
Versuch es mal so.
Voraussetzung:
- Der folgende Code muss in Tabelle 3 eingefügt werden.
- Du musst für \\NETZWERKPFAD den richtigen Pfad eintragen und für DATEINAME1 und DATEINAME2 den jeweils richtigen Dateinamen

Sub Konsilidieren()
    Dim iAnfang1 As Integer, iEnde1 As Integer, iAnfang2 As Integer, iEnde2 As Integer

    Application.ScreenUpdating = False

    'die Start- und Endwerte für Tabelle1 und 2 werden durch Inputbox vom Anwender erwartet
    iAnfang1 = InputBox("Geben Sie bitte für die erste Tabelle die Startzeile ein.")
    iEnde1 = InputBox("Geben Sie bitte für die erste Tabelle die Endzeile ein.")
    iAnfang2 = InputBox("Geben Sie bitte für die zweite Tabelle die Startzeile ein.")
    iEnde2 = InputBox("Geben Sie bitte für die zweite Tabelle die Endzeile ein.")

    'Tabelle 1 und 2 werden geöffnet
    'Du musst für \\NETZWERKPFAD den richtigen Pfad eintragen und für DATEINAME1 und DATEINAME2 den jeweils richtigen Dateinamen
    Workbooks.Open "\\NETZWERKPFAD\DATEINAME1.xls"
    Workbooks.Open "\\NETZWERKPFAD\DATEINAME12.xls"
    Workbooks(1).Activate

    'die angegebenen Zeilen für Tabelle 1 werden ausgewählt, kopiert und in Tabelle 3 eingetragen
    Workbooks(2).Sheets(1).Rows(iAnfang1 & ":" & iEnde1).Copy
    Range("A1").Select
    ActiveSheet.Paste

    'die angegebenen Zeilen für Tabelle 2 werden ausgewählt, kopiert und in Tabelle 3 eingetragen
    Workbooks(3).Sheets(1).Rows(iAnfang2 & ":" & iEnde2).Copy
    Range("A" & iEnde1 + 1).Select
    ActiveSheet.Paste

    Application.CutCopyMode = False
    Range("A1").Select
    'Tabelle 1 und 2 werden ohne zu speichern wieder geschlossen
    Workbooks(1).Close savechanges:=False
    Workbooks(2).Close savechanges:=False
    Application.ScreenUpdating = True

End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Mit Hilfe dieses Codes werden alle gewünschten Zeilen von der ersten bis zur letztmöglichen Zelle in Tabelle 3 eingefügt.
Diese Variante ist zwar möglich aber nicht sehr elegant.
Eine saubere Lösung wäre es, wenn zusätzlich zur Start- und Endzeile auch noch die Start- und Endspalte, in der sich Daten befinden, mit angegeben wird.
Da Du aber nur Start- und Endzeile in Deiner Frage angibst, kann natürlich der Spaltenbereich nicht berücksichtigt werden.
Konnte ich Dir mit diesem Beispiel helfen?
Ciao
Thorsten

Hi Ulf
Ich habe mit Deinen Bsp-Dateien den Code getestet, und es traten in den folgenden Zeilen Fehler auf:
1. fehlerhafte Zeile (von Dir geändert):
Workbooks(3).Sheets(2).Rows(iAnfang2 & ":" & iEnde2).Copy
Excel konnte Sheets(2) nicht "finden", da in der Bsp-Quelldatei nur ein Tabellenblatt vorhanden ist. Sheets(2) geändert in Sheets(1) löste dieses Problem.
Wenn in Deiner Original-Quelldatei tatsächlich ein 2. Tabellenblatt vorhanden ist, in dem sich DIE Daten befinden, die Du in Tabelle 3 einfügen willst, dann musst Du Sheets(1) natürlich wieder in Sheets(2) ändern.
2. fehlerhafte Zeile
Workbooks(1).Close savechanges:=False
Tja, diese Zeile kam von mir. Warum ich diesen Fehler beim Testen nicht bemerkte, weiß ich nicht.
Mit dieser Befehlszeile wird veranlasst, dass DIE Datei geschlossen wird, in der sich die zusammengeführten Daten und eben der VBA-Code befinden, was ja NICHT passieren sollte.
Und weil eben die Datei geschlossen wird, werden alle nachfolgenden Befehlszeilen NICHT mehr ausgeführt. Ich versteh es immer noch nicht, warum ich diesen Fehler nicht bemerkte ??????
Richtig lautet auch DIESE Zeile
Workbooks(3).Close savechanges:=False
Zuerst wird die zweite Datentabelle geschlossen (Workbooks(3)) und dann die erset Datentabelle (Workbooks(2))
So, und um nun alle Missverständnisse zu vermeiden ;-), lade ich die Dateien, wie sie bei mir funktionieren, auch auf den Server.
https://www.herber.de/bbs/user/4989.xls "Tabelle 3" mit VBA-Code
https://www.herber.de/bbs/user/4990.xls 1. Datentabelle
https://www.herber.de/bbs/user/4991.xls 2. Datentabelle
Pfade & Dateinamen musst Du natürlich wieder anpassen.
Nun bin ICH auf Dein Feedback neugierig :-)
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread