AW: Bezug der Schaltfläche falsch
22.05.2012 09:59:11
Rolf
Hallo Günter,
Du wirst feststellen, dass es (mein Makro) so nicht funktioniert.
Mea culpa, mea culpa, mea maxima culpa; Asche auf mein Haupt, 'ne ganze Karre voll!
Gestern, kurz bevor ich mich in Morpheus' Arme begab, fiel es mir wie Schuppen aus den Haaren. "Du Depp, (ich bin mit mir per Du) du hättest die VBA als Public-Version mit einer öffentlichen Variablen (wkb) deklarieren müssen.
Dann sieht es so aus:
Option Explicit
Public wkb As String
Public Sub Workbook_Open()
wkb = ActiveWorkbook.Name
Application.DisplayAlerts = False
If Not wkb = "Test4.xlsm" Then
ActiveWorkbook.SaveAs "Test4.xlsm"
MsgBox "Die Datei wurde mit dem Namen" & vbCrLf & wkb & "gespeichert." & _
vbCrLf & vbCrLf & "Wenn Sie die aktuelle Datei (Test4.xlsm) schließen, " & _
"wird sie gleichzeitig als " & wkb & " gespeichert. Also, keine Angst!"
Else
Exit Sub
End If
Application.DisplayAlerts = True
End Sub
---------------------------------------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs "Test4.xlsm"
MsgBox "Die Datei wurde gespeichert als" & vbCrLf & vbCrLf & _
"a) Test4.xlsm" & vbCrLf & _
"b) " & wkb
Application.DisplayAlerts = True
End Sub
Kannst du damit etwas anfangen?
Gruß, Rolf