Office: Pfad nicht vorhanden, was dann?

Hallo!

Ich habe ein Makro (danke an die Experten), dass mir den Usernamen bei Zugriff in eine externe Datei ausgibt. Der Pfad zu dieser Datei steht in Zelle"F9".

Wenn jetzt der Speicherpfad nicht zur Verfügung steht, wie kann ich auf einen anderen Pfad verweisen?

Hier mein Code:

Sub Speichern(aktion)
Call Check(Compname, User)
User = UCase(Environ("Username"))

Pfad = Sheets("Start").Range("F9") ' SPEICHERPFAD Gerätebez-zgr => Gerätebezeichnung-Zugriff
Datei = "Gerätebez-zgr"
Pfad = Pfad + Datei + ".xls"
zeit = Time
datum = Date
Text = datum + Chr$(9) + zeit + Chr$(9) + Compname + Chr$(9) + User + Chr$(9) + aktion
Open Pfad For Append As #1
Print #1, Text
Close #1
ende:
End Sub

Gruß

Mike

 

Hallo!

Teste mal diese Abfrage:

Pfad = Sheets("Start").Range("F9") ' SPEICHERPFAD Gerätebez-zgr => Gerätebezeichnung-Zugriff
If Dir(Pfad, vbDirectory) <> "" Then
Datei = "Gerätebez-zgr"
Pfad = Pfad + Datei + ".xls"
zeit = Time
datum = Date
Text = datum + Chr$(9) + zeit + Chr$(9) + Compname + Chr$(9) + User + Chr$(9) + aktion
Open Pfad For Append As #1
Print #1, Text
Close #1
Else
...

 

Teste ich gleich mal....
Danke

Mike

 

Hallo Schatzi!

Funzt leider noch nicht

Fehler im verborgenen Modul

 

Hallo Experten<!

Vielleicht kann Schnake mir weiterhelfen, die Idee stammt von Dir!

Falls der Pfad nicht vorhanden ist(Netzwerkpfad) dann.... Abbruch oder irgendwas..

1000000 Dank im Vorraus!
Im Netz gibts auch nix dazu!

:-(

Mike

 

Bei mir funktioniert die Abfrage einwandfrei...
Dein Fehler liegt daher wahrscheinlich woanders.
Geh' den Code doch mal im Einzelschrittmodus durch, dann siehst du, wo es hakt.

 

Hi Schatzi!

sobald ich die Zeilen einfüge:
If Dir(Pfad, vbDirectory) <> "" Then

Else

bekomme ich die fehlermeldung: Dateiname oder Nummer falsch
Laufzeitfehler 52

Hab jetzt schon hin und her probiert. nach Else hab ich END If oder nur
Range("A1").select

funktioniert nicht!

mein Pfad heisst eigentlich: (F9)

//Ausbserv1/Home/Gerätebezeichnung/

(Die slash sind Backslash, kann ich hier irgendwie nicht anzeigen)

Falls dieser Pfad nicht verfügbar ist, soll er auf C: die Datei für den Zugriff anlegen:
Dann Pfad C:

Weiß nicht weiter :-(

VBA meckert schon nach "..."
Was soll ich da denn eingeben?


Gruß

Mike

 

Das Laufwerk musst du im Pfad natürlich mitangeben!
Ohne das Laufwerk kann dein Makro auch vorher nicht funktioniert haben...
Schreibe in F9

Code:

C:\Ausbserv1\Home\Gerätebezeichnung\

 

Hi Du!

liegt doch auf einem Server!(ist nicht C:)
/ausbserv1/Home/Gerätebezeichnung/

DAS funktioniert!!

NUr wenn der Pfad, also der Server nicht verfügbar ist, hab ich Graupel.....


Wenn ich dann "C:" manuell eintrage geht wieder alles, dann schreibt er die Datei auf "C:"

MIke :-(

 

Dann bin ich raus...
Von Servern hab' ich keine Ahnung!

 

Schade....

es wird ja eine Fehlermeldung ausgegeben....

Kann ich die denn für einen Abbruch, etc. verwenden?

Irgendwie: OnError goto ......


??


Mike

 

na da hast du es ja schon selber geschafft.. weil on error ist richtig...

schreibe in deinem Sub speichern(aktion)
nach dem

Code:

User=Ucase....

on Error goto 10

Code:

.
.
.
Open Pfad For Append As #1 
GoTo 20
10 MsgBox "Achtung Pfad nicht gefunden!" + Chr$(13) + "Bitte Pfad in Zelle M5 Prüfen" 'Bitte auf deinen bedürfnisse anpassen
20 
.
.
ende: 

versuch das mal .. kanns net testen da ich keinen server habe...