Wie definiere ich die variable SchleifenIndex ?? 

Option Explicit

Sub Aufrufen()
   
  'Rückgabe der Funktion wird hier nicht verwertet
  Call Makro_von_Jemanden("*Grunz* Du verdammt smarter Typ du!")
   
End Sub
 
'Aus der Sub (=Prozedur) wurde hier eine Funktion gemacht.
'Eine Funktion hat, gegenüber einer Sub, einen Rückgabewert.
'Den Datentyp der Funktions-Rückgabe kann man festlegen - hier z.B. Long
Function Makro_von_Jemanden(Parameter As String) As Long
   
  '<hier steht cool anzusehender Code von GastXY - unverändert von mir>
   
  Call MsgBox(Parameter, vbInformation)
   
  '<oh wow, hier steht noch mehr cooler Code von GastXY - unverändert von mir>
   
  'Funktionsrückgabe
  Makro_von_Jemanden = 42 'hier einfach als Beispiel eine Zahl
   
End Function

Sub Test()

Dim RegExp    As VBScript_RegExp_55.RegExp
Dim Matches   As VBScript_RegExp_55.MatchCollection
Dim Expr      As String
Dim i         As Long
Dim j         As Long
  
  
  j = 1
 
'Ausgabe: 1, 4, 7, 10, 13
For i = 1 To 332135 Step 3
  Cells(j, 1).Value = i
  j = j + 1
Next
  
  With New RegExp
     
    .Global = False
    .IgnoreCase = True
    .MultiLine = False
     
    Call Test(Worksheets("Tabelle1").Range("A" & SchleifenIndex))
      Expr = .Offset(0, 0).Value & .Offset(1, 0).Value & .Offset(2, 0).Value
    End With
     
    .Pattern = """<img(.*?)>.*?</img>""(,\d+)"
    Set Matches = .Execute(Expr)
     
    Dim Part1 As String
    Dim Part2 As String
    Dim Part3 As String
     
    If Matches.Count > 0 Then
       
      Part1 = Left$(Expr, Matches(0).FirstIndex)
      Part3 = Matches(0).SubMatches(1)
       
      .Pattern = "src=""""(.+?)"""""
      Set Matches = .Execute(Expr)
       
      If Matches.Count > 0 Then
        Part2 = Matches(0).SubMatches(0)
      Else
        Range("A5").Value = ""
        Call MsgBox("Angabe zu Image-Source nicht gefunden.", vbExclamation)
        Exit Sub
      End If
       
      Range("A5").Value = Part1 & Part2 & Part3
       
      Call MsgBox("Fertig.", vbInformation)
       
    Else
      Range("A5").Value = ""
      Call MsgBox("Nix gefunden.", vbExclamation)
    End If
     
  End With
   
End Sub