VBA - wenn Fehler schließe ohne speichern
11.01.2015 17:46:02
Sandra
zu meinem vorherigen Thread habe ich noch eine andere Überlegung. Vielleicht ist die einfacher.
Wenn ich die Prüfung nach vergessenen Zellen einfach da lasse wo sie steht gibt es kein Problem. Dann aber benötige ich eine Ergänzung.
Die XML-Datei geht auf, die Daten werden übertragen und dann erfolgt die Prüfung. Wenn die Prüfung fehlerfrei ist speichert sich die XML-Datei ab. Andernfalls bricht das Makro an dieser Stelle ab.
Kann ich irgendwie hier mit einbauen, dass nach der MSG-Box mit dem Hinweis auf die Fehler eine Mitteilung kommt, dass die Datei ohne Speicherung geschlossen wird?
End With
If check = True Then
For i = 0 To UBound(spalten())
strausgabe = strausgabe & spaltenausgabe(i) & vbCrLf
Next i
MsgBox "Fehlerhaft ausgefüllte Zellen: " & vbCrLf & vbCrLf & _
strausgabe
Exit Sub
Else
MsgBox "Es konnten keine leeren Zellen in den Spalten Bauteil (A), Geschoss (B), Betrifft ( _
I), Zustandsbeschreibung (J), Mangelart (K), Vertragsart (L), Gewerkegruppe (M), Gewerk (O), Frist (Q) und Auftragnehmer (T) gefunden werden!"
End If
Dieser Code ist wohl noch nicht ganz der Richtige?!
Dim WB As Workbook
For Each WB In Application.Workbooks
WB.Saved = True
Next
Application.Quit
Danke!!!!
Sandra
Anzeige