Thema Datum  Von Nutzer Rating
Antwort
03.05.2016 10:17:05 Simon
NotSolved
03.05.2016 10:31:34 Simon
NotSolved
Rot Effizientes Durchsuchen von Zellbereichen
 03.05.2016 10:50:21 Crazy Tom
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
03.05.2016 10:50:21		 Views:
553		 Rating:
     
Antwort:
  Ja
Thema:
Effizientes Durchsuchen von Zellbereichen

Hi

ich weiß nicht genau was du bei einem Treffer machen willst

bei meinem Test bin ich von folgender Situation ausgegangen

Option Explicit

Sub test()
    Dim rngBereich As Range
    Dim c As Range
    Dim lngLetzte As Long
    lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
    Set rngBereich = Range("A1:CV" & lngLetzte)
    Set c = rngBereich.Find("Wort1", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        MsgBox "das gesuchte Wort1 ist in Zelle " & c.Address
        Exit Sub
    Else
        MsgBox "Wort1 ist nicht vorhanden"
    End If
    Set c = rngBereich.Find("Wort2", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        MsgBox "das gesuchte Wort2 ist in Zelle " & c.Address
        Exit Sub
    Else
        MsgBox "Wort2 ist nicht vorhanden"
    End If
End Sub

 

MfG Tom

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
03.05.2016 10:17:05 Simon
NotSolved
03.05.2016 10:31:34 Simon
NotSolved
Rot Effizientes Durchsuchen von Zellbereichen
 03.05.2016 10:50:21 Crazy Tom
NotSolved