Thema Datum  Von Nutzer Rating
Antwort
19.05.2016 11:36:17 Baggio
NotSolved
Blau .Find mit 2 Criterien bei der ActiveSheet.Range Funktion
 19.05.2016 12:30:16 Gast78544
**
NotSolved

Ansicht des Beitrags:
Von:
Gast78544		 Datum:
19.05.2016 12:30:16		 Views:
548		 Rating:
     
Antwort:
  Ja
Thema:
.Find mit 2 Criterien bei der ActiveSheet.Range Funktion

Hallo,

Du feuerst .Find 2-mal ab:

Dim XX As Range
Dim Criteria1 As String
Dim Criteria2 As String
Criteria1 = "A"
Criteria1 = "B"

Set XX = .Find(What:=Criteria1, _
                                After:=.Cells(1), _
                                LookIn:=xlValues, _
                                LookAt:=xlWhole, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlPrevious, _
                                MatchCase:=False)
                    
If Not XX Is Nothing Then
  ' Code wenn Criteria1 gefunden
Else
  
    Set XX = .Find(What:=Criteria2, _
                                After:=.Cells(1), _
                                LookIn:=xlValues, _
                                LookAt:=xlWhole, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlPrevious, _
                                MatchCase:=False)
    If Not XX Is Nothing Then
      ' Code wenn Criteria2 gefunden
    End If
End If

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
19.05.2016 11:36:17 Baggio
NotSolved
Blau .Find mit 2 Criterien bei der ActiveSheet.Range Funktion
 19.05.2016 12:30:16 Gast78544
**
NotSolved