Fehler bei Makro Ablauf
25.01.2004 14:34:31
Walter
habe wohl irgendwie einen Fehler.
Ich möchte bei meiner Abfrage, wenn das Verzeichnis hier z.b. " Q " nicht
vorhanden ist, abgebochen wird.
Sonst speichern und schliessen. Hier mein Makro:
Private Sub CommandButton12_Click()
'--------------------------------- speichern C --------------------------------
Application.ScreenUpdating = False
Dim jdate
Dim Verzeichnis As String
Verzeichnis = "Q:\Krefeld VL"
If Dir(Verzeichnis, vbDirectory) <> "" Then
MsgBox "Verzeichnis ' C ' vorhanden", vbCritical
Else
MsgBox " Achtung Verzeichnis nicht vorhanden !!!" & Chr(13) & Chr(13) & _
"Es wird auf IHR Verzeichnis gewechselt !!!" & Chr(13) & _
Chr(13) & " Es sollte jetzt ins Laufwerk ' C ' gesichert
werden !" & Chr(13), vbCritical
End If
Unload Me
jdate = Format(Now, "dd.mm.yyyy hh:mm")
Sheets("Laufende ").Select
ActiveSheet.Unprotect ("bk") 'schutz aufheben
Sheets("Laufende ").Range("c1").Value = Application.UserName
Sheets("Laufende ").Range("b2").Value = jdate
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ChDir "C:\Krefeld VL"
ActiveWorkbook.SaveAs Filename:= _
"C:\Krefeld VL\KR-VF-04.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="bk" 'schützen
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Gruss Walter