Hallo Exceler,
nach Stunden Suche und nicht passendes gefunden.
freue mich über ihre Hilfe.
Ich habe zwei Tabellen Alt und Neu in beiden Tabellen sind Spalten A B und C jeweils mit gleichen Inhalt.
ich möchte gerne als Erstes A NEU mit A ALT vergleichen, stimmt es überein soll B NEU mit B ALT verglichen werden. Wenn die Beiden A und A und B und B identisch sind, soll dann C NEU mit C ALT verglichen werden. sind die Daten identisch soll „richtig“ erscheinen sonst „falsch“
1001 Dank im Vorraus
Hallo,
hast du denn die Möglichkeit Access zu verwenden?
Mit ein paar Abfragen wäre das schnell bewerkstelligt.
LG
Hallo,
entschuldigung
es geht um Excel2007
MlG
Hallöchen!
Prinzipell ist diese Überprüfung mit VBA möglich.
Nun meine Frage: Wie viele der Zellen A sind belegt?
Ist die Belegung der einzelnen Zellen durchgehend?
Das Heißt wenn die nächste Zelle leer ist, dann ist die Tabelle zu Ende? Das würde die Abfrage erleichtern.
Ich mache mal ein kleines VBA, wenn du die Fragen beantwortet hast, werde ich sie noch ein wenig modifizieren.
Gruß Jürgen
Sub Überprüfung()
Prüfung = „“
For a = 1 To 10000
If Prüfung = „falsch“ Then Exit For
x = Worksheets(„Tabelle1“).Cells(a, 1).Value
y = Worksheets(„Tabelle2“).Cells(a, 1).Value
If x = „“ Then Exit For
If x = y Then Prüfung = „richtig“ Else Prüfung = „falsch“
Next a
For b = 1 To 10000
If Prüfung = „falsch“ Then Exit For
x = Worksheets(„Tabelle1“).Cells(b, 2).Value
y = Worksheets(„Tabelle2“).Cells(b, 2).Value
If x = „“ Then Exit For
If x = y Then Prüfung = „richtig“ Else Prüfung = „falsch“
Next b
For c = 1 To 10000
If Prüfung = „falsch“ Then Exit For
x = Worksheets(„Tabelle1“).Cells(c, 2).Value
y = Worksheets(„Tabelle2“).Cells(c, 2).Value
If x = „“ Then Exit For
If x = y Then Prüfung = „richtig“ Else Prüfung = „falsch“
Next c
MsgBox (Prüfung)
End Sub
Habe dir mal oben die Routine für ein kleines Makro geschrieben.
Ausgehend davon das, wenn die nächste Zeile leer ist, die Tabelle beendet ist. sollte das nicht der Fall sein, bitte melden. oben genanntes Makro fügst du bei dir in deine Exceltabelle ein. Die Namen der Tabellen hier tabelle 1 und Tabelle 2 müsstest du im Makro noch nach deinen Gegebenheiten angleichen.
Solltest du Probleme haben melde dich bitte bei mir
Gruß Jürgen
weiß ich nicht
würde mich aber auch interessieren
bin an antwort interessiert
danke
Hallo und vielen Dank,
Ich muss mich entschuldigen.
Die Hälfte fehlt
Per Makro ist auch eine feine Sache
Genauer möchte gerne in Spalte „D“ z.B den Vergleich sehen . Sprich in D1 soll das Vergleichergebniss von A1-B1 und C1 usw stehen.
Den Makro hat nicht ganz funktioniert.
Ich habe testtabellen erstellt leider trotz unstimmigkeit in „C“ wurde „richtig“ gezeigt
Als Unterschiede in Spalte „B“ vorkammen, dann meldet der Makro „falsch“
MlG
Ja da hzabe ich ein Fehler eingebaut. bei der dritten Routine tausche bitte in den Zeilen :
x = Worksheets(„Tabelle1“).Cells(c, 2).Value
y = Worksheets(„Tabelle2“).Cells(c, 2).Value
die 2 in eine 3 um:
x = Worksheets(„Tabelle1“).Cells(c, 3).Value
y = Worksheets(„Tabelle2“).Cells(c, 3).Value
wenn du jedes mal stehen haben möchtest, das die reihe falsch oder richtig ist, dann schreibe mir bitte in welcher der beiden Tabellen. Ich pflege dann noch ein entsprechenden Schritt ein
Ic hwerde mich morgen daran begeben.
Kannst mir auch die Testtabelle zuschicken, wenn du möchtest. Bis morgen gruß Jürgen
Hallo,
Nehme an Tabelle2
MlG
Sub Überprüfung()
Prüfung = „“
For a = 1 To 10000
’ die Zellen A werden verglichen
x = Worksheets(„Tabelle1“).Cells(a, 1).Value
y = Worksheets(„Tabelle2“).Cells(a, 1).Value
’ ist die Zelle leer wird der Vorgang abgebrochen
If x = „“ Then Exit For
If x = y Then Prüfung = „richtig“ Else Prüfung = „falsch“
’ die Zellen B werden verglichen
x2 = Worksheets(„Tabelle1“).Cells(a, 2).Value
y2 = Worksheets(„Tabelle2“).Cells(a, 2).Value
If x2 = „“ Then Exit For
If x2 = y2 Then Prüfung2 = „richtig“ Else Prüfung2 = „falsch“
’ die Zellen C werden verglichen
x3 = Worksheets(„Tabelle1“).Cells(a, 3).Value
y3 = Worksheets(„Tabelle2“).Cells(a, 3).Value
If x3 = „“ Then Exit For
If x3 = y3 Then Prüfung3 = „richtig“ Else Prüfung3 = „falsch“
’ Hier werden die Prüfungen gecheckt. Ist eine der Prüfungen falsch, wird in die zu schreibende Prüfung falsch geschrieben
If Prüfung = „falsch“ Then Prüfung3 = „falsch“
If Prüfung2 = „falsch“ Then Prüfung3 = „falsch“
’ Hier wird jedesmal in der Zeile D richtig oder falsch rein geschrieben.
Worksheets(„Tabelle2“).Cells(a, 4).Value = Prüfung3
Next a
End Sub
So habe das Makro ein wenig verbessert und geändert. Nun überprüft er jeweils die Zellen A, B und C uind wenn nur eine davon falschist, schreibt er es in Zeile D. Ist sie richtig, schreibt er richtig. Ich hoffe ich konnte dir damit helfen und das Makro läuft jetzt richrig
Gruß Jürgen
Hallo, und besten Dank
tadellos hat es funktioniert genau wie ich mir vorgestellt habe.
VlG
Es freut mich das ich dir helfen konnte. Immer gerne wieder
Gruß Jürgen