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

VBA - Wochentage, zählenwenn

Forumthread: VBA - Wochentage, zählenwenn

VBA - Wochentage, zählenwenn
02.10.2019 11:31:40
Fred

Guten Morgen Excelaner,
ich habe eine Frage zu "zählenwenn" mit VBA,- wenn es um das zählen von Wochentagen geht.
Sheet "ListeSpiele" Spalte "A" ist mit Datumswerte gefüllt. Diese Werte im Format "TTTT",- also der 01.10.2019 wird als Dienstag angezeigt.
Ich möchte nun zB die Anzahl aller "Dienstage" in Spalte "A" ermitteln. 
Worksheets("Legende1").Range("AM2") = Application.WorksheetFunction.CountIf(Sheets("ListeSpiele").Range("A2:A100"), "Dienstag")

klappt nicht.
Wie schreibe ich das richtig?
Gruß
Fred
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Wochentage, zählenwenn
02.10.2019 11:42:55
Torsten
Hallo Fred,
Das geht so nicht, da ja nicht Dienstag in der Zelle steht, sondern das Datum. Das, was du oben in der Bearbeitungszeile siehst, sieht auch VBA. Wenn du das so machen willst, muesstest du mit einer Hilfsspalte arbeiten mit der Formel =TEXT(A2,"TTTT") und den Code dann auf dieser Spalte laufen lassen.
Gruss Torsten
Anzeige
AW: VBA - Wochentage, zählenwenn
02.10.2019 11:55:05
Torsten
Hallo nochmal,
hier eine Loesung, wie du es trotzdem ohne Hilfspalte hinbekommst. Das waere fuer den Dienstag. Wenn du einen anderen Tag willst, musst du in dieser Zeile die Zahl aendern 

If Weekday(rngZelle, vbMonday) = 2 Then

1 Montag, 2 Dienstag, 3 Mittwoch usw... 

Sub test()
Dim rngZelle As Range, rngRange As Range
Dim lngZaehler As Long
lngZaehler = 0
Set rngRange = Sheets("ListeSpiele").Range("A2:A100")
For Each rngZelle In rngRange
If Weekday(rngZelle, vbMonday) = 2 Then
lngZaehler = lngZaehler + 1
End If
Next
Sheets("Legende1").Range("AM2") = lngZaehler
End Sub

Gruss Torsten
Anzeige
AW: VBA - Wochentage, zählenwenn
02.10.2019 12:20:48
Fred
Hallo Torsten,
danke für die zwei Lösungsansätze,- wobei mir die Version mit der Hilfsspalte schon fast besser gefällt.
Danke für die Mühe!
Gruß
Fred
gerne...
02.10.2019 12:40:57
Torsten

Forumthreads zu verwandten Themen

Zählenwenns Oder "*"&
Chris
Hallo Zusammen,
eine Zusatzfrage zu folgendem Beitrag:
https://www.herber.de/forum/archiv/1540to1544/1542031_Zaehlenwenns_mit_Kriterium_als_quotoderquot_Bedingung.html
"Hallo
Die ODER Bedingung kannst du wie folgt einbauen:
=SUMME(ZÄHLENWENNS(A:A;C1;B:B;{"LandA";"LandB";"LandC...
23.09.2021 14:11:06
Thread-ID: 1848766
14 Beiträge
Zählen&Summewenns /mit leerer Bedingung
Michael
Hallo liebe Excel-Profis,
leider komme ich bei der Auswertung von Daten immer dann ans Limit wenn ich "leere" Kriterien habe. Ich versuche mein Problem zu erklären:
Ich habe eine große Tabelle mit vielen Daten zum Auswerten. Ich möchte nun die Auswertungskriterien in Auswahlfelder im oberen...
17.11.2022 09:26:47
Thread-ID: 1907452
20 Beiträge
countif
Chris

Hallo,
ich habe ein Problem mit countif!
Bei englischen Einstellungen ist alles schön, bei deutsch kommt das falsche raus.
Was muss ich hinschreiben, dass es auch im deutschen läuft?
Ich habe zwar schon einen Weg mit replace gefunden, das scheint mir aber nicht die goldene Lösun...
12.03.2019 13:47:30
Thread-ID: 1680794
1 Beitrag
ZÄHLENWENN Problem in VBA
Andreas

Hallo,
ich habe ein Problem und zwar folgendes:
Ich habe ein Makro dass verschiedene Zeilen durchsucht und dabei die Zellinhalte vergleicht. Stimmt ein Wert überein, merkt es sich diese Zelle und fügt es zu einem Range hinzu.
Dieser wird nachher in einen String umgewandelt und dann...
30.03.2007 17:05:00
Thread-ID: 859193
5 Beiträge
Anzeige
Excelberechnung per Wennfunktion stoppen
Luc
Moin zusammen,
ich benutze seit einigen Jahren immer mal wieder diese Berechnung:
https://www.tabellenexperte.de/besser-als-sverweis-alle-werte-finden/
(Darum soll es hier prinzipiell nicht gehen, auch wenn mein Problem durch Optimierung der Funktion sicherlich verbessert werden kann.)...
03.03.2021 18:42:44
Thread-ID: 1817204
1 Beitrag
Excelberechnung per Wennfunktion stoppen
Luc
Moin zusammen,
ich benutze seit einigen Jahren immer mal wieder diese Berechnung:
https://www.tabellenexperte.de/besser-als-sverweis-alle-werte-finden/
(Darum soll es hier prinzipiell nicht gehen, auch wenn mein Problem durch Optimierung der Funktion sicherlich verbessert werden kann.)...
04.03.2021 10:07:10
Thread-ID: 1817280
5 Beiträge
Anzeige
zählenwenn zwei Bedingungen erfüllt sind
Gisela

Hallo,
ich versuche verzweifelt folgendes zu berechnen:
Tabellenbeispiel: siehe Muster
Wer kann mir eine Formel (kein VBA) nennen, wie ich diese
Werte zählen kann. Mit "zählenwenn" klappt es nicht, da ja
zwei Bedingungen erfüllt sein müssen. (nur zählen wenn in einer
Zeile...
12.05.2004 01:06:00
Thread-ID: 427431
3 Beiträge
Vereinfachung der Formel
Baumpaul

Hallo Leute,
Ich hab mir jetzt mühsam eine Formel gebastelt und leider feststellen müssen, dass Excel diese nicht verarbeiten kann. (max. 7 Wenn)
Ich versuchs mal zu erklären:
Diese Besteht grundsätzlich aus 2 Teilen, wobei Teil 1 mit 3 Wenn-Verprüfungen vorhandene Bedingungen abfra...
03.04.2008 19:25:45
Thread-ID: 965771
2 Beiträge
Mehrfachabfrage
hartmut

Hallo zusammen,
ich habe folgendes Problem.
Ich möchte in einer Tabelle mit ca. 400Zeilen , wo mehrere Bedingungen erfüllt sein müssen, eine Zählung durchzuführen.
Spalte A z.B. beginnt mit S1; S2; S3 oder S4.
Spalte G beginnt immer mit einem Buchstaben
Spalte K hat immer...
01.08.2015 00:46:12
Thread-ID: 1439753
4 Beiträge
Hierfür ZählenWenn
Mindjogger

Servus,
ich benötige einmal Hilfe bei ZählenWENN:
In dem Excelsheet (Beispiel hier: https://www.herber.de/bbs/user/61787.xlsx) habe ich eine Aufstellung die mir Zeiten und Positiv/Negativ darstellt.
Nun möchte ich mir auflisten, wieviele Zeilen ich einen Wert zwischen jeweils 0, 2,...
13.05.2009 19:36:31
Thread-ID: 1074884
9 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum