Fehler Code 1004
13.03.2008 19:08:00
Heinz
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
Anzeige