Hallo
ich habe in Excel 2013 eine Zeile so programmiert:
wenn Etwas in Zelle B46 eingefügt wird, müssen von B46 bis M46 alle 12 Zellen ausgefüllt werden, bevor das ExcelSheet geschlossen werden kann. Das funktioniert hirmit sehr gut:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Tabelle 1")
If Not IsEmpty(.Range("B46")) Then
If WorksheetFunction.CountA(.Range("B46:M46")) < 12 Then
Cancel = True
MsgBox "Bitte alle Felder ausfüllen"
End If
End If
End With
End Sub
Das funktioniert bisher leider nur für diese eine Zeile. Wie kann ich das auf ca. 30 Zeilen erweitern?
Ich muss dazu sagen, dass ich noch keine Erfahrung mit VBA habe,
Vielen, vielen Dank für Eure Hilfe!!!
|