Nochmal Mail dür dich Thorsten :-)
Ulf
ich hoffe, ich erreiche dich über einen erneuten Beitrag nochmals. Ich habe eine dritte Datenquelle eingebaut, um die Daten danach konsolidiert untereinander auflisten zu lassen. Soweit läuft auch alles rund. Nur leider listet er mit mit dem Code, den ich unten angehängt habe, die Werte aus Tabelle 1 und 3 auf. Die Werte aus Tabelle 2 nicht. Ich denke, dass hängt irgendwo bei dem Befehl iEnde +1? Nur wo? Ich bin für Hilfe dankbar, habe schon jede Kombi ausprobiert.
Workbooks(1).Activate
'die angegebenen Zeilen für Tabelle 1 werden ausgewählt, kopiert und in Tabelle 3 eingetragen
Workbooks(2).Sheets("Results").Rows(iAnfang1 & ":" & iEnde1).Copy
Range("A4").Select
ActiveSheet.Paste
'die angegebenen Zeilen für Tabelle 2 werden ausgewählt, kopiert und in Tabelle 3 eingetragen
Workbooks(3).Sheets("Results").Rows(iAnfang2 & ":" & iEnde2).Copy
Range("A" & iEnde1 + 1).Select
ActiveSheet.Paste
'die angegebenen Zeilen für Tabelle 3 werden ausgewählt, kopiert und in Tabelle 3 eingetragen
Workbooks(4).Sheets("Results").Rows(iAnfang3 & ":" & iEnde3).Copy
Range("A" & iEnde2 + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
'Tabelle 3, 2 und 1 werden ohne zu speichern wieder geschlossen
Workbooks(4).Close savechanges:=False
Workbooks(3).Close savechanges:=False
Workbooks(2).Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Gruß
Ulf