Thema Datum  Von Nutzer Rating
Antwort
Rot Wenn Zelle nicht leer, dann diese + Nachbarzelle kopieren
25.08.2017 23:03:21 Tami
*
NotSolved
Blau A
26.08.2017 13:41:41 Ben
NotSolved
28.08.2017 03:05:16 Tami
NotSolved
28.08.2017 13:49:50 Ben
NotSolved
29.08.2017 01:07:27 Tami
NotSolved
29.08.2017 01:54:38 Tami
NotSolved
29.08.2017 12:47:28 Ben
NotSolved
29.08.2017 13:33:59 Tami
NotSolved
30.08.2017 11:25:37 Tami
Solved

Ansicht des Beitrags:
Von:
Tami
Datum:
25.08.2017 23:03:21
Views:
1148
Rating: Antwort:
  Ja
Thema:
Wenn Zelle nicht leer, dann diese + Nachbarzelle kopieren

Hallo alle zusammen, 

 

ich kenne mich nicht ganz so gut mit VBA aus und hoffe auf eure Hilfe. 

Ich habe folgendes Anliegen...

Bin auf der Suche nach einem Code, der folgendes macht:

Ich habe einen Ordner mit .xls-Dateien und eine Zielmappe. Eine Schleife soll alle Arbeitsmappen in diesem Ordner durchgehen und ein bestimmten Tabellenblatt (im bsp. 6-2015, jeden monat kommt ein neues Tabellenblatt hinzu) auslesen. Und zwar wie folgt: In Spalte A sind alle Objekte aufgelistet. Dabei soll mein Makro schauen, wo in Spalte B ein Eintrag ist und dabei diesen EIntrag, sowie die Nachbarzelle (den eintrag aus Spalte A) kopieren und in der Zielmappe untereinander auflisten.

Die kopierten Einträge aus den Spalten A sollen in der Spalte B der Zielmappe eingefügt werden, die Spalten B in der Spalte C der Zielmappe. 

Auf Tabellenblatt 1 ("Einstellungen")  jeder Datei aus dem Ordner steht in Zelle A5 ein Name (im Bsp. User1, 2, etc. genannt). Dieser Name soll in Spalte A der Zielmappe stehen. 

 

Beispiel: 

Arbeitsmappe 1: Tabellenblatt (6-2015)

A               B

Apfel         1

Birne         

Banane    4

 

Arbeitsmappe 2: Tabellenblatt (6-2015)

A               B

Melone     2

Traube     1

Apfel        

 

Zielmappe: Tabellenblatt 1 

A               B              C

User 1     Apfel          1

User 1     Banane      4

User 2     Melone       2

User 2     Traube       1 

 

 

Ich bedanke mich schon im Voraus für eure Hilfe.

Liebe Grüße, 

Tami


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 Wenn Zelle nicht leer, dann diese + Nachbarzelle kopieren
25.08.2017 23:03:21 Tami
*
NotSolved
Blau A
26.08.2017 13:41:41 Ben
NotSolved
28.08.2017 03:05:16 Tami
NotSolved
28.08.2017 13:49:50 Ben
NotSolved
29.08.2017 01:07:27 Tami
NotSolved
29.08.2017 01:54:38 Tami
NotSolved
29.08.2017 12:47:28 Ben
NotSolved
29.08.2017 13:33:59 Tami
NotSolved
30.08.2017 11:25:37 Tami
Solved