Thema Datum  Von Nutzer Rating
Antwort
28.04.2021 17:43:37 Domenic Stamm
NotSolved
28.04.2021 18:59:52 Gast92407
NotSolved
28.04.2021 19:15:22 Gast7777
NotSolved
29.04.2021 07:24:42 Domenic Stamm
NotSolved
Rot Mehrdeutiger Name bei Input durch Userform
29.04.2021 08:08:47 Domenic Stamm
NotSolved
29.04.2021 13:26:57 Gast92407
Solved
29.04.2021 14:07:37 Domenic Stamm
NotSolved
29.04.2021 20:12:11 Gast67504
NotSolved

Ansicht des Beitrags:
Von:
Domenic Stamm
Datum:
29.04.2021 08:08:47
Views:
648
Rating: Antwort:
  Ja
Thema:
Mehrdeutiger Name bei Input durch Userform
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.04.2021 17:43:37 Domenic Stamm
NotSolved
28.04.2021 18:59:52 Gast92407
NotSolved
28.04.2021 19:15:22 Gast7777
NotSolved
29.04.2021 07:24:42 Domenic Stamm
NotSolved
Rot Mehrdeutiger Name bei Input durch Userform
29.04.2021 08:08:47 Domenic Stamm
NotSolved
29.04.2021 13:26:57 Gast92407
Solved
29.04.2021 14:07:37 Domenic Stamm
NotSolved
29.04.2021 20:12:11 Gast67504
NotSolved