online 1
gast (50)

/ Forum / Skripte(PHP,ASP,Perl...)

Skripte(PHP,ASP,Perl...)Skripte(PHP,ASP,Perl...)

Fragevon Estella vom 06.08.2019, 19:04 Options

Werte ganzer Spalten auslesen

Hallo,

ich brauche mal bitte Hilfe bei einer VBA-Proggrammierung.

Über eine FOR-Schleife lass ich Werte einlesen, zum Beispiel Arbeitsstunden. Die Summe aller Stunden mache ich so:
Set r = a.Cells(5, c2)
cell r, ""
r.FormulaR1C1 = "=SUM(R[4]C:R[" + CStr(days + 4) + "]C)"
color r, i

Jetzt will es aber nicht klappen, dass ich nicht die Summe der Arbeitsstunden erfasse sondern lediglich die Anzahl wie oft er in dem Monat XY gearbeitet hat.

Bsp: Müller hat 50 Stunden gearbeitet und war 5 Tage arbeiten....

Also nur die Summe, wie oft Eintragungen in der Spalte gefunden wurden, und nicht deren Ergebnisse zusammengefasst.


Antwort schreiben

Antwort 1 von coros vom 07.08.2019, 10:50 Options

Hallo Estella,

mit der Eigenschaft

[b]Application.WorksheetFunction.CountIf(Bereich, Suchkriterium)[/b]


kannst Du genau wie mit der Formel =ZÄHLENWENN(Bereich, Suchkriterium) in VBA die Anzahl von Einträgen in einer Spalte erfassen.
Als Beispiel: Nachfolgende Befehlszeile liefert Dir die Anzahl der Einträge aus Spalte B und zeigt Sie Dir in einer Bildschirmmeldung an.:

[b]MsgBox Application.WorksheetFunction.CountIf(Range("B1:B65536"), ">0")[/b]


Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Ähnliche Themen

Zwei Spalten in einer vereinen
Katleen  27.08.2007 - 28 Hits - 1 Antwort

Access Abfrage - mehrere Werte in einem Feld ausgeben
stirlitz  23.10.2007 - 177 Hits - 1 Antwort

Excel: ZÄHLENWENN
jaysetsfire  21.11.2007 - 199 Hits - 10 Antworten

Zellen kopieren und tiefer einfügen mit Makro
HILFE_Suchende  26.01.2008 - 146 Hits - 7 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026