Vgl 2 Spalten mit untersch. Zahlenformat auf Match

21.03.2026 09:16:31

Matthias

Hallo,

ich möchte 2 Spalten in denen Zahlen mit Punkten getrennt sind auf ein Match überprüfen. Das Problem ist hier leider das unterschiedliche Format.

Gibt es eine Möglichkeit zumindest 80% Match abzuprüfen? https://www.herber.de/bbs/user/180427.xlsx

LG
Mat

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

21.03.2026 09:19:31

BoskoBiati

Hi,

was soll da verglichen werden? Das sind doch völlig unterschiedliche Werte. Eine Datei mit Wunschergebnissen wäre sehr von Vorteil.

Gruß

Edgar

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

21.03.2026 15:32:00

Piet

Hallo

anbei mal eine VBA Lösung mit der es vielleicht einfacher geht.
Die Länge des String LS kannst du in Const LS = 7 selbst einstellen.
Das Makro sucht zuerst in Spalte B nach dieser 7stelligen Zahl.
Dann prüft es die Rest-Nr in Spalte B. Mit Ausgabe bei Ergebnis.
https://www.herber.de/bbs/user/180428.xlsm

Würde mich freuen wenn damit dein Problem gelöst ist.
Wie lange das Makro bei 40000 Zeilen braucht weiß ich nicht?

mfg Piet

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

23.03.2026 14:20:31

daniel

Hi
bei der Datenmenge solltest du zwei Schritte tun.
1. die Formate angleichen
am einfachsten geht das in BOM, indem du die letzten 4 Zeichen abschneidest: =TextVor(B1;".";-1)

2. Die Spalte, die durchsucht werden soll, muss aufsteigend sortiert werden.
Wenn du also prüfen willst, ob ALIAS in BOM vorhanden ist, musst du BOM (bzw die Korrektur) sortieren
wenn du prüfen willst, ob BOM in ALIAS ist, musst du ALIAS sortieren.

die Prüfung, ob ein Wert in der Liste vorhanden ist, machst du mit dem SVERWEIS.

hier mal als vollständig:

in Spalte C sortieren wir BOM und machen die Formatkorrektur, in C2 mit einer Formel und Autospill:

=Sortieren(Textvor(B2.:.B999999;".";-1)

die Prüfung ob Vorhanden oder nicht vorhanden macht dann diese Formel

=Wenn(SVerweis(A2;C2#;1;1)=A2;"vorhanden";"fehlt")

Gruß Daniel

In dem Fall...

07.04.2026 12:28:32

Case

Moin Matthias, :-)

... würde ich das mit Power Query lösen (> 40.000 Datensätze). ;-)

Wenn es noch ansteht und noch nicht gelöst ist, kann ich dir ein Beispiel erstellen. ;-)

Servus
Case

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

22.03.2026 19:44:20

Matthias

Super sieht sehr gut aus. Ich hatte nur noch einen kleinen Denkfehler. Geht das Script auch anders rum, das angezeigt wird was nicht vorhanden ist?

Aber auf jeden Fall, vielen Dank für die super und schnelle Hilfe

LG Matthias

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

22.03.2026 20:43:21

Piet

Hallo

auch kein grosses Problem, wenn man weiss wie es geht.
Wechsele einfach den Code aus, damit sollte es klappen
PS Den alten Code löschen oder umbenennen nicht vegessen!

mfg Piet

Sub Daten_vergleichen()

Dim rFind As Range, j As Long

Dim SuNr As Variant, n As Long

Dim RestNr As Variant

'LastZell in A suchen

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

Range("C2:D" & lz1 + 10).ClearContents

Application.ScreenUpdating = False



'Alle Zeilen mit Spalte B vergleichen

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

    SuNr = Left(AC, lS)       'Such-Nr 7 stellig

    RestNr = Mid(AC, lS + 2)  'Restliche Nr.

If AC.Row > 10 Then Exit For



    'Such-Nr in Spalte B suchen

    Set rFind = Columns(2).Find(What:=SuNr, After:=[b1], LookIn:=xlFormulas, LookAt:= _

        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

    If Not rFind Is Nothing Then

       'Rest-Nr. ab Stelle 8 vergleichen

       For j = rFind.Row To lz1

          If Left(Cells(j, 2), lS) > SuNr Then Exit For

          If InStr(Mid(Cells(j, 2), lS + 2), RestNr) Then GoTo nx

       Next j

       n = n + 1

       AC.Cells(1, 4) = "Not Find"

nx: End If

Next AC

Application.ScreenUpdating = True

[c1] = n: [d1] = " nicht gefunden"

MsgBox n & " nicht gefundnen"

End Sub

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

21.03.2026 09:36:10

Matthias

Alias BOM
4100.80.01 4100.80.001.000 vorhanden
4100.80.02 4100.80.002.000 vorhanden
4100.80.03 4100.80.003.000 vorhanden
4100.80.04 4100.80.004.000 vorhanden
4100.80.05 4100.80.005.000 vorhanden

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

21.03.2026 09:47:50

BoskoBiati

Hi,

diese Kombinationen gibt es in den beiden Spalten nicht!
Entweder Du stellst vernünftige Daten zur Verfügung, oder das wars für mich!

Gruß

Edgar

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

21.03.2026 09:50:33

Matthias

ich darf die komplette Datei nicht hochladen weil die zu groß ist. Vom Prinzip will ich wie mit Sverweis arbeiten.

So wie in meiner Letzten Nachricht so sind werte verfügbar in der Zweiten Spalte. aber leider irgendwo in Zeile 40.000

AW: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

21.03.2026 11:01:28

BoskoBiati

Hi,

ich darf die komplette Datei nicht hochladen weil die zu groß ist.

Dann kürze sie auf ein Maß, dass Du sie hochladen kannst!

So wie in meiner Letzten Nachricht so sind werte verfügbar in der Zweiten Spalte. aber leider irgendwo in Zeile 40.000

Dann bringe ein paar Daten so zusammen, dass es auch Matches geben kann.

Gruß

Edgar

Vgl 2 Spalten mit untersch. Zahlenformat auf Match

Forumthread: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Vgl 2 Spalten mit untersch. Zahlenformat auf Match

Forumthread: Vgl 2 Spalten mit untersch. Zahlenformat auf Match

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread