Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl eindeutiger Texte durch 250 teilbar?

Forumthread: Anzahl eindeutiger Texte durch 250 teilbar?

Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 13:20:46
Christian
Hallo, gibt es irgendwie eine VBA Lösung, die jedesmal wenn ich eine Änderung an D1:D68857 prüft ob die Anzahl der unterschiedlichen Texte in diesem Bereich durch 250 teilbar ist und wenn ja eine entsprechende Msx Box ausgibt?

Deshalb VBA, weil ich hoffe, dadurch so weit es irgend geht den Zeitverlust zu minimieren, eine entsprechende Formel, die die unterschiedlichen Texte zählt braucht bei mir ca. 10 Sekunden zum berechnen und das dann jedesmal wenn ich etwas ändere.

Danke
Christian
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 13:43:13
daniel
Hi
wie sieht denn deine Formel aus?
ich würde das so rechnen und das geht wesentlich schneller als 10 Sekunden:

=REST(ANZAHL2(EINDEUTIG(D1:D68857));250)=0

Gruß Daniel
AW: Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 13:46:37
Christian
ok, ich habs mit 2 Spalten gemacht, die erste die zählt zum wievielten mal der Text in Spalte D vorkommt, also=ZÄHLENWENN(D$1:D1;D1) und die andere =ZÄHLENWENN(D$1:D$68857;1)

dann teste ich mal
Anzeige
AW: Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 13:58:32
daniel
Ja, das ist Aufwendig, weil du viele ZählenWenns hast und ZählenWenns braucht viel Rechenzeit
Aber mit der neuen Excelfunktion EINDEUTIG sollte das sehr schnell gehen.

Gruß Daniel
AW: Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 21:16:50
Christian
Auf jeden Fall ihr habt recht, die Formel ist deutlich schneller.

Sie hat aber auch einen Nachteil, sie steht irgendwo in der Tabelle und ist nicht dauernd im Blickfeld. Ich wollte ja erreichen, dass ich, wenn ich nacheinander die Texte in die Spalte einfüge jedesmal wenn ich 250 eindeutige Texte eingegeben habe eine optische Meldung bekomme, wie zb eine MsgBox.

Meine alte Formelversion hat ja wenigstens Zeile für Zeile mitgezählt.

Aus dem Grund werde ich mir morgen dann auch Yals VBA Vorschlag genauer anschauen.

Gruß
Christian
Anzeige
AW: Anzahl eindeutiger Texte durch 250 teilbar?
28.09.2024 09:24:42
daniel
Hi

Schreibe die Formel in eine Zelle, z.b. A1.
Markiere die Spalte D und lege für sie eine Bedingte Formatierung an mit folgender Formel als Regel: =A1 und der Formatierung Hintergrundfarbe grün.

Dann wird die ganze Spalte grün, wenn du ein Vielfaches von 250 hast.




Gruß Daniel
Anzeige
AW: Anzahl eindeutiger Texte durch 250 teilbar?
29.09.2024 11:04:23
Christian
Hallo Daniel,

ich brauche doch nochmal deine Hilfe

https://www.herber.de/bbs/user/172479.xlsx

die Bedingung für die bedingte Formatierung ist erfüllt, aber obwohl ich bei Anwenden auf den kompletten Bereich angegeben habe, hat nur ein Teil der Zellen die rote Schriftfarbe und nicht alle.

Was hab ich da falsch gemacht

Und ja ich hab an deinem Vorschlag 2 Dinge geändert, einmal hab ich noch ne -1 eingefügt, weil die eindeutig Formel anscheinend auch Leerzellen mitzählt und zum anderen hab ich die Formel direkt in die Bedingung für die Formatierung geschrieben anstatt mich auf A1 zu beziehen.

Gruß und danke
Christian
Anzeige
AW: Anzahl eindeutiger Texte durch 250 teilbar?
29.09.2024 12:38:13
daniel
Hi
prinzipiell hast du nichts falsch gemacht.
bei mir funktioniert deine Datei und alles wird rot.
aber du scheinst deinen Rechner zu überfordern, so dass er nicht mehr mit der korrekten Darstellung nachkommt

es hatte schon seine Grund, warum ich die Formel in eine extra Zelle geschrieben habe und nicht direkt in die Bedingte Formatierung.
Wenn die Formel nur in einer Zelle steht, dann wird sie dort nur einmal berechnet, wenn du in der Spalte D einen Wert änderst und die Bedingte Formatierung führt nur noch einen einfachen Wertevergleich durch.
schreibst du die Formel direkt in die Bedingte Formatierung, muss diese Berechnung für jede Zelle durchgeführt werden und das das sind bei dir viele Zellen (über 68000), die jedes mal diese Zeitaufwendige Berechnung durchführen müssen.
daher ist es hier sinnvoller, eine zusätzliche Zelle für die Berechnung "zu opfern", weil das für Excel viel unnötige Rechenzeit einspart.
Gruß Daniel
Anzeige
Zellbezug muss absolut sein, nicht relativ
29.09.2024 14:08:15
daniel
doch, die erste Zeile wird rot. du hast da nur keinen Text drinstehen.

Du musst den Zellbezug auf Tabelle2!J1 auch absolut setzen: =Tabelle2!$J$1
sonst "wandert" dieser mit unf die Bedingte Formatierung der Zelle D2 schaut nicht mehr nach Tabelle2!J1 sondern nach Tabelle2!J2

weitere Infos zu absoluten und relativen Zellbezügen:
https://online-excel.de/excel/singsel.php?f=56

Anzeige
AW: Zellbezug muss absolut sein, nicht relativ
29.09.2024 14:18:21
Christian
Hallo Daniel,

vielen Dank, wieder etwas gelernt. Allerdings hattest du mir in einem der vorigen Beiträge, als du mir diesen Lösungsweg vorgeschlagen hast, gesagt ich soll da =A1 also einen relativen Zellbezug eintragen, deshalb hab ich mir gedacht, ich könne mir die $ sparen.

Gruß und schönen Sonntag noch
Christian
Anzeige
AW: Zellbezug muss absolut sein, nicht relativ
29.09.2024 14:23:55
daniel
Ich hab mir halt gedacht, das du das Prinzip relative absolute Zellbezüge kennst und daher von alleine weißt, wann du die $ verwenden musst und wann nicht.

Irgendwie ist mir dieser blinde Gehorsam ohne eigenes Nachdenken suspekt.
ehmmm
29.09.2024 14:30:27
Christian
die Tatsache dass ich rausgefunden habe, dass es nicht funktioniert hatte, weil die EINDEUTIG Formel Leerzellen mitzählt und deshalb die -1 eingefügt habe zeugt natürlich total davon, dass ich nicht auch von selbst mitdenke...
Anzeige
AW: ehmmm
29.09.2024 18:09:58
daniel
Nein, aber der andere Punkt ja.
AW: Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 13:45:06
BoskoBiati2
Hallo,

hast Du schon mal sowas probiert: 

=Wenn(rest(ANZAHL2(EINDEUTIG(D1:D68857));250)=0;"Durch 250 teilbar";"")


Gruß

Edgar
AW: Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 13:48:16
Yal
Hallo Christian,

mit VBA u.a. wie folgt: 

Sub Zählen()

Dim D As Object

Dim Z As Range



    Set D = CreateObject("Scripting.Dictionary")

    For Each Z In Range("D1:D68857")

        D(LCase(Trim(Z.Value))) = 1

    Next

    MsgBox "Es sind " & D.Count & " verschiedene Einträge." & vbCr & "Teilbar durch 250: " & IIf((D.Count Mod 250) = 0, "ja", "nein")

    Set D = Nothing

End Sub
Anzeige
AW: Anzahl eindeutiger Texte durch 250 teilbar?
27.09.2024 13:47:46
Christian
Leider nein, mir war die Eindeutig Formel nicht geläufig.
;

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Anzeige
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Tausenderzeichen in Textbox
Stefen

Hi Leute
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1=Format(TextBox1,"#,##0.00") End Sub
eingebe sollte doch in Verbindung mit Controlsource in der TextBox die Tausenderzeichen stehen.
Warum geht das nicht.
Es zeigt mir immer nur den Betrag 50000...
31.01.2009 16:44:00
Thread-ID: 1045681
12 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo VBA Profis
ich überprüfe mit folgendem Code ob jemand ein Sonderzeichen eingibt.
Sub txt_AuftragsNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 90, 48 To 57 'Grossbuchstaben, Zahlen Case 97 To 122 'Kleinbuchstaben Case Else MsgBox "Es sind k...
02.03.2009 11:41:30
Thread-ID: 1055489
5 Beiträge
Sonderzeichen in Textbox
Artur

Hallo User,
ich habe eine userForm als Eingabemaske entwickelt. Eins der Eingabefelder (Textbox) wir in der weiteren Verwendung als Dateiname verwendet. Wie kann ich es jetzt verhindern das der Benutzer die Sonderzeichen \ / ; usw. nicht in die Textbox einträgt. Vorerst vielen dank für Eure...
03.03.2009 10:45:06
Thread-ID: 1055855
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige