Thema Datum  Von Nutzer Rating
Antwort
Rot werte vergleichen
14.09.2022 16:34:13 marv
Solved
15.09.2022 09:47:43 Mase
*****
Solved

Ansicht des Beitrags:
Von:
marv
Datum:
14.09.2022 16:34:13
Views:
258
Rating: Antwort:
 Nein
Thema:
werte vergleichen

Hi zusammen, 

ich habe 2 Arrays und würde gerne für jeden eintrag in Array1 prüfen, ob dieser in Array2 auftaucht. 

Mein bisheriger Code:
 

rows = ActiveSheet.Cells(ActiveSheet.rows.Count, "A").End(xlUp).row
arr1 = Range("G1:G" & rows).Value
arr2 = Range("C1:C" & rows).Value

Dim i As Integer
i = 1

 For Each item In arr1
    
    If WorksheetFunction.match(item, arr2, 0) = 1 Then
       Debug.Print "Ja"
    Else
       Debug.Print "Nein"
    End If
    
    i = i + 1

 Next item

 


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 werte vergleichen
14.09.2022 16:34:13 marv
Solved
15.09.2022 09:47:43 Mase
*****
Solved