Habe unten einen Code der mir mit Sverweis an Hand von N29,N30 bis N35 den Wert einträgt.
Nur wenn in N29 oder N30 usw.. kein Wert steht dann kommt eine Fehlermeldung "1004"
Wie könnte ich bitte diesen Fehler umgehen.
Also Wenn in N29:N30 ="" steht,sollte der Code keinen Wert eintragen.
Danke & Gruß Heinz
Sub sverweis()
Dim ws1 As Worksheet
Set ws1 = Sheets("Vorlage")
ws1.Cells(29, 7).Value = Application.WorksheetFunction.VLookup([N29], Sheets("Material-Nummern") _
.[B2:G700], 2, False)
ws1.Cells(30, 7).Value = Application.WorksheetFunction.VLookup([N30], Sheets("Material-Nummern") _
.[B2:G700], 2, False)
ws1.Cells(31, 7).Value = Application.WorksheetFunction.VLookup([N31], Sheets("Material-Nummern") _
.[B2:G700], 2, False)
ws1.Cells(32, 7).Value = Application.WorksheetFunction.VLookup([N32], Sheets("Material-Nummern") _
.[B2:G700], 2, False)
ws1.Cells(33, 7).Value = Application.WorksheetFunction.VLookup([N33], Sheets("Material-Nummern") _
.[B2:G700], 2, False)
ws1.Cells(34, 7).Value = Application.WorksheetFunction.VLookup([N34], Sheets("Material-Nummern") _
.[B2:G700], 2, False)
ws1.Cells(35, 7).Value = Application.WorksheetFunction.VLookup([N35], Sheets("Material-Nummern") _
.[B2:G700], 2, False)
End Sub