Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen vergleichen und Daten kopieren

Forumthread: Tabellen vergleichen und Daten kopieren

Tabellen vergleichen und Daten kopieren
20.07.2015 14:14:47
Andi...
Hallo Excel Spezialisten!!
Ich hoffe Ihr könnt mir helfen.
Ich habe folgenden Sachverhalt, in das Tabellenblatt Rohdaten werden jeden Monat neue Zahlen aus einer Auswertung kopiert. Anschließend möchte ich per VBA folgendes machen:
Die Spalte A aus Tabelle "Daten" und die Spalte A aus Tabelle "Rohdaten" sollen miteinander verglichen werden.
• Werden Werte in den „Rohdaten“ gefunden die in den „Daten“ noch nicht vorhanden sind dann sollen die Werte aus den Spalten A und B von den Rohdaten kopiert und in die Daten am Ende angefügt werden.
• Bei übereinstimmenden Werten, sollen die Inhalte aus den „Rohdaten“ Spalten H, K und L in die Tabelle „Daten“ übertragen werden und zwar dem jeweiligen Monat zugeordnet aus dem die Auswertung stammt (z.B. Januar wären es dann die Spalten H, I und J, Februar die Spalten M, N und O). Den jeweiligen Monat habe ich im Blatt „Einstellungen“ per Formel definiert in B3.
Zur besseren Vorstellung habe ich eine Datei angefügt: https://www.herber.de/bbs/user/98946.xlsx
Wäre super wenn mir jemand helfen könnte.
LG Andi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellen vergleichen und Daten kopieren
20.07.2015 18:02:31
AlexG
Hallo Andi,
So in der Art?
Sub Vergleich()
Dim Monat As Integer
Dim i, j, lngLetzte As Long
Dim bolFound As Boolean
Monat = Sheets("Einstellung").Cells(3, 2)
lngLetzte = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
bolNotFound = False
For i = 2 To Sheets("Rohdaten").Cells(Rows.Count, 1).End(xlUp).Row
    For j = 3 To Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
        If Sheets("Rohdaten").Cells(i, 1) = Sheets("Daten").Cells(j, 1) Then
            Sheets("Daten").Cells(j, Monat * 5 + 3) = Sheets("Rohdaten").Cells(i, 8)
            Sheets("Daten").Cells(j, Monat * 5 + 6) = Sheets("Rohdaten").Cells(i, 11)
            Sheets("Daten").Cells(j, Monat * 5 + 7) = Sheets("Rohdaten").Cells(i, 12)
            bolFound = True
            Exit For
        End If
    Next j
    If bolFound = False Then
        Sheets("Daten").Cells(lngLetzte, 1) = Sheets("Rohdaten").Cells(i, 1)
        Sheets("Daten").Cells(lngLetzte, 2) = Sheets("Rohdaten").Cells(i, 2)
        Sheets("Daten").Cells(lngLetzte, Monat * 5 + 3) = Sheets("Rohdaten").Cells(i, 8)
        Sheets("Daten").Cells(lngLetzte, Monat * 5 + 6) = Sheets("Rohdaten").Cells(i, 11)
        Sheets("Daten").Cells(lngLetzte, Monat * 5 + 7) = Sheets("Rohdaten").Cells(i, 12)
        lngLetzte = lngLetzte + 1
        bolFound = False
    Else
        bolFound = False
    End If
Next i
End Sub
Gruß
Alex

Anzeige
AW: Tabellen vergleichen und Daten kopieren
21.07.2015 06:59:26
Andi...
Hallo Alex,
danke für die schnelle Antwort.
Habe deinen Code eben ausprobiert und es funktioniert genauso wie ich es haben wollte. Vielen Dank dafür.
Gruß
Andi

AW: Tabellen vergleichen und Daten kopieren
20.07.2015 18:06:51
Klexy
1. Wo werden die neuen Zahlen hinkopiert? Unten an die bestehende Liste dran? Oder wird die Liste immer wieder überschrieben?
2. Gibt es einen Grund, warum die Spalten, die offenbar identische Inhalte enthalten, völlig unterschiedlich bezeichnet werden?
3. Sollen bei noch nie dagewesenen Teilen wirklich nur B und T eingetragen werden und keine Messwerte?
4. Woran soll man erkennen, aus welchem Monat ein Datensatz stammt? (je nachdem, wie die Antwort auf Frage 1 lautet)

Anzeige
AW: Tabellen vergleichen und Daten kopieren
21.07.2015 07:12:27
Andi...
Hallo Klexy,
Danke dir ebenfalls für die schnelle Antwort und hier noch die Antworten auf deine Fragen:
zu 1. Die neuen Werte werden sollen immer unten an die bestehende Liste angehängt werden
zu 2. Ich habe hier eine Mustertabelle erstellt, deshalb kann es sein das die Werte ähnlich sind aber die Spalten bezeichnung im Blatt "Rohdaten" ist korrekt so.
zu 3. Bei übereinstimmenden Werten sollen dann auch die Messwerte in den entsprechenden Monat eingetragen werden
zu 4. Die Rohdaten werden jeden Monat überschrieben und unter Einstellungen wird immer der Monat angegeben wo die Messwerte eingetragen werden sollen.
Gruß
Andi

Anzeige
AW: Tabellen vergleichen und Daten kopieren
21.07.2015 18:51:59
Klexy
Tja...
Du: "in das Tabellenblatt Rohdaten werden jeden Monat neue Zahlen aus einer Auswertung kopiert"
Ich: "Wo werden die neuen Zahlen hinkopiert? Unten an die bestehende Liste dran? Oder wird die Liste immer wieder überschrieben?"
Du : "Die neuen Werte werden sollen immer unten an die bestehende Liste angehängt werden"
Wirklich?
Ich denke nein, denn deine 4. Antwort widerspricht dem.
Aber so könnte es gehen:

Sub Rohdaten_übertragen()
Dim zArray As Variant, i As Integer, j As Integer, Monat As Integer
Dim aTeil As String, aBezeichnung As String, aVerbrauch As Double, aKalk As String
Dim aPreis As Currency
Monat = Worksheets("Einstellung").Cells(3, 2).Value
' Array über alle schon vorhandenen Teilenummern:
zArray = Worksheets("Daten").Range("A2:A" & Worksheets("Daten").UsedRange.Rows.Count).Value
' erste mit Daten belegte Zeile im Blatt "Daten":
i = 3
' erste freie Zeile im Blatt "Daten":
n = Worksheets("Daten").Range("A3").End(xlDown).Row + 1
' alle Teilenummern schwarz:
Worksheets("Daten").Columns("A:B").Font.ColorIndex = xlAutomatic
For j = 2 To Worksheets("Rohdaten").Cells(Rows.Count, 1).End(xlUp).Row
aTeil = Worksheets("Rohdaten").Cells(j, 1).Value
aBezeichnung = Worksheets("Rohdaten").Cells(j, 2).Value
aVerbrauch = Worksheets("Rohdaten").Cells(j, 8).Value
aKalk = Worksheets("Rohdaten").Cells(j, 11).Value
aPreis = Worksheets("Rohdaten").Cells(j, 12).Value
If IsError(Application.Match(aTeil, zArray, 0)) Then ' neues Teil
Worksheets("Daten").Cells(n, 1) = aTeil
' neue Teilenummer blau:
Worksheets("Daten").Cells(n, 1).Font.Color = RGB(0, 0, 255)
Worksheets("Daten").Cells(n, 2) = aBezeichnung
Worksheets("Daten").Cells(n, 2 + Monat * 5 + 1) = aVerbrauch
Worksheets("Daten").Cells(n, 2 + Monat * 5 + 2) = aKalk
Worksheets("Daten").Cells(n, 2 + Monat * 5 + 3) = aPreis
n = n + 1
i = i + 1
Else ' vorhandenes Teil
Worksheets("Daten").Cells(i, 2 + Monat * 5 + 1) = aVerbrauch
Worksheets("Daten").Cells(i, 2 + Monat * 5 + 2) = aKalk
Worksheets("Daten").Cells(i, 2 + Monat * 5 + 3) = aPreis
i = i + 1
End If
Next
Worksheets("Daten").Select
Range("A3").End(xlDown).Select
MsgBox "Fertig"
End Sub
Wenn der Preis vom Makro nur mit 2 Dezimalstellen erfasst. In den Rohdaten werden 3 angezeigt und die Werte haben teilweise 10 Stellen hinter dem Komma. Wenn die Preise bei der Übertragung so präzise bleiben sollen, musst du die Zuweisung oben von "Currency" auf "Double" umstellen. Dann musst du allerdings erst die entsprechenden Spalten als Währung formatieren, was bisher nicht der Fall ist.
Praxishilfe: die neuen Teile werden jeweils blau gefärbt, damit man sie besser erkennt.

Anzeige
AW: Tabellen vergleichen und Daten kopieren
22.07.2015 06:56:10
Andi...
Hallo Klexy,
da habe ich wohl deine Frage falsch verstanden. Du hast natürlich recht, die Werte im Tabellenblatt "Rohdaten" werden jeden Monat neu überschrieben und im Tabellenblatt "Daten" werden die neuen Daten unten an der Liste hinzugefügt.
Ich habe dein Makro ausprobiert und es funktioniert super, vielen Dank und das mit der Farbe ist eine gute Idee.
Gruß
Andi
Anzeige
;

Forumthreads zu verwandten Themen

Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Kopieren mit Filter
Thomas

Hallo,
ich habe mir Excel 2007 installiert und habe ein Problem, was ich bei Excel 2003 nicht hatte.
Wenn ich einen Filter setze und das gefilterte in einen anderen Tabellenblatt kopiere (über kopie&paste), wurde in excel 2003 nur das sichtbare bzw. gefilterte kopiert. In excel 2007...
20.06.2009 22:18:01
Thread-ID: 1083161
2 Beiträge
Hyperlinks kopieren mit Advanced Filter
Oliver

Hallo,
ich habe ein Tabelle, die ich über eine Advanced Filter Routine in ein anderes Tabellenblatt innerhalb der gleichen Excel Datei filtere. Als VBA Laie habe ich mir die benötigten Makros aus diversen Foren zusammenkopiert und meine Tabellen "drum herum" gebaut. Funktioniert einwandfrei...
22.06.2009 19:43:04
Thread-ID: 1083580
6 Beiträge
Anzeige
In Tabelle Suchen und Bereich kopieren - Bitte Hil
Marc

Hallo,
auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Cus...
25.06.2009 20:52:35
Thread-ID: 1084450
4 Beiträge
Werte filtern und "kopieren"
Sören

Hallo Expertenteam!
Ich benötige eure Hilfe. Es gibt ein Tab-.Blatt mit einer riesiegen Matrix aus der Werte in ein anderes Tab.-Blatt sollen. Dafür müssen verschiedene Bedingungen erfüllt werden. Zum einen muss aus Spalte A ein Wert identisch sein und dann müssen aus einer 6stelligen Angab...
05.12.2009 22:55:30
Thread-ID: 1121996
6 Beiträge
Daten filtern, kopieren und inneue Tabelle einfüge
Luan

Hallo
Habe folgendes Problem
Ich möchte Daten aus der Grunddatentabelle filtern, kopieren und in die Tabelle Arbeitsplan einfügen
Dabei soll die Tabelle Arbeitsplan immer überschrieben werden.
Ich muss einzelne sog. Posten filtern und untereinander einfügen, gleichzeitig müssen...
17.06.2010 17:29:17
Thread-ID: 1161439
2 Beiträge
2 Mappen, 2 Tabellen, suchen und kopieren
Bernhard

Hallo zusammen,
ich habe ein Problem. Ich versuche in Datei 1 (ThisFileName), Tabelle 1("NewBOM") einen bestimmten Inhalt einer Spalte zu suchen, und bei jedem gefundenen Eintrag, die gesamt Zeile in Dateie 2(NewFileName) Tabelle 1 ("New BOM") zu kopieren. Mappen heißen unterschiedlich, die...
01.08.2010 08:22:35
Thread-ID: 1169876
8 Beiträge
Filtern und wegkopieren von bestimmten Zeilen
Josef

Guten Morgen!Ich habe z.B.in der Tabelle1 in Spalte A 20 Zeilen mit 1, danach 45 Zeilen mit 2, danach 80 Zeilen mit 3 usw.(von 1-9)Jetzt sollen alle Zeilen in denen in der Spalte A eine 2 vorkommt ausgeschnitten und in ein neues Blatt z.B.Tabelle2 kopiert werden. Das gleiche mit 3 in Tabelle3 u...
07.05.2002 08:43:09
Thread-ID: 119035
7 Beiträge
Tabelle filtern mit Formel und kopieren
Sid

Hallo zusammen,
ich habe folgendes Problem.
Ich möchte eine Tabelle mit einer Formel filtern lassen nach einen Kriterium und damit eine neue erstellen lassen. Meine Tabelle ist sehr umfangreich und ich habe daher ein kleines einfaches Beispiel gemacht.
Ich habe übrigens schon alles...
01.12.2010 12:02:57
Thread-ID: 1189564
8 Beiträge
Anzeige
Daten durch VBA filtern und in neue Datei kopieren
Julia

Hi,
ich habe das Problem, dass man in Pivottabellen aus irgendeinen Grund den Filter nicht teilweise sperren kann. Soll heißen ich habe eine Buchhaltungsdatei die sämtliche Rechnungen etc. enthält. Eine Spalte gibt die Abteilung an und eine die Unterabteilungen. Jeder Abteilungsleiter soll...
04.07.2013 14:09:38
Thread-ID: 1321094
2 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

Hi,
ich war im Urlaub und jetzt liegt mein Beitrag schon im Archiv: Daher neuer Thread:
https://www.herber.de/forum/archiv/1320to1324/t1321094.htm
also ich habe versucht den Code auf meine Datei zu übertragen. An sich klappt es auch aber mitten drin bricht Excel ab mit dem Grund "T...
15.07.2013 10:41:35
Thread-ID: 1322445
7 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

https://www.herber.de/forum/archiv/1320to1324/t1321094.htm
Hi,
wie gebe ich einen Ordner an. Bisher steht in meinem Code
strOrdner = ActiveWorkbook.Path 'Haupt-Ordner der Abteilungs-Dateien - ggf. anpassen !!!!
Wie kann ich einen von mir ausgewählten Ordner als Speicherort ang...
24.07.2013 08:21:38
Thread-ID: 1323778
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige