Microsoft Excel

Herbers Excel/VBA-Archiv

VBA - Wochentage, zählenwenn


Betrifft: VBA - Wochentage, zählenwenn von: Fred Neumann
Geschrieben am: 02.10.2019 09:31:40


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

  

Betrifft: AW: VBA - Wochentage, zählenwenn von: Torsten
Geschrieben am: 02.10.2019 09:42:55

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


  

Betrifft: AW: VBA - Wochentage, zählenwenn von: Torsten
Geschrieben am: 02.10.2019 09:55:05

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


  

Betrifft: AW: VBA - Wochentage, zählenwenn von: Fred Neumann
Geschrieben am: 02.10.2019 10:20:48


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


  

Betrifft: gerne... von: Torsten
Geschrieben am: 02.10.2019 10:40:57




Beiträge aus dem Excel-Forum zum Thema "VBA - Wochentage, zählenwenn"