Funktion CountIf
12.08.2015 15:36:15
Andi...
Ich möchte folgendes Problem lösen: in der Tabelle stehen in Spalte 5 die Auftragsnummern, diese sollen verglichen werden und wenn eine Auftragsnummer mehrmals vorkommt, dann soll WAHR und wenn diese nur einmal vorkommt, dann soll Falsch in Spalte 8 ausgegeben werden. Momentan habe ich das mit der Funktion "Zählenwenn" gelöst:
=Zählenwenn(E2:E$10000;E2)>1
Das Funktioniert auch ganz gut nur es dauert sehr lange, wenn alle Daten aktualisiert werden und alle Formeln neu berechnet werden.
Nun möchte ich das Ganze mit VBA lösen. Ich habe hierzu auch schon einen Code aber mit diesem dauert die Prozedur noch länger:
Sub Vergleich()
Dim Hilfstabelle As Worksheet
Dim i As Long
Dim j As Long
Dim werT As Long
Dim Bereich As Range
Set Hilfstabelle = ThisWorkbook.Worksheets("Hilfstabelle")
j = Hilfstabelle.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Hilfstabelle.Cells(Rows.Count, 5).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range(Cells(i, 5), Cells(j, 5)), Cells(i, 5)) Viele Grüße
Andi