habe momentan folgendes Makro, welches jede Zeile durchläuft und Werte kopiert bei Übereinstimmung. Hier mein Code:
For readln = 1 To 65535 ' Durchläuft die Liste und bei Übereinstimmung, kopiere Datensatz
If Worksheets("Daten").Cells(readln, 3).Value = IP_Adress_1 And Worksheets("Daten").Cells(readln, 3).Value = IP_Adress_2 Then
writeln = writeln + 1
If writeln > 0 Then
Call DO_Copy("Empfangen", readln, writeln, 0)
End If
End If
Next readln
Wie kann ich es noch einbringen, dass er mir ausgibt, wie oft es zu einer Übereinstimmung kommt?
Gruss Janni