Option Explicit


Private Sub UserForm_Initialize()

'Monats Drop Down box füllen - Januar bis Dezember
    With Monat_int
        .AddItem "Januar"
        .AddItem "Februar"
        .AddItem "März"
        .AddItem "April"
        .AddItem "Mai"
        .AddItem "Juni"
        .AddItem "Juli"
        .AddItem "August"
        .AddItem "September"
        .AddItem "Oktober"
        .AddItem "November"
        .AddItem "Dezember"
    End With
        
End Sub


Private Sub Ok_Click()
    
    Monat = Monat_int.Value
    
    Unload Me
    
End Sub

Hier noch etwas anschaulicher. "Private Sub Ok_Click()" wird vom Debugger gelb markiert, "Monat =" blau. 

Die Fehlermeldung lautet: "Fehler beim Kompilieren: Mehrdeutiger Name: Monat"

Hier noch der erste Abschnitt des Makrocodes, wo die Variable Monat definiert (Zeile 5) und zum ersten Mal verwendet (Zeile 33) wird.

Option Explicit


Dim Marke As String
Public Monat As String
Dim DokPfad As String
Dim DokPreis As String
Dim DokName As String
Dim Jahr As Integer
Dim Fileext As String
Dim xAlerts As Boolean
Dim WorkB As Workbook
Dim WBP As Workbook
Dim WSP As Worksheet
Dim WorkS As Worksheet
Dim xSht As Variant
Dim ThisPos As Range
Dim ThisRow As Long
Dim DokNameYear As String
Dim ZeileMax As Long
Dim Model As String
Dim PosMod As Range
Dim ModZeile As Long
Dim i As Variant
Dim Pfad As String


Sub Monats_Abrechnung_intern_Reinach()

    Set WorkB = ThisWorkbook
    
    Abrechnungs_Monat_intern.Show              'Monat wird in userform ausgewählt
    If Monat = "Dezember" And Format(Date, "mmmm") = "Januar" Then      'basierend auf dem Abrechnungsmonat und dem aktuellen Monat wird das Jahr bestimmt
        Jahr = Year(Date) - 1
    Else
        Jahr = Year(Date)
    End If
    
    Fileext = ".xlsx"
    Pfad = "X:\6_Administration\Verkauf\Verkauf intern\"
    DokName = ("Monatsabrechnung intern Reinach " & Monat & " " & Jahr & Fileext)
    DokPfad = (Pfad & Monat & "\" & DokName)
    DokPreis = (Pfad & "Preisliste.xlsm")
    Set WBP = Workbooks.Open(DokPreis)
    
    
    DokNameYear = (Pfad & "Jahresabrechnung intern Reinach " & Jahr & Fileext)
    Workbooks.Add.SaveAs Filename:=DokPfad