Hallo liebe Community Mitglieder,


ich habe ein Problem, bei dem ich langsam ratlos bin.
Eigentlich komme ich gut mit VBA klar, aber jetzt bin ich echt am Ende ;)


Schilderung:

Ich habe eine Excel Datei, wo vier Tabs drinnen sind, die "Bo", "Bom", "Wo", "Wom" heißen.
In diesen Tabs ist jeweils die erste Spalte ab Zelle A2 mit ID's gefüllt.
Die Anzahl der ID's ist in allen Tabs unterschiedlich.


Des weiteren gibt es noch einen Tab, der "aktuell" heißt.
Dort ist die erste Spalte ab Zelle A2 ebenfalls mit ID's gefüllt.

Nun möchte ich, dass das Makro zuerst die ID's des Tabs "Bo" mit den ID's von "aktuell" vergleicht und überall wo es eine Übereinstimmung findet, soll es im Tab "aktuell" in Spalte 6 eine "1" reinschreiben.

Dasselbe soll das Makro mit den anderen Tabs machen.
Also als nächstes "Bom" ID's vergleichen mit "aktuell" ID's und überall wo es die Übereinstimmung der ID gibt dann eine "1m" in Spalte 6 eintragen.
Das gleiche mit "Wo", wo dann in Spalte 6 eine "0" eingetragen wird.
Und nochmals mit "Wom" wo bei Übereinstimmung in Spalte 6 eine "0m" eingetragen wird.

Ich habe schon echt einiges versucht, aber ich bekomme es einfach nicht hin. Hatte teilweise auch sehr lange Laufzeiten.

Diese habe ich dann durch folgendes verringert.


With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With

Ich hoffe mir kann einer helfen!!!

Habe meine Testdatei hochgeladen und diese kann hier runtergeladen werden:

Viele Grüße und schon mal danke für die Antworten!