Thema Datum  Von Nutzer Rating
Antwort
09.08.2018 11:30:57 Gast24970
Solved
Blau Schleife?
 09.08.2018 11:45:21 Gast38787
Solved
09.08.2018 18:23:12 Mackie
Solved

Ansicht des Beitrags:
Von:
Gast38787		 Datum:
09.08.2018 11:45:21		 Views:
376		 Rating:
     
Antwort:
 Nein
Thema:
Schleife?

Hallo,

bei sowas hilft auch immer die Hilfe: Einfach mal den Cursor auf das Wort "find" navigieren und F1 drücken. In der Hilfe findest du dann ein Beispiel, wie du da eine Schleife daraus bauen kannst. Das müsste dann so ähnlich sein, wie der Code, den ich dir hier geschrieben habe:

Sub test()
Dim finden As Range, strFirstAdr As String
Set finden = Range("D2:D100").Find(What:="*Lidl*", MatchCase:=False)
If Not finden Is Nothing Then
    strFirstAdr = finden.Address
    Do
        Cells(finden.Row, 6).Value = "Einzelhandel"
        Set finden = Range("D2:D100").FindNext(finden)
    Loop While strFirstAdr <> finden.Address
End If
End Sub

Einfach mal in der Hilfe nachschauen und meinen Code mit dem, der dort ist, vergleichen. Fällt dir auf, dass in der Hilfe noch ein Fall abgedeckt wird, den ich in deinem konkreten Fall nicht berücksichtige?

Grüße, Ulrich

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
09.08.2018 11:30:57 Gast24970
Solved
Blau Schleife?
 09.08.2018 11:45:21 Gast38787
Solved
09.08.2018 18:23:12 Mackie
Solved