Datei nicht schließen
21.06.2004 17:38:17
Der
Tausend mal hat nix funktioniert ... *sing*
Also liebe Freunde, ich habe folgendes Problem:
Ich habe eine Datei, die soll nicht geschlossen werden können, wenn eine bestimmte Zelle leer ist. Der Inhalt dieser Zelle wird durch Optionsbuttons eingetragen. Ist dieZelle leer und man versucht, die Datei zu schließen, soll eine MsgBox auftauchen, die da sagt: Benutze einen der Optionsbuttons. Klickt man dann auf OK der MsgBox, soll die Datei nicht geschlossen werden, sondern eine beliebige Zelle aktiviert werden. So sieht es im Moment aus...
Sub Ende_statusleer()
Sheets("Projectdata").Select
Range("E15:G15").Activate
If ActiveCell.Value = "" Then
Cancel = True
MsgBox "Please enter a project status by activating one of the radio buttons on the left side"
ThisWorkbook.Close False
End If
End Sub
Bin ich einfach nur zu doof dazu? Kann es sein, daß ThisWorkbook.Close einfach nicht das richtige ist?
Liebe Grüße und schonmal Danke für die Antworten, Der Jörg