ich hab da mal wieder ein Problem.
Hier erst mal etwas VBA-Code:
Dim UserName As String 'The current users notes name 'Dateinamen auslesen Me.optFF = True 'Aktuelles Datum als Reklamationsdatum einsetzen 'Start a session to notes 'UserName von Lotus Notes als Name eintragen 'CC-Auswahl für PSM Kempten Case Is = "Manfred Marz", "Ruediger Mueller", "Gerd Hoellein" ', "Bertram Mueller"
Code eingefügt mit Syntaxhighlighter 1.14
Private Sub UserForm_Initialize()
Dim session As Object 'The notes session
Dim i As Integer
Filename = ActiveWorkbook.Name
Me.frm3D.Enabled = False
Me.optSB.Enabled = False
Me.optSB = True
Me.optConverter.Enabled = False
Me.lblAQ.Caption = "rm"
Me.lblDQ.Caption = "rm"
Me.CmdStep.Caption = "Continue with Step 2"
Me.cmdBack.Visible = False
Me.lblDate2.Caption = Format(Date, "yyyy-MM-dd")
Me.cboTBM.AddItem "no"
Me.cboTBM.AddItem "yes"
Me.cboTBM.ListIndex = 0
Set session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
UserName = session.UserName
Me.lblUser2.Caption = Mid(Left(UserName, InStr(1, UserName, "/") - 1), 4)
Select Case Me.lblUser2.Caption
Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
Me.opt3D = True
Me.lblCNo.Enabled = False
Me.txtCustomerNo.Visible = True
Case Is = "Marc Luetgendorff", "Sandra Echtler" ',"Bertram Mueller"
Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
Me.optFF = True
Me.lblCNo.Enabled = False
Me.txtCustomerNo.Visible = True
Case Is = "Erika Stubenvoll", "Sabina Zalac", "Karina Niederbacher" ', "Bertram Mueller"
Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
Me.cboSachbearbeiter.Enabled = False
Me.opt3D = True
Me.lblCNo.Enabled = False
Me.txtCustomerNo.Visible = True
Case "Regina Gloeggler", "Norbert Preussner", "Diana Pichler", "Simone Bartenschlager" ', "Bertram Mueller"
Me.cboCC.RowSource = "Daten!CCs_SalesAgent_DirectCustomer"
Me.cboSachbearbeiter.Enabled = False
Me.optFF = True
Me.lblCNo.Enabled = False
Me.txtCustomerNo.Visible = True
Case Else
Me.cboCC.RowSource = "Daten!CCs"
End Select
Me.cboCC.ListIndex = 6
Me.cboCC.SetFocus
End Sub
Das ist der Beginn eines wunderbaren UserForms. Zumindest in den meisten Fällen. Bei meinen lieben Kollegen in Frankreich will es einfach ncht funktionieren.
Folgendes Problem:
Will man mit F5 starten (was normalerweise kein Problem ist) kommt die Fehlermeldung "Projekt oder Bibliothek nicht auffindbar". Danach ist 'Date' markiert. Ich habe daraufhin einfach Date durch 'Now' ersetzt. Das funktioniert bei mir auch. Allerdings in Frankreich kommt erneut die Fehlermeldung und 'Format' ist markiert. Nun habe ich die komplette Zeile auskommentiert. Folge: Der gleiche Fehler tritt abermals auf. Diesmal bei 'Mid'.
Ich bin mit meinem Latein am Ende. Könnt ihr mir sagen, wieso das Mistding diesen Fehler erzeugt?
Vielen Dank im voraus.
Gruß
Bertram