Hallo Tobi,
was meinst du hier
Spalte: A10-A1000 etwas ausgefüllt ist und in den Spalten J oder L oder M (selbe Zeilen wie bei I)
mit selbe Zeilen wie bei I ???
Ich nehme an, du meinst selbe Zeilen wie bei A.
Wenn ja, dann so:
Makroeditor öffnen Alt und F11 - Doppelklick im Objektbaum auf "DieseArbeitsmappe" Code rechts ins Codefenster kopieren
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim raBereich As Range
Dim raZelle
With Worksheets("Tabelle1") 'Blattname anpassen
Set raBereich = .Range(.Cells(10, 1), .Cells(1000, 1))
For Each raZelle In raBereich.SpecialCells(xlCellTypeConstants)
If raZelle.Offset(, 9) <> "" Or raZelle.Offset(, 11) <> "" Or raZelle.Offset(, 12) <> "" Then
If raZelle.Offset(, 7) = "" Then
MsgBox "Es fehlt ein Eintrag in Zelle H" & raZelle.Row & vbLf & "Speichern nicht möglich."
raZelle.Offset(, 7).Select
Cancel = True
Exit For
End If
End If
Next raZelle
End With
End Sub
Gruß Werner
|