Gruppe
Funktion
Problem
In 10 Tabellenblättern wird der Einsatz der SVERWEIS-Funktion gezeigt und erläutert.
StandardModule: Modul1
Sub CallVlookUp()
Dim iCriteria As Integer
Dim sErgebnis As String
iCriteria = 5
sErgebnis = WorksheetFunction.VLookup( _
iCriteria, Range("VBA"), 2, 0)
MsgBox "Zum Kriterium """ & iCriteria & _
""" wurde der " & vbLf & "Wert """ & _
sErgebnis & """ gefunden."
End Sub
Sub TestVlookUp()
Dim iCriteria As Integer
Dim vErgebnis As Variant
iCriteria = 0
vErgebnis = Application.VLookup( _
iCriteria, Range("VBA"), 2, 0)
If IsError(vErgebnis) Then
MsgBox "Der Suchbegriff """ & iCriteria & """ wurde nicht gefunden!"
Else
MsgBox "Zum Kriterium """ & iCriteria & _
""" wurde der " & vbLf & "Wert """ & _
vErgebnis & """ gefunden."
End If
End Sub
Sub SetVlookup()
Range("C19").Value = "Formel:"
Range("D19").Formula = "=vlookup(5,vba,2,0)"
End Sub