|
Hallo Marco
wenn du dir den Code genau anschaust sieht man die Lösung sofort. Ich zeige dir den Weg: Aendern musst du es selbst:
Die gewünschten Zeilen stehen ja in der 2. For Schleife. (46-75) Die Spalte ist "B"i kannst du in der 2. Schleife aendern Cells(i, "xx")
Resize(1, 12) heisst, 12 Spalten nach Rechts. Das musst duauf die kleinere Zahl aendern: Cells(i, "B").Resize(, xx)) < xx Then
Dann sollte es klappen. Probier es einfach mal aus.
mfg Nobody
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
With Worksheets("Tabelle 1")
For i = 46 To 75 'hier Zeilen 46-75
If Not IsEmpty(.Cells(i, "B")) Then 'Cells Spalte B, Resize=12 Spalten rechts
If WorksheetFunction.CountA(.Cells(i, "B").Resize(, 12)) < 12 Then
Cancel = True
Call MsgBox("Bitte alle Felder ausfüllen", vbExclamation)
Exit Sub
End If
End If
Next
For i = 46 To 75 'Zeilen anpassen
If Not IsEmpty(.Cells(i, "B")) Then 'Cells Spalte ??, Resize=?? Spalten rechts
If WorksheetFunction.CountA(.Cells(i, "B").Resize(, xx)) < xx Then
Cancel = True
Call MsgBox("Bitte alle Felder ausfüllen", vbExclamation)
Exit Sub
End If
End If
Next
End With
End Sub
|