Thema Datum  Von Nutzer Rating
Antwort
06.08.2013 07:59:47 hallo02
NotSolved
Blau Range.Find auf Teilstring anwenden
 07.08.2013 18:08:03 Gast65903
NotSolved

Ansicht des Beitrags:
Von:
Gast65903		 Datum:
07.08.2013 18:08:03		 Views:
675		 Rating:
     
Antwort:
  Ja
Thema:
Range.Find auf Teilstring anwenden		 
Sub example()
  
  Dim rng As Excel.Range
  Dim str As String
  
  With Tabelle1.UsedRange
    
    'Set rng = .Find("Wert1-*-*", LookIn:=xlValues, LookAt:=xlWhole)
    Set rng = .Find("*-Wert2-*", LookIn:=xlValues, LookAt:=xlWhole)
    'Set rng = .Find("*-*-Wert3", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not rng Is Nothing Then
      str = rng.Address
      Do
        Debug.Print rng.Address(False, False), rng.Value
        Set rng = .FindNext(rng)
      Loop While rng.Address <> str
    End If
  End With
  
End Sub

Gruß

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
06.08.2013 07:59:47 hallo02
NotSolved
Blau Range.Find auf Teilstring anwenden
 07.08.2013 18:08:03 Gast65903
NotSolved