Thema Datum  Von Nutzer Rating
Antwort
Rot Selection.Find nach mehreren Werten durchsuchen
 15.05.2014 10:49:58 Gast24773
NotSolved
15.05.2014 16:51:19 Gast2118
NotSolved

Ansicht des Beitrags:
Von:
Gast24773		 Datum:
15.05.2014 10:49:58		 Views:
1200		 Rating:
     
Antwort:
  Ja
Thema:
Selection.Find nach mehreren Werten durchsuchen

Hallo Leute. Ich würde gerne eine Spalte nach mehreren Werten absuchen, und wenn diese Werte nicht gefunden werden, sollen sie gelb markiert werden.
Die Werte nach denen zu suchen ist stehen in einer Spalte in Sheet 2 und die Spalte in der zu suchen ist befindet sich in Sheet 1. Der Plan war es, dass er die Werte nacheinander abarbeitet. Mein Code spuckt jedoch leider eine Fehlermeldung aus "Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt." Vielleicht weiß ja einer von euch weiter.

 

Sub test()
Dim i As Long

With ThisWorkbook.Worksheets(2)
    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
        Worksheets(1).Columns("A:A").Select
        Selection.Find(What:=Worksheets(2).Cells(i, 1).Value, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
            If cell Is Nothing Then
            Worksheets(2).Cells(i, 1).Interior.Color = vbYellow
            End If
    Next i
    End With
End Sub

 

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 Selection.Find nach mehreren Werten durchsuchen
 15.05.2014 10:49:58 Gast24773
NotSolved
15.05.2014 16:51:19 Gast2118
NotSolved