Vergleichen , und falls gleich, zeilen löschen..

Question

Hallo zusammen,

mein Bruder und ich haben ein gemeinsames problem, wo wir Hilfe
erfragen möchten.
Wir haben beide ein Messinstrument, dass Elektr. Geräte prüft, die
Resultate dann in einer MS-Datenbank speichert. Nun haben wir
beide teilweise die selben Geräte geprüft, ohne zu wissen, dass
das schon erledigt war. Nun möchten wir aus den beiden Datenbanken eine machen. Dazu haben wir eine Abfrage erstellt,
die wir über die jeweilige Datenbank gehetzt haben. Das Ergebnis
wurde von beiden in einer EXCEL-Tabelle gespeichert.
Nun das Problem:
In dieser Tabelle sollen die WERTE der Spalten C;E;F und H;
zeilenweise; jeweils auf Übereinstimmung mit den
entsprechenden ZELLEN aus den folgenden 3Zeilen
verglichen werden. NUR wenn alle VIER WERTE aus z.B:
c1+e1+f1+h1 mit - - c3+e3+f3+h3 übereinstimmen, sollen die
beiden ZEILEN mit der Übereinstimmung markiert und
GELÖSCHT werden.
Uff, hoffentlich versteht das noch jemand,
was ich da verzapft habe..

Schöne Grüsse und besten Dank vorab,
unwissend...

Answer 1

@Erich:
das sehe ich nicht als rauswinden, sondern klare Ansage, wo man
sich sicher fühlt. Das verstehe ich absolut.

@paul1:
E ist ja tatsächlich so, dass hier bereits 2 Access-DB vorliegen.
Nur ist keiner von uns in der LAGE, mit Access so eine komplexe
Aufgabe zu bewältigen. Wenn Du uns dabei helfen kannst, nemhen
wir das sicher gerne an.

Gruß

Answer 2

Das mit EXCEL waar eigentlich nur eine Such-und-Lösch-
Krücke für uns, weil sich da eben schön
Zeilenweise darstellt.

Gruß
Heinz

Answer 3

Hallo,

probiert einmal das von mir Beschriebene und wenns Probleme gibt konkrete Fragen stellen.

Es wird nicht anders gehen, in dem Fall müssen wir bei Adam und Eva anfangen.

Gruß

Paul1

Answer 4

Hallo Heinz,

Wenn ihr nicht zurecht kommt, könnte ich Euch ein nachvollziehbares Konzept zukommen lassen.

Habe vollstes Verständnis, da wir alle einmal bei Null anfangen mussten.


Gruß

Paul1

Excel/Access 2003

P.S.
natürlich auch Fragen stellen!

Answer 5

Hallo Paul1,

ich habe Dir mal eine PN geschrieben, wo ich
versucht habe, das ganze möglichst präzis zu schildern und
Link zu den Dateien zugefügt habe.

Gruß
Heinz

Answer 6

Ich habe unter PN folgendes geantwortet:

Hallo Heinz,

Vorerst möchte ich grundsätzlich klarstellen, dass ich über PN keine Anfragen abwickle, da es keinen Sinn macht einen Monolog abzuführen, wenn es genug User gibt, die auch das gleiche Problem haben und auch was dazulernen wollen.
Im Forum geht es um das gegenseitige Lernen und da mach es keinen Sinn, wenn jeder sein eigenes Süppchen kocht.

Ich würde daher empfehlen, Deine Fragen weiterhin direkt ins Forum (Thread) zu stellen, um auch anderen interessierten Usern die Möglichkeit zu geben sich hier einzubringen.

Ich bin auch nicht bereit mir umfangreiche Datenbanken downzuloaden, höchsten abgespeckte Konzepte.

In dem Fall gibt es 2 Datenbanken (Dateien) und ich nehme 2 Tabellen die mittels Union Abfrage zusammengeführt werden müssen, dazu muß vorher eine von beiden Tabellen in die andere Datei importiert werden.

Aus diesen Dateien muß eine Union Abfrage erstellt werden (UNION ALL) anschließend aus der Union-Abfrage mit dem Assistenten zur Duplikatsuche eine Abfrage erstellen, die dann alle Datensätze (mit den gleichen laufenden Nummern) ausgibt.

Die doppelt vorhanden müssten dann per hand in der Tabelle Haupt eingefügt werden (mir fällt ad hoc momentan nichts Besseres ein).

Wenn eine der beiden Tabellen z.B. Fund verlässlich komplett ist könnte man es mit einer normalen Union Abfrage (UNION) durchführen, da diese die doppelten gruppiert und das Ergebnis der Union Abfrage als Tabelle Haupt verwenden könnte.

Wie gesagt, weitere Fragen beantworte ich nur, wenn sie direkt im Thread gestellt werden.


Gruß

Paul1

P.S.
Das Problem habe ich bereits verstanden!

Answer 7

hi all ^^

ein beispiel

gruss nighty

Sub Lösch_Zeilen()
Application.ScreenUpdating = False
Dim QuelleZeilen As Long
Dim ZelleQuelle As Long
QuelleZeilen = Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 2
ReDim ArrayQuelle(1 To QuelleZeilen, 8) As Variant
ArrayQuelle = Range(Cells(1, 1), Cells(QuelleZeilen, 8))
For ZelleQuelle = 1 To QuelleZeilen - 2
If ArrayQuelle(ZelleQuelle, 3) = ArrayQuelle(ZelleQuelle + 2, 3) And _
ArrayQuelle(ZelleQuelle, 5) = ArrayQuelle(ZelleQuelle + 2, 5) And _
ArrayQuelle(ZelleQuelle, 6) = ArrayQuelle(ZelleQuelle + 2, 6) And _
ArrayQuelle(ZelleQuelle, 8) = ArrayQuelle(ZelleQuelle, 8) Then
ArrayQuelle(ZelleQuelle, 3) = True
End If
Next ZelleQuelle
Range(Cells(1, 1), Cells(QuelleZeilen, 8)).Resize(UBound(ArrayQuelle())) = ArrayQuelle()
With ActiveSheet.Columns(3)
.SpecialCells(xlCellTypeConstants, xlLogical).EntireRow.Delete
End With
Application.ScreenUpdating = True
End Sub

Answer 8

Uihh, Entschuldigung,

ich hatte weder vor der Gemeinschaft vor die knie zu treten, noch Dir Tonnen von Daten
Aufzubürden. Wenn das so rüber kam, nochmals entschuldigung.
Allerdings verstehst Du sicher auch, das ich nicht freiweg mit fremden Daten um mich
schmeissen kann.
Gut, Du sprichst ein Konzept an, und ich weiss ehrlich gessagt nicht, was ich
abliefern soll, damit es weitergeht. Ich gehöre nun wirklich zu der Sorte,
bei denen in Sachen Datenbank der Anfang noch bei Adam und Eva liegt,
um es mit deinen Worten zu sagen. :(

Wie in PN gemeldet, geht es darum, 2 Db´s zu laden, in diesen nach
Prüflingsnummer zu suchen. Wenn übereinstimmungen gefunden, keine Aktion
erforderlich, entsprechende Einträge die in DB=Fund enthalten sind,
in Db-Haupt jedoch nicht, sollten angezeigt werden.
Dann sollten genau diese Datensätze in Db=Haupt eingefügt werden.

Das machen wir z.Zt. alles von Hand, Stück für Stück.

Excel haben wir bisher NUR ALS Anzeige benutzt, um die Daten wie oben
gesagt, vorbereitet anzuzeigen.

Hoffentlich habe ich nun nicht wieder jemand verärgert,
weil mir das nun wirklich fern liegt. Ich bin ja heilfroh, dass es so
hilfreiche und entgegenkommende Menschen wie euch gibt.

Gruß
Heinz

Answer 9

Also tut mir echt Leid, aber ich schaffe es zum Umfallen nicht, eine Abfrage zu
erzeugen, wo mir z.b der Unterschied aus Tabelle "Prüfling" der Haupt-daten
mit Tabelle "Prüfling" der Fund-daten ermöglicht wird. Der Abfrage-assistent
will immer nur alles auf die eine ausgewählte Tabelle anwenden. Damit bin
leider keinen Schritt weiter. Naja, dann müssen wir das Projekt eben aufgeben.
Soll sich die Arbeit eben jemand anderes an Land ziehen. Schade um die
Stunden die wir da schon investiert haben. Messgeräte wieder verkaufen
und gut.

Hätte wirklich nicht gedacht, dass es 2012 noch so umständliche
SW gibt. Aber man lernt eben nicht aus. Ein Hoch auf tabellen-
kalkulationen, da kann man wenigstens weitere Tabellen hinzuladen und
gegeneinder Vergleichen.

LG
Heinz

Answer 10

Hallo Heinz,

Habe ein einfaches Konzept erstellt und folgendes durchgeführt:

>Tabelle Fund angelegt
>Tabelle Haupt angelegt
>Abfrage aus Tabelle Fund erstellt
>Abfrage aus Tabelle Haupt erstellt
>Union Abfrage aus Abfrage Fund und Abfrage Haupt erstellt
>aus Union Abfrage eine normale Anfrage erstellt
>Entwurfsansicht aus voriger Anfrage
>Abfragen
>Tabellenerstellungsabfrage erstellt (Haupt-neu)

Konzept

Folgendes wird dadurch erreicht:

Durch die Erstellung einer Union Abfrage aus den Abfragen Fund und Haupt werden beide verglichen, die, welche in beiden vorhanden sind werden gruppiert und die Nummern die zwar in Fund aber nicht in Haupt enthalten sind werden mit aufgelistet, so gesehen entsteht eine neue Haupttabelle die ich anschließend mit der Tabellenerstellungsabfrage erstellt habe.

Deine Aufgabe wäre jetzt alles zu prüfen und durchzutesten und bei Fragen zu schreiben.



Gruß

Paul1

Excel/Access 2003

P.S.
sei nicht ungeduldig, wir schaffen es