habe dieses makro verfasst um zu prüfen, ob bestimmte felder in einem tabellenblatt ausgefüllt sind. sind sie nicht ausgefüllt kommt eine MsgBox.
leider prüft der immer nur die erste angabe in der "Range-Klammer" - hier "f5" und den rest lässt er außer acht.
-----------------------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("Projektanfrage").Range("f5,i5,g5,j5,k5").Value = "" Then
MsgBox "Es sind nicht alle Pflichtfelder im Tabellenblatt 'Projektanfrage' ausgefüllt!"
Cancel = False
End If
End Sub
-----------------------------------------------------------------------------
wie kann ich das makro umschreiben ohne für jede zu prüfende zelle die komplette anweisung schreiben zu müssen?
vergelt´s gott...mitsch