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!!!