Zwei Spalten Vergleichen und Ausgabe mit Ja oder Nein

Christian · 2025-05-11T00:31:01+02:00

Hallo ! Ich möchte zwei Spalten miteinander vergleichen, also konkret ob die Zahlen von Spalte A auch in Spalte B enthalten sind oder nicht. Es soll mir dann in Spalte C ausgegeben werden ausgegeben werden ob die jeweilige Zahl aus Spalte A aus der betreffenden Zelle irgendwo in Spalte B gefunden wurde oder nicht. Wie mach ich sowas? Was ist dazu die passende Formel ? Benötige rasch Hilfe, da ich dazu beruflich unter Zeitdruck stehe :( LG

Hallo

freut mich sehr das der Fehler endlich gefunden wurde. Die Lösung von Edgar hat mir gefallen.
Ich lade mal den verwendeten Code hoch, falls andere Forum Sucher nach einer Lösung suchen!

mfg Piet

Option Explicit

Dim AC As Range, lz1 As Long

Const AwLö = "No"  'Ja/No Auflistung löschen







Sub Auswertung()

Dim i As Integer, n, j, lz2

Dim ASW As Worksheet, Summe

Set ASW = Tabelle2



With Tabelle1

     lz1 = .Cells(Rows.Count, 1).End(xlUp).Row

     lz2 = ASW.Cells(Rows.Count, 1).End(xlUp).Row

     .Range("D2:D" & lz1).ClearContents

     ASW.Range("C2:D" & lz2).ClearContents

     Application.StatusBar = Empty

     

     For Each AC In .Range("A2:A" & lz1)

       Application.ScreenUpdating = True

       Application.StatusBar = AC.Row & "  " & lz1

       Application.ScreenUpdating = False

       Summe = Empty

       For j = 2 To lz2

         If ASW.Cells(j, 1) = AC.Value Then

            For i = j To lz2

              If ASW.Cells(i, 1) > AC.Value Then Exit For

              Summe = Summe + ASW.Cells(i, 2)

              '** Auflistung ggf. löschen um Fehler aufzudecken

              If AwLö = "Ja" Then

                 ASW.Cells(i, 1) = Empty

                 ASW.Cells(i, 2) = Empty

              End If

            Next i

            If AC.Cells(1, 3) > Summe Then

               AC.Offset(0, 3) = Summe: n = n + 1

               ASW.Cells(j, 3) = AC.Cells(1, 3)

           End If

           Exit For

         End If

       Next j

     Next AC

End With

Application.StatusBar = Empty

MsgBox n & "  gefunden"

End Sub

Ich versuche es mit diesen beiden Beispieldateien die ich abgekürzt habe auf eine Minimalversion aus Datenschutzgründen.

In der Datei "Problem" sieht man im Tabellenblatt "Übersichtsblatt in Spalte A die Polizzenummern und in Spalte C die dazugehörigen Gesamtversicherungsprämien einer gewissen Zeitperiode.
Die Summe dieser Gesamtversicherungsprämien ergibt: 5.655.870,38 EUR (Zeile 3652)

Im Tabellenblatt "Aufspaltung" sieht man mehrere eventuell auch doppelte Polizzennummern, weil in diesen Polizzennummern auch Haftpflicht und Kasko enthalten sind.
In dem Fall nicht relevant.
Die Summe der doppelt angezeigten mehreren Polizzennummern muss die Versicherungsprämie ergeben, die im Tabellenblatt "Übersichtsblatt" in einer Zeile zu einer Polizzennummer angezeigt werden.

Beispiel fürs Verständnis:
Polizennummer 1084580120
Dazu wird im "Übersichtsblatt" eine Gesamtprämie von 2.163,60 EUR angezeigt
Im Tabellenblatt "Aufspaltung" ist diese Polizzennummer in Zeile 29 und 30 zu finden. Die Summer der Prämie die in Spalte B angeführt ist (1.350,60 + 813) ergibt diese Gesamtprämie die im "Übersichtsblatt" zu finden war.

Soweit so gut.
Die Summer aller Gesamtprämien im "Übersichtsblatt ergibt wie erwähnt 5.655.870,38 EUR

Die Summer der Prämien im Tabellenblatt "Aufspaltung" ergibt 5.657.801,60 EUR

Ergibt eine Differenz von 1.932,22 EUR welche im Tabellenblatt "Aufspaltung" zu viel ist.

Das Ergebnis vom "Übersichtsblatt" mit 5.655.870,38 EUR ist zu 100% korrekt

Nun muss ich im Tabellenblatt "Aufspaltung" kontrollieren, ob jede Summe Versicherungsprämien der dortigen Polizzennummern die "Gesamtversicherungsprämie" je Polizzennummer vom Tabellenblatt "Übersichtsblatt" ergibt oder ob da eine falsche zu vielleicht zu viel eingetragene Prämie vorhanden ist.

Denn irgendwo muss der Fehler zu finden sein, weshalb im Tabellenblatt "Aufspaltung" die Versicherungsprämie um 1.932,22 EUR zu viel ist.

https://www.herber.de/bbs/user/177400.xlsx

LG

Zwei Spalten Vergleichen und Ausgabe mit Ja oder Nein

Forumthread: Zwei Spalten Vergleichen und Ausgabe mit Ja oder Nein

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Zwei Spalten Vergleichen und Ausgabe mit Ja oder Nein

Forumthread: Zwei Spalten Vergleichen und Ausgabe mit Ja oder Nein

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread