CommandButton nicht auf True gesetzt
28.03.2014 18:08:16
Kurt
habe nur noch ein kleines Problem.
Ich speichere die Orginaldatei unter anderen Namen ab,
nun soll der CommandButton wieder aktiv also anklickbar sein,
leider ist das nicht.
mfg
kurt
Private Sub Worksheet_Activate()
Dim Dateiname As String
Dateiname = ActiveWorkbook.Name
If Dateiname = "Rechnungen" Then
ActiveSheet.CommandButton5.Enabled = False
' MsgBox "ja"
Else
ActiveSheet.CommandButton5.Enabled = True
End If
End Sub