Pivot Filter M Monate

[SON09]

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? 

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

[Elex]

Hi

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). 

Was spricht den gegen die Verwendung der Standart Möglichkeiten. Monate in den Pivot filter ziehen, dann hast du in einer Zelle ein drop was funktioniert. Oder Datenschnitte verwenden.

Wenn du bei deiner Variante bleiben möchtest wäre eine Bsp.Datei hilfreich bei der Fehlersuche.

Gruß Elex