Tabellen vergleichen und zusammenfügen

Hallo zusammen,
habe eine Tabelle in der schon einige Makros ausgeführt werden.
Programmiertechnisch nicht das Feinste aber es funktioniert wie ich es möchte.
Jetzt habe ich zum Abschluss -.- noch einen weiteren Wunsch bekommen.
Erklärung der Tabelle:
5W-Verfolgung = Haupttabelle in der gearbeitet wird
Einlesen = Nebentabelle in welche ein Accessdatensatz kopiert wird, formatiert, gefiltert etc. und - dann im Moment - prüft, welche laufende Nummer in 5W-Verfolgung B:B die Höchste ist und anschließend und alle, die nicht rausgefiltert wurden, von Einlesen nach 5W-Verfolgung schiebt.
soweit funktioniert auch alles.
Jetzt ist leider der Wunsch geboren, dass nicht nur die letzten Werte geprüft werden sollen, sondern ALLE Zeilen auf Änderungen und diese aus Einlesen in 5W-Verfolgung übertragen (überschrieben) werden sollen.
Zusätzlich natürlich weiterhin die Zeilen, die noch nicht vorhanden sind.
Als Primärid kann die Spalte A3:A genutzt werden.
Leider hören dort meine Kenntnisse auf, wie ich die einzelnen Zellen so gezielt vergleichen kann. Hoffe ihr könnt mir helfen.
Habe eine Musterdatei angehängt.
https://www.herber.de/bbs/user/122573.xlsm
vielen Dank
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
diese Macke von Excel kannte ich bisher noch nicht.
Insbesondere das aus Wert FALSCH plötzlich nichts wird wenn der Wert von einer Zelle in eine andere geschrieben wird - Microsoft/Excel und die Welt der Zahlen überraschen immer wieder.
Das Problem ist, das leere Zellen in machen Situationen als 0 interpretiert werden.
FALSCH hat mathematisch (und in Excel im Hintergrund auch) den Wert 0.
Ich hab jetzt ein paar Klimmzüge eingebaut, um dieses Problem zu umschiffen.
Den Makro-Abschnitt muss du dann austauschen.
Gruß
Franz

    'Diese Variablendeklaration oben bei den andern Dim-Zeilen einfügen
Dim bol_E As Boolean, bol_Z As Boolean, rngZiel As Range, rngQuelle As Range
If Spalte_E > 0 Then
'Prüfen, ob Wert in Spalte geändert ist
Set rngZiel = .Cells(Zeile_5W, Spalte_5W)
Set rngQuelle = wksEinlesen.Cells(Zeile_E, Spalte_E)
Select Case Spalte_E
Case 9     'Sonderbehandlung von Spalten mit boolschen Werten WAHR/FALSCH
'Zellinhalte in boolschen Variablen speichert
'Leere Zellen liefern False/FALSCH
bol_Z = rngZiel.Value 'leere Zelle liefert False
bol_E = rngQuelle.Value
If rngZiel.Text = "" And rngQuelle.Text = "" Then
'beide Zellen leer
ElseIf IsEmpty(rngQuelle) Then
'Zelle in Quelle ist leer -- Inhalt in Ziel löschen
rngZiel.ClearContents
ElseIf IsEmpty(rngZiel) Then
'Zielzelle ist leer Falsch wird aus Quelle jetzt auch eingetragen
rngZiel.Value = bol_E
Else
If bol_Z  bol_E Then
rngZiel.Value = bol_E
End If
End If
Case Else
If rngZiel.Value  rngQuelle.Value Then
rngZiel.Value = rngQuelle.Value
End If
End Select
End If

Beliebteste Forumthreads (12 Monate)

Tabellen vergleichen und zusammenfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellen vergleichen und zusammenfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread