kommt ein Text mehrfach vor und ein anderer nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim strText As String Dim rng, c As Range Dim lngZeile, i As Long Dim ws As Worksheet i = 0 Set ws = ThisWorkbook.Sheets(1) 'Anpassen With ws lngZeile = .Range(.Rows.Count, 1).End(xlUp).Row strText = .Cells(2, 2).Value Set rng = .Range(.Cells(1, 2), .Cells(lngZeile, 1)) For Each c In rng If c.Value = strText Then i = i + 1 End If Next c If i > 0 Then .Cells(1, 3).Value = "WAHR" End With

Hi
noch besser:

=Wenn(ZählenWenn(F1:F20;B1)=0;Wenn(ZählenWenn(B:B;B1)>1;Wahr;Falsch);Falsch)

warum ist das besser?
ZählenWenn sind Zeitaufwendige Funktionen. Wenn die Datenbereiche groß sind und diese Funktion mehrfach verwendet wird, können schnell spürbare Rechenzeiten zustande kommen, die das Arbeiten mit der Datei dann behindern.
bei UND(ZählenWenn()>0;ZählenWenn()=0) und bei (ZählenWenn()>0)*(ZählenWenn()=0) werden immer beide ZählenWenns berechnet.
Beim geschachtelten Wenn wird nur das erste ZählenWenn immer berechnet.
das zweite ZählenWenn wird nur dann berechnet, wenn die erste Prüfung ein WAHR ergeben hat und damit weniger oft.
Somit sollte das WENN weniger Rechenzeit verursachen als UND und *, auch wenn die Formel länger ist.
man sollte sich auch ein paar Gedanken darüber machen, welches ZählenWenn man an die erste Stelle nimmt.
Vorzugsweise das, welches weniger häufig WAHR wird, oder dasjenige, welches schneller berechnet werden kann.
das UND hat zusätzlich den Nachteil, dass es in Matrixfunktionen wie Summenprodukt oder bei Eingabe mit STRG+SHIFT+ENTER nicht verwendet werden kann.
aber wenn es keine Probleme mit der Rechenzeit gibt, spricht natürlich nichts gegen UND oder *
Gruß Daniel

Hallo Daniel,
nein die Formel hat den Sinn, zu überprüfen ob B1 mehrfach in den ca. 10000 Zeilen vorkommt, das Ganze wird dann auch wie du vermutet hast bis in Zeile 10359 kopiert.
Von den mehr als 10000 Texten kommen 10 2mal vor, also nur ein sehr geringer Anteil.
Der Sinn des Ganzen ist nun zu überprüfen, weshalb er 2mal vorkommt, was ich händig ohne Formel mache.
Kommt er zurecht 2mal vor kopiere ich den Text von Spalte A nach Spalte F.
Der Sinn und Zweck ist, das wenn ich das irgendwann nochmal mache, anhand von Spalte F geschaut wird, was ich bereits irgendwann mal überprüft habe, damit ich mir keine doppelte Arbeit mache.
Das heißt, beide Zählenwenn Formeln beziehen sich zwar auf einen sehr großen Bereich, aber die Zellen in denen sie wahr ausgeben, beziehen sich auf einen sehr kleinen Bereich von max. 20.
Welche Reihenfolge da jetzt besser ist, überlasse ich dir.
Aber genau genommen, das ganze hat ja sowieso nur den Sinn einer Überprüfung, das mache ich vlt. einmal im Monat und lösche nach dem Überprüfen die Formel auch wieder da ich sie erst in der nächsten Überprüfung brauche, eben wegen der Rechenzeit. Das Berechnen dauert ca. 8 Sekunden, wegen 8 Sekunden im Monat brauchen wir uns keine Gedanken über Zeitoptimierung machen.
Gruß
Christian

Beliebteste Forumthreads (12 Monate)

kommt ein Text mehrfach vor und ein anderer nicht

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread