am häufigsten vorkommender Monat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Monate() Dim i As Integer Dim m As Integer Dim intP(3) As Integer Dim intMonat(12) As Integer If Worksheets(1).Cells(2, 3).Value = "" Then MsgBox "Kein Datum vorhanden" Exit Sub Else End If For i = 2 To Worksheets(1).Cells(1, 3).End(xlDown).Row For m = 1 To 12 If Month(Cells(i, 3)) = m Then intMonat(m) = intMonat(m) + 1 Exit For Else End If Next m Next i For i = 1 To 3 intMonat(0) = 0 For m = 1 To 12 If intMonat(m) > intMonat(0) Then intMonat(0) = intMonat(m) intP(i) = m Else End If Next m intMonat(intP(i)) = 0 Next i MsgBox "Platz 1: " & intP(1) & vbCrLf & "Platz 2: " & intP(2) & vbCrLf & "Platz 3: " & _ intP(3) End Sub

Hallo Christian,
... meine rein ineraktiv erstellte PQ-Lösung bedarf 9 Schritte; siehe:
let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Datum", type date}}),
#"Spalte nach Positionen teilen" = Table.SplitColumn(Table.TransformColumnTypes(#"Geänderter Typ", {{"Datum", type text}}, "de-DE"), "Datum", Splitter.SplitTextByPositions({3}), {"Überschrift.1"}),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Spalte nach Positionen teilen", "Monat", each "1."&[Überschrift.1]),
#"Entfernte Spalten" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"Überschrift.1"}),
#"Geänderter Typ1" = Table.TransformColumnTypes(#"Entfernte Spalten",{{"Monat", type date}}),
#"Gruppierte Zeilen" = Table.Group(#"Geänderter Typ1", {"Monat"}, {{"Anzahl", each Table.RowCount(_), type number}}),
#"Sortierte Zeilen" = Table.Sort(#"Gruppierte Zeilen",{{"Anzahl", Order.Descending}}),
#"Beibehaltener Zeilenbereich" = Table.Range(#"Sortierte Zeilen",0,3)
in
#"Beibehaltener Zeilenbereich"
Meine alternative Formellösung mit zwei Formeln, die nachfolgend aufgezeigten einfach nach unten kopieren.

Arbeitsblatt mit dem Namen 'Tabelle2'
	C	D	E	F	G	H	I
1	Datum		PQ-Lösung			Formellösung
2	16.02.2003		Monat	Anzahl		Monat	Anzahl
3	16.03.2003		Sep 2018	82		Sep 18	82
4	24.11.2003		Nov 2018	79		Nov 18	79
5	15.12.2003		Mai 2018	73		Mai 18	73
6	31.12.2003

Zelle	Formel
H3	=TEXT(INDEX(C:C;AGGREGAT(14;6;ZEILE(C$2:C$4567)/(AGGREGAT(14;6;HÄUFIGKEIT(--TEXT(C$2:C$4567;"M,J");--TEXT(C$2:C$4567;"M,J"))/(C$2:C$4567&gt0)/ISTNV(VERGLEICH(TEXT(C$2:C$4567;"MMM JJ");H$2:H2;0));1)=HÄUFIGKEIT(--TEXT(C$2:C$4567;"M,J");--TEXT(C$2:C$4567;"M,J")))*ISTNV(VERGLEICH(TEXT(C$2:C$4567;"MMM JJ");H$2:H2;0));1));"MMM JJ")
I3	=SUMMENPRODUKT(--(TEXT(C$2:C$4567;"MMM JJ")=H3))

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Gruß Werner
.. , - ...

Hallo Werner,
sorry aber ich verstehe nicht was du da gemacht hast.
Erstens, warum bei dir Tabelle1 und in meinem Beispiel Tabelle2?
Zweitens, du hast sieht für mich so aus, erst den kompletten Inhalt der Tabelle1 eingelesen, und dann in der betreffenden Spalte den Typ geändert... aber ich sehe nirgendwo dass du die anderen eingelesenen Spalten gelöscht hättest.
Drittens, habe ich dann ebenfalls die Spalte nach Positionen zu teilen, das erste was mir auffiel, dass da bei mir dann Table.SelectColumns steht und bei dir Table.SplitColumns und was ich dann in das Fenster eingeben muss habe ich nicht verstanden und kam nicht mehr weiter.
Dann habe ich es von neuem probiert.
Habe nur den gefüllten Bereich genutzt,
let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle3"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Überschrift", type datetime}})
in
#"Geänderter Typ"
und hatte wieder keine Ahnung warum da jetzt plötzlich Tabelle3 steht. Habe dann stattdessen deine Abfrage eingefügt und bekam dann die Meldung es wurde keine Excel Tabelle mit der Bezeichnung Tabelle1 gefunden.
Habe dann, weil meine Tabelle ja so heißt, Tabelle1 in Tabelle2 geändert, aber diese wurde dann auch nicht gefunden.
Jetzt bin ich endgültig mit meinem Latein am Ende.
Gruß
Christian

Beliebteste Forumthreads (12 Monate)

am häufigsten vorkommender Monat

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Überschrift
01.11.2020	10
01.11.2020	10
08.11.2020	10
08.11.2020	10
10.11.2020	10
13.11.2020	10
13.11.2020	10
13.11.2020	10
15.11.2020	10
22.11.2020	10

am häufigsten vorkommender Monat

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread