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
|