Mehrere Zellen prüfen vor Speicherung
08.06.2017 13:42:05
Major
vor dem Speichern sollen 3 verschiedene Bereiche auf Ihren Inhalt geprüft werden bzw. geprüft werden ob mind. eine Zelle darin nicht leer ist.
Das klappt auch mit einer Zeile, aber nicht mit 3. Ich mache hier glaube ich grundlegende Fehler, weil ich da noch zu schlecht bin.
Könnt ihr mal drüber swchauen? Danke euch!
Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abbrechen As Boolean)
With Sheets("TEST")
For x = .Cells(25, .Columns.Count).End(xlToLeft).Column To 10 Step -1 'Von Spalte N bis letzte
For y = .Cells(29, .Columns.Count).End(xlToLeft).Column To 10 Step -1 'Von Spalte N bis letzte
For Z = .Cells(33, .Columns.Count).End(xlToLeft).Column To 10 Step -1 'Von Spalte N bis letzte
If .Cells(25, x) "" Or _
.Cells(29, y) "" Or _
.Cells(33, Z) "" Then
MsgBox "Achtung min. eine der Zellen ist gefüllt"
End If
Next x
Next y
Next Z
End With
End Sub