06.09.2023, 16:13
Hallo,
ich bin noch relativ ein Anfänger in VBA programmieren und habe folgendes Problem:
ich programmiere Ein Protokoll in Excel und der Benutzer soll über ein Dropdown Menü in der Zelle M5 einen Monat auswählen (nicht in der Pivot Tabelle da das für die Benutzer möglichst simple ist).
Dieser Monat geht dann über ein Makro als Filter in eine Pivot Tabelle
Soweit so gut, aber nur bei Monaten mit "M" (Mai und Mrz) funktioniert es nicht.
Weiß wer vielleicht was sein könnte?
Lg
ich bin noch relativ ein Anfänger in VBA programmieren und habe folgendes Problem:
ich programmiere Ein Protokoll in Excel und der Benutzer soll über ein Dropdown Menü in der Zelle M5 einen Monat auswählen (nicht in der Pivot Tabelle da das für die Benutzer möglichst simple ist).
Dieser Monat geht dann über ein Makro als Filter in eine Pivot Tabelle
Soweit so gut, aber nur bei Monaten mit "M" (Mai und Mrz) funktioniert es nicht.
Weiß wer vielleicht was sein könnte?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("M5")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Abteilungsprotokoll").PivotTables("Abteilungen")
Set xPFile = xPTable.PivotFields("Monate")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
Lg