Hallo,
Ich möchte wenn in einer Zelle etwas reingeschrieben wird das die darauffolgenden Felder zu Pflichtfelder werden. Dazu nutze ich aktuell folgende Formel.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim zeile As Long, OK As Boolean
OK = True
For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row
If Worksheets("Tabelle1").Cells(4, 2).Value <> "" Then
If Worksheets("Tabelle1").Cells(4, 3).Value = "" Then OK = False 'Spalte C
If Worksheets("Tabelle1").Cells(4, 4).Value = "" Then OK = False 'Spalte D
If Worksheets("Tabelle1").Cells(4, 5).Value = "" Then OK = False 'Spalte E
If Worksheets("Tabelle1").Cells(4, 6).Value = "" Then OK = False 'Spalte F
If Worksheets("Tabelle1").Cells(4, 8).Value = "" Then OK = False 'Spalte H
If Worksheets("Tabelle1").Cells(4, 9).Value = "" Then OK = False 'Spalte I
End If
Next
If Not OK Then
MsgBox "Drucken nicht möglich - nicht alle Pflichtfelder ausgefüllt"
Cancel = True
End If
End Sub
Nun möchte ich das die obige Formel von B4- B25 durchgeführt wird. Also das wenn in in B8 z.B. etwas reingeschrieben wird das dann die Zellen in B8 geprüft werden das dort in den anderen Feldern auch was reingeschrieben worden ist.
Wie würde ich das ganze hinbekommen?
Danke im Voraus