Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten vergleichen

Daten vergleichen
12.03.2004 11:33:45
Frank
Hallo zusammen !
Folgendes Problem :
Bekomme jeden Tag eine Tabelle mit Lagerbeständen. Aufbau in Spalten (d.h. in A - Artikelnr. in B - Name in C - Preis und in D - Menge) beginnt ab Zeile 3.
Leider verändern sich sämtliche Daten d.h. auch die Artikelnr. sind nicht immer die gleichen.
Wie kann man nun die beiden Tabellen miteinander abgleichen (heute mit gestern) und bekommt bsp. in einer dritten Tabelle sämtliche veränderungen ausgewiesen.
bin dankbar für jede hilfe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten vergleichen
12.03.2004 12:17:45
Jörg
Hallo Frank,
versuch mal Pivottabellen / mehrere Konsolidierungsbereiche ....
Ciao Jörg
AW: Daten vergleichen
12.03.2004 12:38:47
Beni
Hallo Frank,
benenne Tabelle1 "Heute",Tabelle2 "Gestern" und Tabelle3 "Veränderung".
Gruss Beni

Sub Abgleich1()
With Sheets("Veränderung").Cells.ClearContents
End With
Sheets("Heute").Select
For i = 3 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(i, 1)
With Sheets("Gestern").Columns(1)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then
With Sheets("Veränderung")
r = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=.Cells(r, 1)
End With
Else
If Cells(i, 3) <> C(1, 3) Or Cells(i, 4) <> C(1, 4) Then
With Sheets("Veränderung")
r = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=.Cells(r, 1)
End With
End If
End If
End With
Next i
End Sub




Sub Abgleich2()
With Sheets("Veränderung").Cells.ClearContents
End With
Sheets("Gestern").Select
For i = 3 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(i, 1)
With Sheets("Heute").Columns(1)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then
With Sheets("Veränderung")
r = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=.Cells(r, 1)
End With
Else
If Cells(i, 3) <> C(1, 3) Or Cells(i, 4) <> C(1, 4) Then
With Sheets("Veränderung")
r = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=.Cells(r, 1)
End With
End If
End If
End With
Next i
End Sub


Anzeige
AW: Daten vergleichen
12.03.2004 16:05:56
Frank
@ beni
danke danke danke - für die schnelle hilfe
absolut super !

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige