Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme bei Function-Aufruf
 05.10.2016 09:20:18 David
Solved
05.10.2016 12:40:40 Florian
NotSolved

Ansicht des Beitrags:
Von:
David		 Datum:
05.10.2016 09:20:18		 Views:
1028		 Rating:
     
Antwort:
 Nein
Thema:
Probleme bei Function-Aufruf

Hallo zusammen,

 

ich versuche eine Function zu schreiben, die mir Spalten zurückgibt, wenn ich ihr Suchbegriffe gebe. Allerding scheine ich bei dem Aufruf etwas falsch zu machen. Kann mir einer auf die Sprünge helfen? Der Fehler, den mir VBA wirft ist: "ByRef Argument mismatch". Wenn ich richtig gegoogelt habe heißt das, dass ich einen falschen Variablen Typ übergebe. Aber ich Übergebe doch einen String, was von der Funktion erwartet wird, oder?

 

'mySearch ist eine Benutzereingabe und wird aus einem Shape ausgelesen
    SearchMe = mySearch
    SearchMe = Replace(SearchMe, " ", "")
    SearchStringArray = Split(SearchMe, "|")
    
    For Each Search In SearchStringArray
        Rslt = Searchfunction(Search)
    Next

'Hier die Function:
    Function Searchfunction(SearchMe As String) As String
    value = False
    
        With ActiveSheet.Range("B7:L5000")
            Dim C As Range
            Set C = .Find(SearchMe, LookIn:=xlValues)
            If Not C Is Nothing Then
                Dim FirstAddress As String
                FirstAddress = C.Address
                Do
                    value = True
                    Rslt = Rslt & C.Address & ","
                    Set C = .FindNext(C)
                Loop While C.Address <> FirstAddress
                Return
            End If
        End With
    End Function

 

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 Probleme bei Function-Aufruf
 05.10.2016 09:20:18 David
Solved
05.10.2016 12:40:40 Florian
NotSolved