Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählen bis Kriterium nicht mehr erfüllt

Forumthread: Zählen bis Kriterium nicht mehr erfüllt

Zählen bis Kriterium nicht mehr erfüllt
27.08.2018 09:49:24
Nischu
Hallo,
ich habe eine Excel Tabelle, in der bestimmte Ktriterien gezählt werden sollen, solange sie nicht durch ein anderes Kriterium unterbrochen werden. Wird es unterbrochen, dann soll bei einem erneut erfüllten Kriterium von vorne angefangen werden.
Bsp. A1:C1 "F" = Kriterium erfüllt Zählen
D1 "wfr" = Kriterium nicht erfüllt also Zählwert auf Null
E1:G1 "S" = Kriterium erfüllt also erneut Zählen ohne Berücksichtigung A1:C1
Wenn nun beim Zählen ein Wert größer als 7 auftritt, dann soll ein Popupfenster erscheinen.
Sonst soll nichts passieren.
Userbild
Ich hoffe ich konnte mich verständlich ausdrücken.
Danke im Voraus für die Hilfe.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: unklar was und wie gezählt wird ...
27.08.2018 11:18:37
neopa
Hallo Nischu,
... außerdem ist es fast immer sinnvoller, eine Exceldatei hoch zu laden als ein Bild davon.
Gruß Werner
.. , - ...
AW: Zählen bis Kriterium nicht mehr erfüllt
27.08.2018 11:56:03
EtoPHG
Hallo Nischu,
Folgenden Code in ein Standard-Modul: 
Option Explicit
Sub ReihenAlert()
Const AlertLimit As Integer = 7
Dim rC As Range, sameStrg As String, sameCnt As Integer, sameRow As Long
Dim AlertMsg As String, bMsgDone As Boolean
On Error GoTo exit_sub
sameRow = Selection.Cells(1, 1).Row
For Each rC In Selection.Cells
If sameStrg = rC.Text And sameRow = rC.Row Then
sameCnt = sameCnt + 1
If sameCnt > AlertLimit And Not bMsgDone Then
AlertMsg = AlertMsg & "Zeile " & rC.Row & _
" Wiederholungen [" & sameStrg & "] >" & AlertLimit & vbCrLf
bMsgDone = True
End If
Else
sameRow = rC.Row
sameStrg = rC.Text
bMsgDone = False
sameCnt = 1
End If
Next rC
If AlertMsg = "" Then
MsgBox "Alles OK!", vbInformation, "Keine Reihe überschreitet " & AlertLimit
Else
MsgBox AlertMsg, vbExclamation, "Überschreitung(en) von " & AlertLimit & _
" Wiederholungen in Folge"
End If
exit_sub:
On Error GoTo 0
End Sub
Ggf. einer Tastaturkombi zuordnen (Makros - Optionen - Tastaturkombination).
Bereich der zu überprüfen ist im Tabellenblatt selektieren.
Makro "ReihenAlert" Ausführen (oder Tastaturkombi eingeben).
Gruess Hansueli
Anzeige
AW: Zählen bis Kriterium nicht mehr erfüllt
28.08.2018 08:54:02
Nischu
Vielen Dank für die schnelle Antwort.
Ich glaube das es funktiniert, konnte es aber nur anhand einer Beispieldatei testen. Werde es wohl erst morgen schaffen es in der Originaldatei (anderer Rechner) auszuprobieren.
Viele Grüße Nischu
;

Forumthreads zu verwandten Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Ansicht nur rechte Spalte in Combobox
Olli

Hallo Leute....
ich hab da ein (vermutlich nur) kleines Problem, wo ich momentan auf dem Schlauch stehe und hoffe, mir kann wer hier nen Tip dazu geben.
Folgendes...hab eine UF, in der u.a. sich eine Combobox befindet. Rowsource umfasst hier zwei Spalten. Ich möchte erreichen, dass in d...
03.09.2008 19:39:00
Thread-ID: 1007223
5 Beiträge
Anzeige
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
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Anzeige
VBA-Werte aus Spalte in ComboBox
andreas

Hallo zusammen,
habe ein Formular da möchte ich die Daten nach den Werten in Spalte D Filtern. Dazu sollen die Daten ab Zeile 11 alphabetisch geordnet und jeder Eintrag nur einmal angezeigt in die Combobox eingelesen werden. Der ausgesuchte Wert wird dann als Criterium für die Filterfunktio...
25.09.2008 08:47:11
Thread-ID: 1012218
7 Beiträge
Werte zählen mit Bedingung
Hugo

Hallo,
in Spalte K sollen die in Spalte H aufeinderfolgenden Werte unter Bedingung gezählt werden. Habe händisch eingetragen wie gezählt werden soll. Auch ein kommentar beschreibt wie ich mir denken könnte wie es zu definieren ist. Andere Ideen sind natürlich willkommen.
Danke und Grus...
02.10.2008 18:53:00
Thread-ID: 1013949
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Wenn ComboBox Dann ListBox
sockel939

Hallo Excelfreunde,
habe hier ne Legerverwaltung dessen Code ich gerne um einen Punkt erweitern möchte.
Und zwar soll die TextBox " Lagerbestand" aus der UserForm die Gesamtmenge aus der Tabelle "Lagerstand" wiedergeben in abhängigkeit des Wertes der in der ComboBox "Marke"
eingegeb...
16.10.2008 15:36:46
Thread-ID: 1016894
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige