("Element1",Sp)'Wenn keine weiteren Instanzen von 'Element1' gefunden werden, dann die Schleife verlassenIfPos=-1ThenExitDo'Die nächste gefundene Instanz und die Indexposition anzeigenMsgBox MeineListe(Pos)&" bei Index "&Pos'1 zum letzten gefundenen Indexwert hinzuaddieren - dies wird ...
(varArray, 1) 'Schleife für die zweite Dimension For j = LBound(varArray, 2) To UBound(varArray, 2) 'wenn wir den Wert finden, dann msgbox anzeigen, um zu sagen, dass wir den Wert haben und die Funktion verlassen If varArray(i, j) = strFind Then MsgBox "Der Arzt wurde gefunden...