Hallo zusammen
Ich bin neu hier im Forum und wäre froh um eine Hilfestellung.
Ich arbeite zur Zeit an einer Exceldatei.
Folgende Konditionen muss der VBA Code erfüllen:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.WorksheetFunction.CountA(Range("B7, B9, B13, B27, B31, B32, B33, B37, B38, B40, B44, B49, B51, B53")) < 14 Then MsgBox "Bitte fehlende Angaben ergänzen"
End Sub
Hat jemand eine Idee? Wäre sehr froh um Hilfe.
Wünsche euch einen schönen Abend.
N3rd
Ich bin neu hier im Forum und wäre froh um eine Hilfestellung.
Ich arbeite zur Zeit an einer Exceldatei.
Folgende Konditionen muss der VBA Code erfüllen:
- Sie muss vom Benutzer vollständig ausgefüllt werden
- Trifft dies nicht zu, soll der Code die Datei nicht speichern lassen.
- Das Excel beinhaltet Rolldown Menüs und Textfelder aus Zahlen und Buchstaben.
- Das Rolldown Menü muss nur ausgewählt werden können, ohne einen weiteren Makro auszulösen.
- Ganz wichtig: Der Code muss den Benutzer mit einem Popup Fenster darauf aufmerksam machen, wo die Eingabe fehlt. Egal ob Rolldown oder normales Text bzw. Zahlenfeld.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.WorksheetFunction.CountA(Range("B7, B9, B13, B27, B31, B32, B33, B37, B38, B40, B44, B49, B51, B53")) < 14 Then MsgBox "Bitte fehlende Angaben ergänzen"
End Sub
Hat jemand eine Idee? Wäre sehr froh um Hilfe.
Wünsche euch einen schönen Abend.
N3rd