Ich verstehe die Sch.Speicherung nicht
17.04.2008 15:10:11
Walter
ich habe ein Makro, zum abspeichern ins Netzlaufwerk, anschließend
wird direkt wieder auf C gespeichert.
Wenn ich dann unter "Datei" Speichern unter.. nachsehe,
wird mein Zentrallaufwerk noch aktiv angezeigt.
Habe dann getestet und einfach in der Symbolleiste auf speichern gedrückt,
es wurd wieder im Laufwerk V gespeichert.
Warum, ich müßte doch auf "C" sein.
Sub Makro5()
Dim OrdNam As Variant
If IstBerechtigtSchutz Then
OrdNam = "V:\1_Zentral\Einkauf" ' "" Then
MsgBox "Das Verzeichnis und die Ordner:" & Chr(13) & Chr(13) & _
"V:\1_Zentral\Einkauf\" & Chr(13) & Chr(13) & "sind vorhanden !" _
& Chr(13) & Chr(13) & "Die Datei: ""1_Auswertung"" " _
& Chr(13) & Chr(13) & "wird jetzt ins entsprechende Verzeichnis gespeichert " _
& " ", vbInformation, " Hinweis !"
ChDir "V:\1_Zentral\Einkauf\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"V:\1_Zentral\Einkauf\1_Auswertung.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDrive "C:\"
ChDir "C:\1_Zentral\Einkauf\"
ActiveWorkbook.SaveAs Filename:= _
"C:\1_Zentral\Einkauf\\1_Auswertung.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Else
'---- hier Laufwerk nicht da ----------
MsgBox "Laufwerk: " & "" & OrdNam & "" & " ist nicht vorhanden ! " & Chr(13) _
& vbCr & "Keine Netzwerkverbindung zum Laufwerk ! "" V "" " & Chr(13) _
& vbCr & "Es wird zur Sicherheit auf IHRE Festplatte: " & Chr(13) _
& vbCr & " "" C:\1_Zentral\Einkauf\"" " & Chr(13) _
& vbCr & "gespeichert. " & Chr(13), vbCritical
ChDir "C:\1_Zentral\Einkauf\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\1_Zentral\Einkauf\1_Auswertung.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End If
Else
MsgBox "Sie haben keine Berechtigung, " & Chr(13) _
& Chr(13) & "Die Speicherung kann nur Administrator durchführen ! " _
& Chr(13) & Chr(13), 48, " Hinweis !"
End If
End Sub
mfg Walter mb