Ich habe hier ein kleines Problemchen.
Also, Ich möchte gerne 3 Tabellen in einer Arbeitsmappe miteinander wie folgt vergleichen:
Tabelle1 heißt Kunden
Tabelle2 heißt Interessenten
Tabelle3 heißt XX
Nun soll folgendes geschehen:
Prüfe in Kunden Spalte C und Spalte O ob diese mit XX Spalte C und O übereinstimmt.
wenn ja,
dann schreibe in XX Spalte A ein L und suche weiter.
Wenn nein dann
Prüfe in Interessenten Spalte C und Spalte O ob diese mit XX Spalte C und O übereinstimmt,
wenn ja
dann schreibe in XX Spalte A ein L und prüfe weiter,
wenn nein
dann schreibe in XX Spalte A ein N.
Ich kann leider die Mappe nicht hochladen, wegen Firmen Richtlinien (Kundenliste).
Hab hier mal einen Codeversuch gestartet:
Sub Vergleich_Makro()
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
Dim h As Integer
For i = 2 To 2591 'Kunden = 2591 Zeilen
For j = 2 To 102 'XX = 102 Zeilen
For h = 2 To 243 'Interessenten = 243 Zeilen
If Sheets("Kunden").Range("C" & i).Value = Sheets("XX").Range("C" & j).Value Then
ElseIf Sheets("Kunden").Range("O" & i).Value = Sheets("XX").Range("O" & j). _
Value Then
Sheets("XX").Range("A" & j).Value = "L"
Else
If Sheets("Interessenten").Range("C" & h).Value = Sheets("XX").Range("C" & j). _
Value Then
ElseIf Sheets("Interessenten").Range("O" & h).Value = Sheets("XX").Range("O" & _
j).Value Then
Sheets("XX").Range("A" & j).Value = "L"
Else
Sheets("XX").Range("A" & j).Value = "N"
End If
End If
Next h
Next j
Next i
Application.ScreenUpdating = True
End Sub
Das Makro läuft unwahrscheinlich lange, und wenn ich es nach ner halben Stunde dann unterbreche, dann hat er es auch ausgeführt.
Gibt es einen schnelleren weg das zu vergleichen, oder kann man hier noch eine Schleife einbauen, das er mirt in der Statuszeile z.Bsp. die Zeilennummer angibt, in der er gerade sucht, oder sowas? Ich würde halt gerne wissen, wie lange das Makro braucht und ob er wirklich alles richtig macht, denn wie gesagt das läuft ne ganze Zeit und selbst nach ner Stunde ist er angeblich nicht fertig.
Schonmal vielen Dank für Eure Hinweise und Tips.
Grüße
Mattes