vlookup
frank
seit langer Zeit benötige ich mal wieder Euren geschätzten Rat.
Ich möchte in meiner Tabelle die Funktion Sverweis über VBA realisieren.
Es geht soweit ganz gut. mein Problemchen ist nun, dass ich eine wennabfrage starten will im Falle es keine Übereinstimmung der suchkriterien gibt. Momentan hängt sich das makro auf wenn das Suchkriterium in meinem Namensfeld "zeit" nicht vorhanden ist.
im deutschen gehts doch so "=wenn(Istfehler(Sverweis(....);"";Sverweis(...
im englischen ist es doch "if(iserror(vlookup.......
If wird makiert und ich bekomme falschen Ausdruck!!?
kann mir jemand bitte helfen wie ich das mit dem If richtig einbinden muß.
kann man das vielleicht auch in eine abfrage reinschreiben - wenn leer ,oder Name nicht vorhanden dann weiter zur nächsten Zellabfrage.
Danke
Gruß Frank
Sub vlookup()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim o, k, s As Integer
Set ws1 = Sheets("Frank")
Set ws2 = Sheets("caro")
k = 1
For o = 1 To 7
If Cells(k, 1) = "" Then
ActiveCell.Value = ""
Else
ws1.Cells(k, 5).Value = WorksheetFunction.vlookup(ws1.Cells(k, 1).Value, ws2.Range("zeit"), 6, _
false)
End If
k = k + 1
Next o
End Sub