Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA - gibt es den Pfad?
#1
Question 
hi, ich versuche zu überprüfen, ob es einen absoluten Pfad gibt. Aber das klappt noch nicht:
Code:
Sub Pfadchecker()
Dim Pfad1 As String
Dim Pfad2 As String
Pfad1 = Worksheets("Rech").Range("A33")
Pfad2 = Worksheets("Rech").Range("B33")
if exist Pfad1 Then GOTO START1
if exist Pfad1 Then GOTO START2
: START1
MsgBox ("Pfad1 existiert")
MsgBox ("Pfad2 existiert")
End Sub
Codezeilen 4 und 5 werden als falsch markiert von VBA.
Antworten Top
#2
Hi,

http://www.herber.de/forum/archiv/452to4...anden.html

oder einen anderen von diesen hier
https://www.google.at/search?ei=KtAoW-skzI-yAaX1n6gI&q=%C3%BCberpr%C3%BCfen+ob+Pfad+vorhanden+vba&oq=%C3%BCberpr%C3%BCfen+ob+Pfad+vorhanden+vba&gs_l=psy-ab.3..0i22i30k1l3.1388.2236.0.2460.4.4.0.0.0.0.111.425.0j4.4.0....0...1.1.64.psy-ab..0.4.424....0._vhxugXJUdk
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
[-] Folgende(r) 1 Nutzer sagt Danke an chris-ka für diesen Beitrag:
  • o0Julia0o
Antworten Top
#3
Super geht das auch mit Dateien?

Also statt:
Code:
If Dir("C:\programme",vbDirectory)<>"" Then
  MsgBox "Vorhanden!"
End If


So jedenfalls nicht:
Code:
If File("C:\programme\datei.exe",vbFile)<>"" Then
  MsgBox "Vorhanden!"
End If

So auch nicht:
Code:
Sub Pfadchecker()
Dim Pfad1 As String
Dim Pfad2 As String
Pfad1 = Worksheets("Rech").Range("A32")
Pfad2 = Worksheets("Rech").Range("B32")
If Dir("Pfad1") <> "" Then
  MsgBox "Vorhanden! G"
End If
If Dir("Pfad2") <> "" Then
  MsgBox "Vorhanden! H"
End If
End Sub

Von hier abgeguckt: http://www.herber.de/forum/archiv/144to1...tiert.html
Code:
If Dir("C:\Eigene Dateien\Excel\abc.xls") <> "" Then
MsgBox "Datei vorhanden"

GELÖST:
Die Anführungszeichen waren doppelt gemoppelt:
Code:
Sub Pfadchecker()
Dim Pfad1 As String
Dim Pfad2 As String
Pfad1 = Worksheets("Rech").Range("A32")
Pfad2 = Worksheets("Rech").Range("B32")
If Dir(Pfad1) <> "" Then
  MsgBox "Vorhanden! G"
End If
If Dir(Pfad") <> "" Then
  MsgBox "Vorhanden! H"
End If
End Sub
Antworten Top
#4
Hi,

was steht in den Zellen nur der Name ohne Endung?

dann

If Dir("C:\Eigene Dateien\Excel\abc.*") <> "" Then
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
[-] Folgende(r) 1 Nutzer sagt Danke an chris-ka für diesen Beitrag:
  • o0Julia0o
Antworten Top
#5
Heart 
Mit Dateiendung. Klappt jetzt - ich hatte die umschließenden Anführungszeichen doppelt gsetzt. Danke!
Antworten Top


Gehe zu:


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