CommandButton enable sobald Formular ausgefüllt
28.01.2015 13:38:13
Jeany
ich habe in einer Excel Tabelle ein Formular erstellt. Es enthält 5 ausfüllbare Zellen. _ Zuunterst befindet sich ein Button, mit dem man das File per Mail schicken kann. Der Code hierfür sieht so aus:
Private Sub CommandButton1_Click()
Dim Mappe As Integer
Mappe = 1
CommandButton1.Visible = False
Sheets.Copy
ActiveWorkbook.SendMail "name@mail.com", "Betreff"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
CommandButton1.Visible = True
End Sub
Ich brauche nun einen Code, der den Button erst enablet (CommandButton1.Enabled = True) wenn alle Felder ausgefüllt sind. (Zusätzlich habe ich eine Formel geschrieben, die die nichtleeren Felder zusammenzählt)
Der Code sieht so aus:
Private Sub CommandButton1_Change()
If Cells(75, 14) = 0 Then
CommandButton1.Enabled = True
Else: CommandButton1.Enabled = False
End If
End Sub
Könnt ihr mir bitte sagen, wie man den Code umschreiben kann, damit er konstant prüft ob die Zelle (75, 14) leer ist, oder sich noch ein Wert (1-5) drin befindet?
Oder habt ihr eine einfachere Lösung?
Vielen Dank für eure Hilfe
Jeany