Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ermittlung von Entfernungen über benutzerdefinierte Funktion

Gruppe

Numerisch

Problem

Wie kann ich die Entfernung von 2 Orten über eine benutzerdefinierte Funktion ermitteln, wenn sich in einem zweiten Tabellenblatt eine Entfernungstabelle befindet.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function Entfernung( _
   sWks As String, _
   sStart As String, _
   sZiel As String) As Integer
   Dim wks As Worksheet
   Dim iRow As Integer
   Set wks = Worksheets(sWks)
   iRow = 1
   Do Until IsEmpty(wks.Cells(iRow, 1))
      If wks.Cells(iRow, 1).Value = sStart And _
         wks.Cells(iRow, 2).Value = sZiel Then
         Entfernung = wks.Cells(iRow, 3).Value
      End If
      iRow = iRow + 1
   Loop
End Function