Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler Code 1004

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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler Code 1004
13.03.2008 19:11:02
Tino
Hallo,
müsste funktionieren

Sub sverweis()
Dim ws1 As Worksheet
Set ws1 = Sheets("Vorlage")
On Error Resume Next 'Fehler abfangen
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)
On Error GoTo 0
End Sub


Gruß
Tino

Anzeige
AW: Fehler Code 1004
13.03.2008 19:16:00
Heinz
Hallo Tino
Super Funktioniert Tadellos.
Recht herzlichen Dank.
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige