Office: Fehler beim Kompilieren:

Hi,
ich bins wieder :)
hab ein Problem. An der Stelle

kommt auf dem Geschäftsrechner (Am Privatrechner geht es ohne Probleme) folgende Fehlermeldung:

Fehler beim Kompillieren:

Projekt oder Bibliothek nicht gefunden


der Code:

Code:

Private Sub CommandButton2_Click()
pw = InputBox("Bitte geben Sie das Passwort zum unlocken der Blätter ein")
If pw = "passwort" Then
MsgBox "Code wird ausgeführt"
For Each WsTabelle In Sheets
        Select Case WsTabelle.Name
            Case "Rechner", "(c)", "Administration"
                ' Blattschutz wird nicht aufgehoben für diese beiden
            Case Else
                ' für alle anderen wird Blattschutz aufgehoben
                WsTabelle.Unprotect ("Passwort")
        End Select
    Next WsTabelle
Else
MsgBox "Das Passwort war leider falsch! Bitte wenden Sie sich an "
Call MailtoSelectedNames
End If
End Sub

Woran kann das liegen?

Selber Fehler bei MailTo = Mid:

Code:

Sub MailtoSelectedNames()
   Dim MailTo As String
   Dim cell As Range
   Dim outapp As Object, outmail As Object
   
   MailTo = "Max@mustermann.de"
   For Each cell In Selection
      If cell.Value Like "*@*" Then
         MailTo = MailTo & ";" & cell.Value
      End If
   Next
   MailTo = Mid(MailTo, 2) ' den 1. Strichpunkt wieder löschen
   ' Debug.Print MailTo
   If MailTo = "" Then
      MsgBox "Keine gültigen eMail-Adressen gefunden!", vbCritical
      Exit Sub
   End If
   Set outapp = CreateObject("Outlook.Application")
   Set outmail = outapp.CreateItem(0)
   With outmail
      .To = MailTo
      ' .CC = ""
      .BCC = "Max@mustermann.de"
      .Subject = "Passwort vergessen"
      .Body = "Hallo Herr Max," & vbCrLf & vbCrLf & _
      "bitte setzen Sie das Passwort für die Zeiterfassungsliste zurück." _
      & vbCrLf & vbCrLf & vbCrLf & _
      "Danke" _
      ' .Attachments.Add "d:\daten\anyfile.xyz"
      .Display
      ' or use .Display
   End With
   Set outmail = Nothing
   Set outapp = Nothing
End Sub

 

Hab,
hab ein neues Blatt erstellt. Dort funktioniert der Code ohne Probleme - vermute Probleme mit der Buttonbezeichnung.. muss mal schauen - wenn jemand eine Idee hat ist sie willkommen :)

 

Ok - kann zu. Button neu erstellt. Alles gleich - geht ...

kp. was da durcheinander war..