Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Beispiele für den Einsatz der Funktion SVERWEIS

Gruppe

SVERWEIS

Problem

In 10 Tabellenblättern wird der Einsatz der SVERWEIS-Funktion gezeigt und erläutert.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.

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