Thema Datum  Von Nutzer Rating
Antwort
Rot Funktion als Array Übergeben
08.11.2022 09:51:50 Gast788
NotSolved
08.11.2022 10:09:13 Gast12067
*****
Solved

Ansicht des Beitrags:
Von:
Gast788
Datum:
08.11.2022 09:51:50
Views:
115
Rating: Antwort:
  Ja
Thema:
Funktion als Array Übergeben

Moin Leute,

ich habe eine Funktion geschrieben, von welcher ich gerne ein Array zurückbekommen würde, um damit dann weiter zu arbeiten.

rows = 1
  
    For Each item In arrTabelle

        Set rs = C.Execute("(.....)" + item)
        strErgebnis = rs.Fields("(...)").Value

           For Each item2 In AllTables(strErgebnis)
                ActiveSheet.Range("A" & rows).Value = item
                ActiveSheet.Range("B" & rows).Value = item2
                rows = rows + 1
            Next item2

    Next item
  End With
End Sub

Function AllTables(strInput As String) As Variant

Dim rMatch As Object
Dim s As String
Dim arrayMatches()
Dim i As Long

With New RegExp
    .Global = True
    .MultiLine = True
    .IgnoreCase = True
    .Pattern = " .(....)"
    If .test(strInput) Then
        For Each rMatch In .Execute(strInput)
            ReDim Preserve arrayMatches(i)
            arrayMatches(i) = rMatch.Value
            i = i + 1
            's = s & " " & rMatch
        Next
    End If
End With

AllTablesMatches = Join(arrayMatches, " ")
End Function

Jetzt bekomme ich aber den Error: Typen unverträglich bei der Zeile:  For Each item2 In AllTables(strErgebnis).

Wie bekomme ich es hin, dass jedes element aus arrTabelle in Spalte A geschrieben wird und zu jedem dieser elemete alle elemente aus dem Array der funktion in Spalte B ausgegeben werden.

Das ergebnis soll in etwa so ausssehen:

          A                          B

itemTabelle1 itemFunktion1
itemTabelle1 itemFunktion2
itemTabelle1 itemFunktion3
itemTabelle2 itemFunktion1
itemTabelle3 itemFunktion1
itemTabelle3 itemFunktion2
itemTabelle3 itemFunktion3
itemTabelle3 itemFunktion4

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Funktion als Array Übergeben
08.11.2022 09:51:50 Gast788
NotSolved
08.11.2022 10:09:13 Gast12067
*****
Solved