Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


VBA- Vaiabler Pfad
#1
Hallo zusammen,
ich brauch mal wieder eure Hilfe, denn ich kriegs irgendwie nicht hin 22
Folgendes
Ich öffne aus einem Excel Script eine PP-Vorlage, welche ich dann befülle.
Diese liegt auf dem Netzwerk und ich gebe hier als Pfad den UNC PFad ein (\\PiffPaff\BlaBlub\)
Nun haben einige Kollegen Laptops und sind nicht immer mit dem Netzwerk verbunden.
Wie krieg ich es hin, dass wenn der Netzwerkpfad nicht verfügbar ist, ein Alternativpfad (C:\Vorlage\) verwendet wird.
Würde mich freuen, wenn Ihr mir helfen könntet
Gruß
DeBabba
to top
#2
Hi,

könntest Du Dir für diesen Fall eventuell mit
Code:
Application.GetOpenFilename
helfen?

Gruß
Max
to top
#3
Danke Max,
habs etwas anfders lösen können
Wenn der Pfad nicht vorhanden ist, kann auch die Datei nicht geöffnet werden (logosch). Das erzeugt einen 1004er Fehler, den ich mit
Code:
On Error Resume Next
Application.Workbooks.Open Datei
If Error(1004) Then Pfad = Pfad2
Datei = Pfad & "MM.xls"
Application.Workbooks.Open Datei
on error goto 0
abfange. Also wenn ich einen 1004er Fehler habe, dann setzte ich den PPfad anders.
Ich weiß , dass geht bestimmt einfacher / kürzer / eleganter.
Erfüllt aber seinen Zweck

Nochmals Danke für Deinen Tipp

Gruß
KLaus
to top
#4
Hi Klaus,

(06.11.2014, 13:13)DeBabba schrieb: Das erzeugt einen 1004er Fehler, den ich mit
Code:
On Error Resume Next
Application.Workbooks.Open Datei
If Error(1004) Then Pfad = Pfad2
Datei = Pfad & "MM.xls"
Application.Workbooks.Open Datei
on error goto 0

damit schaltest Du aber jegliche Fehlerbehandlung ab und fängst nur den 1004er wieder ein.

Ist es überhaupt nötig, das "On Error Resume Next" in Deinen Code reinzuschreiben? Reicht es nicht, nur den If Error(1004).. Teil zu verwenden?
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#5
Hallo Ralf,
nein das reicht leider nicht, denn wenn der Pfad nicht existiert kommt sofort der Fehler.
Ich weiß nicht (oder hab noch nicht probiert) ob es sowas wie ISTFEHLER im VBA gibt
Außerdem schalte ich den On Error resume next durch On Error goto 0 wieder aus

Gruß
KLaus
to top
#6
Hallo Klaus,

teste mal:

Code:
If Dir(Datei) = "" Then
      Datei = Pfad & "MM.xls"
      Application.Workbooks.Open Datei
   Else
      Application.Workbooks.Open Datei
   End If
Gruß Atilla

Excel 2007
to top
#7
Hi Atilla,
komme leider erst in ein paar tagenb dazu
Schonmal Danke für Deinen Tipp

Gruß
Klaus
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Sortieren nach Artikel in einem Pfad ModernPixel 2 127 25.09.2016, 07:33
Letzter Beitrag: schauan
  VBA textliste mit Pfad Jürschen175 1 99 18.09.2016, 12:19
Letzter Beitrag: IchBinIch
  Pfad in der Zelle dann öffnen durch Button Jürschen175 8 201 18.09.2016, 11:31
Letzter Beitrag: Jürschen175
  Problem bei "Attachments.Add" Pfad einlesen Bernie 2 197 04.07.2016, 11:36
Letzter Beitrag: Bernie
  Bestehende Hyperlinks nachträglich auf absoluten Pfad umstellen dbuckl 1 1.823 27.11.2014, 16:50
Letzter Beitrag: atilla
  Pfad und Dateinamen in einer Zelle und mit dieser Zelle verknüpfen jusmeistar 4 1.305 19.09.2014, 16:23
Letzter Beitrag: schauan
  Pfad per VBA auslesen lassen Heinz Ulm 3 1.386 14.08.2014, 19:34
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste