Hallo zusammen,

als Neuling in der VBA Programmierung musste ich mich direkt an ein komplexes Thema begeben und hänge leider fest. Vielleicht könnt Ihr mir weiterhelfen.

Ich möchte per Makro-Befehl aus diversen Excel-Tabellen verschiedene Feldwerte auslesen und in einer neuen Exceltabelle zusammenfassen.

Offensichtlich werden die gewünschten Dateien auch geöffnet aber der Bereich copy & Paste funktioniert nicht. Es werden keine Werte in die neue Tabelle geschrieben. Könnt ihr mir weiterhelfen?

Hier mein Code:

<pre class="brush:vb;"> Sub Daten_aus_verschiedenen_Excel_Dateien_zusammenfassen &#39; &#39; Dim Ziel As Workbook Set Ziel = ThisWorkbook &#39;f&uuml;r Excel Zwischenspeicherung Dim Pfad, Dateiname Pfad = &quot;R:\Listen\&quot; Dateiname = Dir(Pfad &amp; &quot;*.*&quot;) Do While Dateiname &lt;&gt; &quot;&quot; &#39;&ouml;ffne Quelldatei Dim AktuelleMappe As Workbook Set AktuelleMappe = ActiveWorkbook Worksheets(1).Range(&quot;D1&quot;).copy &#39;kopiere alles zur Zieldatei Ziel.Worksheets(1).Activate &#39;wechselt zur Zieldatei zur&uuml;ck Ziel.Worksheets(1).Range(&quot;A2&quot;).PasteSpecial _ Paste:=xlPasteValues AktuelleMappe.Activate Worksheets(1).Range(&quot;C3&quot;).copy &#39;kopiere alles zur Zieldatei Ziel.Worksheets(1).Activate &#39;wechselt zur Zieldatei zur&uuml;ck Ziel.Worksheets(1).Range(&quot;B2&quot;).PasteSpecial _ Paste:=xlPasteValues Worksheets(1).Range(&quot;G5&quot;).copy &#39;kopiere alles zur Zieldatei Ziel.Worksheets(1).Activate &#39;wechselt zur Zieldatei zur&uuml;ck Ziel.Worksheets(1).Range(&quot;c2&quot;).PasteSpecial _ Paste:=xlPasteValues Application.CutCopyMode = False &#39;setzt Zwischenablage in Datei ein Worksheets(1).Cells(1, 1).Select &#39;zeigt Zieldatei wieder an Rows(&quot;2&quot;).Select Selection.Insert Shift:=x1Down Dateiname = Dir() Loop End Sub </pre> <p> &nbsp;</p>

Danke

Stefan