Wieso in Excel 97 nicht ?

Guten Abend Zusammen,
hatte über Tag Unterstützung von Rainer etc. gehabt und das Makro läuft in Excel 2000.
Leider in Excel97 inkl. SR1 nicht WIESO, habe in der Fa. noch Excel97.
Folgende Fehlermeldung: "Gerät nicht Verfügbar"
Hier mein vollständigen 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    " & Verzeichnis & "    vorhanden", vbCritical
Else
MsgBox " Achtung Verzeichnis nicht vorhanden !!!" & Chr(13) & Chr(13) & _
"  Es wurde nicht gespeichert !  " & Chr(13) & _
Chr(13) & "  Es sollte jetzt ins Laufwerk   ' C '  gesichert werden !" _
& Chr(13), vbCritical
Exit Sub
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

Ich muß das leider heute noch fertig machen. Danke im voraus für eine
Unterstützung.
Gruss Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub demo() Dim myFSO As Object, myDrv As Object, strFS As String Dim jdate Dim Verzeichnis As String Set myFSO = CreateObject("Scripting.FileSystemObject") Application.ScreenUpdating = False Verzeichnis = "c:\xyz" If myFSO.folderexists(Verzeichnis) Then 'If Dir(Verzeichnis, vbDirectory) <> "" Then MsgBox "Verzeichnis " & Verzeichnis & " vorhanden", vbCritical Else MsgBox " Achtung Verzeichnis nicht vorhanden !!!" & Chr(13) & Chr(13) & _ " Es wurde nicht gespeichert ! " & Chr(13) & _ Chr(13) & " Es sollte jetzt ins Laufwerk ' C ' gesichert werden !" _ & Chr(13), vbCritical Application.ScreenUpdating = True Exit Sub 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

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread