Hallo liebe Community,

vorab ich bin in den Themen VBA und allgemein Programmieren eher Neu und deshalb bin ich auch dringend auf Hilfe angewiesen.

Im folgenden ein kleiner Überblick, damit jeder weiß was der Code, der mir Probleme bereitet überhaupt machen soll:

Ich habe zwei Excel Mappen, in Mappe 1 stehen in Spalte A unterschiedliche Nummern, in Spalte B ein dazugehöriger Monat. Die Nummern die in Mappe 1 Spalte A stehen findet man auch in Mappe 2 auf verschiedenen Tabellen verteilt wieder.

Meine Aufgabe ist es die Nummern die in Mappe 1 stehen in Mappe 2 ausfindig zu machen und das dazugehörige Datum zwei Zeilen neben der Nummer einzufügen.

Dazu habe ich folgenden Code:

Sub Monat_einfuegen()
    Dim ZielWert As String
    Dim ZielZelle As Range

    ' aktive Zelle ist Start Zelle
    Set ZielZelle = ActiveCell

    ' Schleife, die den Vorgang wiederholt
    Do
        ' Schritt 1: Die aktuelle Zelle kopieren
        ZielZelle.Copy

        ' Schritt 2: Zur Mappe 2 wechseln
        Workbooks("Mappe2.xlsx").Activate

        ' Schritt 3: Den kopierten Inhalt in Mappe 2 suchen
        ZielWert = ZielZelle.Value
        Cells.Find(What:=ZielWert).Activate

        ' Schritt 4: Zurück zu Mappe 1 wechseln
        Workbooks("Mappe1.xlsx").Activate

        ' Schritt 5: Eine Zelle nach rechts navigieren und Inhalt kopieren
        ActiveCell.Offset(0, 1).Copy

        ' Schritt 6: Zu Mappe 2 wechseln
        Workbooks("Mappe2.xlsx").Activate

        ' Schritt 7: Zwei Zellen nach rechts navigieren und Inhalt einfügen
        ActiveCell.Offset(0, 2).PasteSpecial

        ' Schritt 8: Zurück zu Mappe 1 wechseln und zur nächsten Nummer navigieren
        Workbooks("Mappe1.xlsx").Activate
        ActiveCell.Offset(1, -1).Activate

        ' Überprüfen, ob die Zelle STOP enthält
        If ActiveCell.Value = "STOP" Then
            Exit Do ' Schleife beenden, wenn STOP gefunden wurde
        End If
    Loop
End Sub

Der Code ist so aufgebaut, dass bei der ersten Nummer, die in Mappe 1 anvisiert ist, begonnen wird und solange weitermacht bis eine Zelle STOP enthält.

Leider wird beim ausführen des Codes folgender Fehlercode angezeigt:

Falls Ihr irgendwelche Fragen habt, stellt Sie gerne!

Danke im Voraus und VG