Hallo Sabina,

also in meinem Lagerbestand Arbeitsblatt stehen folgende Infomationen:

Spalte A: Laufende Nummer (Zählt automatisch wenn in Spalte B etwas steht)
Spalte B: Modell (steht fest und soll mit Montagebericht Zelle B1 verglichen werden)
Spalte C: Größe (steht fest und soll mit Montagebericht Zelle E3 verglichen werden)
Spalte D: Zustand (darf nur "storing" sein und soll nach Buchung auf "mounted" gestellt werden)
Spalte E: Auslieferungsdatum (wird erst bei Versand eingetragen)
Spalte F: Kalnderwoche (ist abhängig vom Auslieferungsdatum)
Spalte G: Rahmennummer (soll von Montagebericht B5 übernommen werden)
Spalte H: Systemnummer (soll von Montagebericht B7 übernommen werden)

und in meinem Montagebericht Arbeitsblatt folgende Informationen:

Zelle B1: Modell
Zelle E3: Größe
Zelle B4: Rahmennummer
Zelle B5: Systemnummer

Aktuell versuche ich mich gerade an der SVERWEIS Formel LOOKUP, doch irgendwie wird das nichts. Ich setze es mal rein, aber ich glaube nichtd as es im Ansatz überhaupt richtig ist

Sub Flexibler_Als_Sverweis()
Debug.Print Now

Dim i As Long, Zeile As Long, letzteZeile As Long
Dim Rahmen As String, System As String
Dim Modell As String, Size As String, Zustand As String
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim ZelleFirma As Range
Dim Bereich As Range

Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Montagebericht")
Set Ziel = Arbeitsmappe.Worksheets("Lagerbestand")

letzteZeile = Datenbasis.Range("B" & Rows.Count).End(xlUp).Row

Set Bereich = Datenbasis.Range("A1:A" & letzteZeile)

For i = 4 To Ziel.Range("B" & Rows.Count).End(xlUp).Row
    Modell = Datenbasis.Range("B1").Value
    Size = Datenbasis.Range("E3").Value
    Zustand = Datenbasis.Range("A6").Value
    
    With Databasis
        Set ZelleFirma = Bereich.Find(Modell & Size & Zustand)
            If ZelleFirma Is Nothing Then
                Rahmennummer = ""
                Systemnummer = ""
                
                Ziel.Range("G" & i).Value = Rahmennummer
                Ziel.Range("H" & i).Value = Systemnummer
            Else
                Zeile = ZelleFirma.Row
                Rahmennummer = .Range("B4").Value
                Systemnummer = .Range("B5").Value
                
                Ziel.Range("G" & i).Value = Rahmennummer
                Ziel.Range("H" & i).Value = Systemnummer
                Set ZelleFirma = Nothing
            End If
    End With
Next i

Debug.Print Now
End Sub