Exit sub
30.09.2004 10:24:39
helena
Sub speichern()
If ActiveWorkbook.name = "Test_V2.xls" Then Exit Sub
*****IF ZELLE A1 LEER dann EXIT schaffe ich nicht ***** (Datum in Zelle ist muss)
Application.ScreenUpdating = False
Dim Speicherpfad As String
End Sub
Danke für Lösungsansatz
gruss helena