Thema Datum  Von Nutzer Rating
Antwort
Rot Variable bei Range.Find benutzen
 04.10.2016 13:48:12 Cheesus
NotSolved
04.10.2016 14:02:18 Gast75021
Solved
04.10.2016 14:42:17 Cheesus
NotSolved

Ansicht des Beitrags:
Von:
Cheesus		 Datum:
04.10.2016 13:48:12		 Views:
987		 Rating:
     
Antwort:
  Ja
Thema:
Variable bei Range.Find benutzen

Hallo zusammen,

 

ich versuche mir eine "Find All" Function bei Excel zu basteln, die mir alle Zellen zurückgibt, in der sich ein gesuchter String befindet. Der String soll von einem Benutzer in einen Shape eingegeben werden, ist also als Variable im Programm gespeichert. Jedoch habe ich das Problem, dass VBA, wenn ich Variablen Namen eingebe, denkt das wäre der String, nachdem ich suche. Weiß jemand, wie ich das ändern kann? Hier mein Code:

    With ActiveSheet.Range("a7:a5000")
        Dim C As Range
'SearchString ist die gesuchte Variable. Das Skript sucht jetzt aber nach dem String SearchString in der angegebenen Range.
        Set C = .Find(SearchString, LookIn:=xlValues) 
        If Not C Is Nothing Then
            Dim FirstAddress As String, Rslt As String
            FirstAddress = C.Address
            Do
                Rslt = Rslt & C.Address & ","
                Set C = .FindNext(C)
            Loop While C.Address <> FirstAddress
        Debug.Print Left(Rslt, Len(Rslt) - 1)
        End If
    End With

Viele Grüße,

Cheesus

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 Variable bei Range.Find benutzen
 04.10.2016 13:48:12 Cheesus
NotSolved
04.10.2016 14:02:18 Gast75021
Solved
04.10.2016 14:42:17 Cheesus
NotSolved