Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: vba gleiche Werte zählen/auflisten/popup

vba gleiche Werte zählen/auflisten/popup
20.05.2024 10:57:38
Murksl
Guten Tag Zusammen.

Arbeite derzeit an einer Liste für meine Firma.
Die ein oder andere vba habe ich geschafft zu schreiben. Absoluter Neuling darin aber sehr interessiert es zu lernen. Das ein oder andere lernvideo auf Youtube und das Forum hier haben mir schon geholfen.

Zu dem Folgenden Problem:

möchte im Bereich B7 bis H90 alle Nummern in K7 auflisten, beginnend mit der Kleinsten und in Spalte L7 die Anzahl wie oft sie vorkommt. Sollte der Wert 2 übersteigen dann soll ein Popup sich öffnen.
Habe es derzeit mit Formeln gelöst (Siehe Spalte J) aber können bis zu 550 verschiedene Zahlen sein.

Wäre euch sehr dankbar wenn ihr mir helfen könnt und ich meinen lernstatus somit erhöhe.

https://www.herber.de/bbs/user/169580.xlsm

Mfg Murksl
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba gleiche Werte zählen/auflisten/popup
20.05.2024 11:06:50
RPP63
Moin!
Vorab die berechtigte Frage:
Darfst Du in der Firma VBA überhaupt nutzen?

Gruß Ralf
(der offen lässt)
AW: vba gleiche Werte zählen/auflisten/popup
20.05.2024 11:13:02
BoskoBiati2
Hallo,

Deine Formel mit kkleinste(...;1) ist sehr unglücklich. Mit kkleinste(...;Zeile(a1)) kann man sie nach unten ziehen.

Bei 365 bietet sich das an:

=LET(a;KKLEINSTE(EINDEUTIG(ZUSPALTE($B$7:$H$60);0;0);ZEILE(A1:A150));b;ZÄHLENWENN(B7:H36;a);HSTAPELN(a;b))


Damit hast Du alle unterschiedlichen Zeiten und ihre Häufigkeit komplett aufgelistet.
Anzeige
Wo genau...
20.05.2024 11:15:57
{Boris}
Hi Edgar,

...hast Du in der Datei denn KKLEINSTE gefunden?

VG, Boris
AW: vba gleiche Werte zählen/auflisten/popup
20.05.2024 11:18:20
BoskoBiati2
Hi,

habe ich vergessen: Du mußt den Bereich der Formel anpassen.

Mit dieser Formel:

=LET(a;KKLEINSTE(EINDEUTIG(ZUSPALTE($B$7:$H$90);0;0);ZEILE(A1:A150));b;ZÄHLENWENN(B7:H36;a);FILTER(HSTAPELN(a;b);b>4))


werden Dir nur die Werte angezeigt, die öfter als 4x vorkommen
Anzeige
AW: vba gleiche Werte zählen/auflisten/popup
20.05.2024 11:24:00
Murksl
Vielen lieben dank für die vielen und schnellen Antworten. Der was es bis jetzt gemacht hat ist leider nicht mehr im Unternehmen. Habe es auch geschafft über VBA das ein popup aufgeht wenn ich oben auf die Schaltfläche drücke. Aber kann man das auch so schreiben das is Popup sofort kommt wenn der Wert > 2 liegt?

Lg und sorry wegen der ausgeblendeten J Spalte 🙈
Anzeige
Wie viele "PopUps" möchtest Du denn haben?
20.05.2024 11:42:16
{Boris}
Hi,

das ist doch gar nicht praktisch. Deine bisherige Lösung ist doch gut. Wenn Du die Ergebnisspalte nach größer 1 filterst, hast Du doch alle infos.

VG, Boris
AW: Wie viele "PopUps" möchtest Du denn haben?
20.05.2024 12:05:35
Murksl
Hätte das Popup aus der Prüfung genommen weil das eigentlich Plan B war. Plan A war das, dass Popup aufgeht und der Person was auf der Liste Arbeitet sagt. Vorsicht der MA hat schon 2 mal die Ruhezeit unterschritten.

LG Murksl
Anzeige
AW: Wie viele "PopUps" möchtest Du denn haben?
20.05.2024 12:35:58
Murksl
Das habe ich im Netz gefunden. Funktioniert soweit ja aber leider summiert er die zeilen anstatt sie einzel zu Prüfen.

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.Sum(Range("L7:L90")) > 2 Then
MsgBox "Ruhezeit(11std.) öfter als 2 mal unterschritten !", vbCritical, "ACHTUNG"
End If

Sorry fange erst an mit VBA.
Anzeige
Hab`s gefunden...
20.05.2024 11:17:31
{Boris}
Hi,

...Spalte war ja ausgeblendet.

VG, Boris
AW: vba gleiche Werte zählen/auflisten/popup
20.05.2024 11:12:18
Murksl
Ja dürfen wir verwenden und wird auch teilweise schon verwendet.
Lg

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige