Hallo zusammen,

ich habe zwei Tabellen und möchte, dass über ein Makro bei allen Werten aus Tabelle 2 Spalte A, die in Tabelle 1 Spalte A vorkommen, in Tabelle 2 Spalte B eine "1" eingetragen wird, ansonsten eine "0". Das ganze muss mit einem Makro umgesetzt werden.

Kleiner Auszug aus den Tabellen (insgesamt mehrere hundert):

Tabelle 1:                       Tabelle 2:

Spalte A                         Spalte A    Spalte B 

A                                         R                                               -> hier müsste in Spalte B eine "1" stehen

F                                         B                                               -> hier müsste in Spalte B eine "0" stehen

R                                         L                                               -> hier müsste in Spalte B eine "0" stehen

Z                                          A                                               -> hier müsste in Spalte B eine "1" stehen

U                                         P                                               -> hier müsste in Spalte B eine "0" stehen

Folgenden Code habe ich:

Sub Makro1()

    Dim zeile As Long

            For zeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
                If Cells(zeile, 1) = Worksheets("Tabelle2").Range("A1:A1") Then
                   Cells(zeile, 2).Formula = "1"
                Else
                   Cells(zeile, 2).Formula = "0"
                End If
            Next

End Sub

Für Zelle A1 in Tabelle 2 funktioniert es korrekt, wenn ich Range("A1:A5") angebe, kommt eine Fehlermeldung (Laufzeitfehler 13: Typen unverträglich). Meine Frage ist nun, wie ich den Bereich in tabelle 2 mit in meinen Code einbaue.

Über Tipps / Hinweise würde ich mich sehr freuen!

Oskar