ich habe schon einiges zum Thema "erst speicher wenn" im Forum gefunden.
Wie z.b.:
Private Sub CommandButton1_Click()
Dim rngPflicht As Range, rngBereich As Range
Dim intLeere As Integer
Set rngPflicht = [F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18,F19]
For Each rngBereich In rngPflicht.Areas
intLeere = intLeere + Application.WorksheetFunction.CountBlank(rngBereich)
Next
If intLeere > 0 Then
MsgBox "Speichern nur möglich wenn Kommentar ausgefüllt ist!"
Else
On Error Resume Next 'Falls Speichern abgebrochen wurde
If ActiveWorkbook.Saved Then
ActiveWorkbook.Save
Else
Application.Dialogs(xlDialogSaveAs).Show
End If
End If
End Sub
Jetzt habe ich noch eine Frage. Ich müsste prüfen, ob das Feld in Bedingung mit O8:O19 (Dort steht WAHR ODER FALSCH) ausgefüllt werden muss?
Könnte mir da jemand weiterhelfen?
Leider habe ich nicht so viel Ahnung von VBA.
Vielen Dank im Voraus !