Thema Datum  Von Nutzer Rating
Antwort
Rot Exceldateien auslesen und in einer neuen Tabelle zusammenfassn
31.08.2012 14:09:32 Stefan
NotSolved

Ansicht des Beitrags:
Von:
Stefan
Datum:
31.08.2012 14:09:32
Views:
1388
Rating: Antwort:
  Ja
Thema:
Exceldateien auslesen und in einer neuen Tabelle zusammenfassn

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


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
Rot Exceldateien auslesen und in einer neuen Tabelle zusammenfassn
31.08.2012 14:09:32 Stefan
NotSolved