Office: Wenn bestimmtes Feld leer, dann nicht speichern

Hallo liebe Helfer,

ich habe ein Problem, welches am Besten in der angehängten Testdatei klar wird.
Es geht um Folgendes:
Wenn in einer Zeile ein Eintrag in Spalte E oder F oder G ist, dann darf das Feld in Spalte A nicht leer sein. In der Originaldatei laufen beim Öffnen einige Makros, die Formeln in Spalten ausfüllen und nur so weit ausfüllen, wie in der Spalte A etwas steht. Wenn dort nicht steht, hält das automatische Ausfüllen der Formeln an und zerschießt mir meine Tabelle... Manchmal haben dann auch die Sortierungen Probleme.
Was kann ich dagegen tun? Vor dem Speichern der Datei müsste dann eine Warnmeldung kommen und das Speichern auf jeden Fall verhindern oder einfach die Felder mit einem Dummy z.B. "Dummy" belegen und dann speichern, damit bei dem nächsten Öffnen gewährleistet ist, dass da alles funktioniert. Beim erneuten Öffnen müsste dann ein Infofenster kommen mit dem Inhalt: "In der/den Zeile(n) ... Spalte A wurde(n) Dummy(s) erstellt."

Kann mir jemand helfen? Oder kann man das Problem auch anders lösen?
Vielen Dank für die Hilfe
LG
max

 

Hallo!

Es gibt das Workbook_BeforeSave-Ereignis, welches ins Modul "DieseArbeitsmappe" gehört.
Damit kannst du ungewolltes Speichern verhindern.

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Tabelle1").Range("A2") = "" Then
MsgBox "In A2 fehlt ein Eintrag! Der Speichervorgang wird abgebrochen."
Cancel = True
End If
End Sub

Die If-Abfrage ist hier natürlich nur beispielhaft.
In deinem Fall gehört da eher eine Schleife rein, die die Zeilen des benutzten Bereichs abklappert und auf Inhalte prüft.

 

Erst einmal ganz vielen Dank.
Ich habe versucht, diesen Code anzupassen.
Folgendes habe ich gemacht:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Tabelle1")
For i = 2 To 15
If .Cells(i, 1) = "" & (.Cells(i, 5) > 0 Or .Cells(i, 6) > 0 Or .Cells(i, 7) > 0) Then
MsgBox "In Spalte A Zeile " & i & " fehlt ein Eintrag! Der Speichervorgang wird abgebrochen."
End If
Next i
End With
Cancel = True
End Sub

Es funktioniert nicht. Bitte HILFE. Danke
LG

 

Hallo!

Zum einen hast Zeilen und Spalten vertauscht, zum anderen ist "&" nun wirklich kein logischer Operator...

If .Cells(i, 1) = "" And (.Cells(i, 5) > 0 Or .Cells(i, 6) > 0 Or .Cells(i, 7) > 0) Then

 

Oh man ich danke dir...., es war wohl wirklich schon etwas spät gestern...

Jetzt nur noch eine kleine Frage:
Da es sich bei meiner Originaltabelle in den Spalten, die hier E, F, G darstellen, nicht nur Zahlen um Zahlen sondern auch um Text handelt, wäre es besser, wenn ich die IF-Bedingung nicht mit ">0" mache, sondern mit "ist nicht leer".
Kannst du mir sagen, wie dafür die Syntax in VBA lautet?

Nochmals ganz vielen Dank und LG

 

Das einfachste dürfte sein, alles, auch die Zahlen, als String zu behandeln und auf "nicht leerer String" zu testen. Die kürzeste Syntax müßte sein:

Code:

cells(y,x) <> ""

Falls das mal in Fehlermeldungen oder merkwürdige Funktionalität ausartet, würde ich empfehlen:

Code:

trim$(cells(y,x).value & " ") <> ""

Das erzwingt ein Cast auf String, weil ein Leerzeichen angehängt wird. Und es verhindert Fehlermeldungen bei Null-Werten, weil der String mindestens aus dem Leerzeichen besteht. Das trim() entfernt es eh gleich wieder. Außerdem ist hier explizit die "value"-Eigenschaft der Zelle angesprochen. Nur, falls Microsoft mal einmfallen sollte, die Fontfarbe als Default-Eigenschaft festzulegen... ;-)

Gruß, Michael