Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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

VBA - Anzahl von Monatseinträgen eines Jahres

Forumthread: VBA - Anzahl von Monatseinträgen eines Jahres

VBA - Anzahl von Monatseinträgen eines Jahres
28.08.2018 15:41:16
Monatseinträgen
Aloha Community.
Ich habe in den Zellen A1-A200 einer Datei A Daten untereinander stehen. Der Zellbereich ist als Datum formatiert.
Ziel ist es in die Zellen B1-B12 einer Datei B die Anzahl aller Einträge zu schreiben, die für die Monate Januar bis Dezember des Jahres 2017 in Datei A enthalten sind.
Im weiten Netz stoße ich leider immer wieder auf =ZÄHLENWENN.
Ich benötige jedoch eine VBA-Lösung und bitte um Hilfe.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
In VBA heißt das "COUNTIF" ... owT
28.08.2018 15:48:13
Matthias
AW: VBA - Anzahl von Monatseinträgen eines Jahres
28.08.2018 15:48:26
Monatseinträgen
Hi
z.B.
Sub t()
MsgBox Evaluate("SUMPRODUCT(N(YEAR([Mappe1.xlsx]Tabelle1!A1:A200)=2017))")
End Sub

cu
Chris
AW: VBA - Anzahl von Monatseinträgen eines Jahres
28.08.2018 15:52:06
Monatseinträgen
Hallo,
Warum um Himmelswillen eine VBA Lösung?
Das ist ein klassisches Problem für eine Pivottabelle!
Gruess Hansueli
Anzeige
AW: VBA - Anzahl von Monatseinträgen eines Jahres
28.08.2018 19:33:34
Monatseinträgen
@EtoPHG
Für dieses Beispiel hast du Recht. Aus Gründen der Übersicht habe ich die Problematik stark reduziert. Damit ich es umfangreicher umsetzen kann brauche bei kleinen Stolpersteinen Hilfe.
@ChrisL
Ich habe es umgesetzt. Allerdings führt dies nicht zum Erfolg.
Wo gebe ich den benötigten Monat ein?
Sub Import()
Dim QD, QP As String      'Quelldatei, Quellpfad
QP = "C:\..."
QD = Dir(QP & "\*." & "xlsx")
MsgBox Evaluate("SUMPRODUCT(N(YEAR([QD]Tabelle1!A1:A200)=2017))")
End Sub
Als Beispiel die zwei aufbereiteten Dateien.
https://www.herber.de/bbs/user/123623.zip
Anzeige
AW: VBA - Anzahl von Monatseinträgen eines Jahres
28.08.2018 19:38:22
Monatseinträgen
Hi
Die Dateien habe ich nicht geöffnet, vielleicht hilft schon 
"SUMPRODUCT(N(YEAR([" & QD & "]Tabelle1!A1:A200)=2017))"
cu
Chris
AW: VBA - Anzahl von Monatseinträgen eines Jahres
28.08.2018 20:06:41
Monatseinträgen
Leider nein. Laufzeitfehler 13: Typen unverträglich.
Ich müsste irgendwo den Monat eingeben können, den ich ausgewertet haben möchte.
Mich interessieren nicht die Einträge des Jahres 2017, sondern der einzelnen Monate von 2017.
Anzeige
AW: VBA - Anzahl von Monatseinträgen eines Jahres
29.08.2018 08:38:58
Monatseinträgen
Habe eine Lösung gefunden. Ob es kompakter und eleganter geht, weiß ich aktuell noch nicht.
Zum Nachvollziehen siehe Anhang.
https://www.herber.de/bbs/user/123629.zip 
Sub Import()
Dim QD, QP As String      'Quelldatei, Quellpfad
Dim QAM As Workbook
Set ZRB = ThisWorkbook.Sheets(1)
QP = "C:\..."
QD = Dir(QP & "\*." & "xlsx")
Set QAM = Workbooks.Open(QP & "\" & QD)
Set QRB = QAM.Sheets(1)
Set R = Range(QRB.Cells(1, 1), QRB.Cells(10000, 1))
l = Application.WorksheetFunction.CountA(R)
For i = 0 To l
Datum = QRB.Cells(1 + i, 1)
M = Month(Datum)
Y = Year(Datum)
If M = 1 And Y = 2015 Then Jan = Jan + 1
If M = 2 Then Feb = Feb + 1
If M = 3 Then Mar = Mar + 1
If M = 4 Then Apr = Apr + 1
If M = 5 Then May = May + 1
If M = 6 Then Jun = Jun + 1
If M = 7 Then Jul = Jul + 1
If M = 8 Then Aug = Aug + 1
If M = 9 Then Sep = Sep + 1
If M = 10 Then Octo = Octo + 1
If M = 11 Then Nov = Nov + 1
If M = 12 Then Dec = Dec + 1
Next
ZRB.Range("B1") = Jan
ZRB.Range("B2") = Feb
ZRB.Range("B3") = Mar
ZRB.Range("B4") = Apr
ZRB.Range("B5") = May
ZRB.Range("B6") = Jun
ZRB.Range("B7") = Jul
ZRB.Range("B8") = Aug
ZRB.Range("B9") = Sep
ZRB.Range("B10") = Octo
ZRB.Range("B11") = Nov
ZRB.Range("B12") = Dec
QAM.Close False
End Sub

Anzeige
AW: VBA - Anzahl von Monatseinträgen eines Jahres
29.08.2018 10:02:30
Monatseinträgen
sauberer:
Sub Import()
Dim QD, QP As String      'Quelldatei, Quellpfad
Dim R As Range
Dim QAM As Workbook
Set ZRB = ThisWorkbook.Sheets(1)
QP = "C:\..."
QD = Dir(QP & "\*." & "xlsx")
Set QAM = Workbooks.Open(QP & "\" & QD)
Set QRB = QAM.Sheets(1)
Set R = Range(QRB.Cells(1, 1), QRB.Cells(10000, 1))
l = Application.WorksheetFunction.CountA(R)
For j = 0 To 11
Mi = 0
For i = 0 To l
Datum = QRB.Cells(1 + i, 1)
M = Month(Datum)
Y = Year(Datum)
If M = 1 + j Then Mi = Mi + 1
If Mi = 0 Then GoTo 1
ZRB.Cells(1 + j, 2) = Mi
1
Next
Next
QAM.Close False
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzahl Zeilen mit identischen Eintrag errechnen
Matthias

Hallo,
ich will die folgenden Aufgabe per Makro lösen: ich will wissen, wie viele Zeilen es unterhalb einer Ausgangszeile mit dem gleichen Inhalt gibt, bis der Inhalt der nächsten darunter liegenden Zelle wechselt.
Beispiel:
Dresdner Bank Banken
Historie
Historie
...
16.10.2008 12:50:00
Thread-ID: 1016833
2 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Anzeige
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Alle Zeilen mit bestimmtem Inhalt löschen
Lutz

Hallo Excel-Profis,
ich habe eine Tabelle die "Liste" heisst und in der Buchungen per Makro eingefügt werden.
Jetzt möchte ich per Makro einen Vorgang der aus mehreren Zeilen bestehen kann löschen.
D.h. ich möchte per Box fragen welcher Beleg (steht in Spalte "E") gelöscht werden so...
13.03.2009 18:53:36
Thread-ID: 1059979
3 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 14:06:36
Thread-ID: 1075153
5 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Makro um Zeilen mit gleichem Inhalt zu kopieren
christian

Hallo,
vielleicht kann mir jemand von euch helfen....
Ich habe eine Ausgangstabelle mit verschiedenen Produktnummern in Spalte A und unterschiedlichen
anderen Informationen in den Spalten B-U. Die Daten in dieser Tabelle habe ich sortiert, so dass in Spalte
A alle gleichen Produ...
15.10.2009 18:56:31
Thread-ID: 1109906
8 Beiträge
Zählenwenn leere Zeile
chrissey

Hallo Leut,
würde gerne in einem Datensatz die leeren Zellen zählen.
Krieg das aber irgendwie nicht hin:
=Zählenwenn(A1:A1000;?)
Grüße & Danke
Chrissey
18.02.2010 09:44:50
Thread-ID: 1139415
6 Beiträge
Anzahl Datenzeilen ermitteln
Lutz

Hallo,
ich möchte die Anzahl der Datenzeilen ermitteln.
Der Datenbereich kann unterschiedlich groß sein.
Bei eingeschaltetem Autofilter sollen nur die sichtbaren Werte gezählt werden.
Mit der funktion Teilergebnis kam ich nicht weiter, da die Spalten nicht durchgängig befüllt si...
09.03.2010 09:53:40
Thread-ID: 1144479
8 Beiträge
kopieren zellinhalte mit zeilenumbruch
Markus

Liebe Excel-Spezialisten,
Ich habe eine Excel-Mappe mit 2 Sheets; einem Quellsheet "Zusammenfassung" und einem Zielsheet "Export".
Im Quellsheet sind in der Spalte A Probennummern (z.B BX0055488, BX00554557, usw.) eingetragen Ein und diesselbe Probennummer kann unterschiedlich oft vorko...
20.04.2010 19:23:35
Thread-ID: 1152969
4 Beiträge
Nicht ausgefüllte Zellen zählen
Martin

Hallo zusammen,
ich möchte in einer Tablle die nicht ausgefüllten Zellen einer Spalte zählen. Normalerweise benutzt man ja einfach dazu die "ANZAHLLEEREZELLEN"-Funktion. Diese zählt leider auch zusammengeführte Zellen als leer.
Wie kann man verhindern, dass die zusammengeführten Zellen...
17.05.2010 17:43:34
Thread-ID: 1157487
8 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