Thema Datum  Von Nutzer Rating
Antwort
24.10.2018 16:27:15 Johanna
NotSolved
24.10.2018 17:53:18 Ulrich
NotSolved
24.10.2018 18:19:51 Johanna
NotSolved
Blau Klassenmodul Arbeitsmappe Ereignisse
 24.10.2018 18:05:05 Gast80130
NotSolved
25.10.2018 15:11:40 Johanna
NotSolved
25.10.2018 15:14:35 codo
NotSolved
25.10.2018 15:17:23 codo
NotSolved
25.10.2018 15:26:17 Johanna
NotSolved
25.10.2018 15:48:37 codo
Solved

Ansicht des Beitrags:
Von:
Gast80130		 Datum:
24.10.2018 18:05:05		 Views:
740		 Rating:
     
Antwort:
  Ja
Thema:
Klassenmodul Arbeitsmappe Ereignisse		 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myName As String

   myName = Sheets("Tabelle1").Range("B1").Value & Format(Date, "DDMMYY")
   
   With ThisWorkbook
   
      If Left(.Name, (InStrRev(.Name, ".", -1, vbTextCompare) - 1)) <> myName Or Not .Saved Then
         
         If MsgBox("Arbeitsmappe speichern", vbQuestion + vbYesNo) = vbYes Then
            Application.DisplayAlerts = False
            .SaveAs myName, .FileFormat
            Application.DisplayAlerts = True
         End If
      
      End If
   
   End With

End Sub

 

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
24.10.2018 16:27:15 Johanna
NotSolved
24.10.2018 17:53:18 Ulrich
NotSolved
24.10.2018 18:19:51 Johanna
NotSolved
Blau Klassenmodul Arbeitsmappe Ereignisse
 24.10.2018 18:05:05 Gast80130
NotSolved
25.10.2018 15:11:40 Johanna
NotSolved
25.10.2018 15:14:35 codo
NotSolved
25.10.2018 15:17:23 codo
NotSolved
25.10.2018 15:26:17 Johanna
NotSolved
25.10.2018 15:48:37 codo
Solved