Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Ulle-gt5 vom 25.10.2021, 13:03 Options
Ordner durchsuchen ob Datei vorhanden?
Hallo wer kann mir helfen,
ich möchte wissen, bevor ich eine Arbeitsmappe ausfülle ob es schon eine mit diesen Namen gibt?
Also ich trage in G5 den Kunden ein(Ordnername),
dann in C6 die Artikelnummer(Dateiname).
Jetzt soll mir eine Msbox sagen, wenn Datei vorhanden:
Datei vorhanden!
soll Datei geöffnet werden Ja/ Nein
Der Pfad unter der die Mappen gespeichert wird lautet:
K:\"Kunde(G5)"\"Artikelnummer(c6)".xls.
Ich hoffe das ich alles geschrieben habe um mein Problem zu verstehen.
Ich weis, dass mir jemand helfen kann,
also schon mal danke
gruß Ulle
ich möchte wissen, bevor ich eine Arbeitsmappe ausfülle ob es schon eine mit diesen Namen gibt?
Also ich trage in G5 den Kunden ein(Ordnername),
dann in C6 die Artikelnummer(Dateiname).
Jetzt soll mir eine Msbox sagen, wenn Datei vorhanden:
Datei vorhanden!
soll Datei geöffnet werden Ja/ Nein
Der Pfad unter der die Mappen gespeichert wird lautet:
K:\"Kunde(G5)"\"Artikelnummer(c6)".xls.
Ich hoffe das ich alles geschrieben habe um mein Problem zu verstehen.
Ich weis, dass mir jemand helfen kann,
also schon mal danke
gruß Ulle
Antwort 1 von Hajo_Zi vom 25.10.2021, 13:20 Options
Hallo Ulle,
Option Explicit
Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
If Dir(ThisWorkbook.Path & "\Almanach.xls", vbNormal) = "" Then
MsgBox "nicht vorhanden"
Else
MsgBox "vorhanden"
End If
End Sub
Sub Datei_vorhanden()
' von Berti Koern
Dim Fso As Object, Dateiname As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "L:\Eigene Dateien\Hajo\Adresse.xls"
' Ergänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
Set Fso = Nothing
End Sub
Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\", vbDirectory) <> "" Then
MsgBox "vorhanden"
Else
MkDir "L:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso As Object, Ordnername As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
Set Fso = Nothing
End Sub
Gruß Hajo
Option Explicit
Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
If Dir(ThisWorkbook.Path & "\Almanach.xls", vbNormal) = "" Then
MsgBox "nicht vorhanden"
Else
MsgBox "vorhanden"
End If
End Sub
Sub Datei_vorhanden()
' von Berti Koern
Dim Fso As Object, Dateiname As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "L:\Eigene Dateien\Hajo\Adresse.xls"
' Ergänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
Set Fso = Nothing
End Sub
Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\", vbDirectory) <> "" Then
MsgBox "vorhanden"
Else
MkDir "L:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso As Object, Ordnername As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
Set Fso = Nothing
End Sub
Gruß Hajo
Antwort 2 von Ulle-gt5 vom 25.10.2021, 13:59 Options
Hallo Hajo,
danke für die schnelle Antwort, aber bis ich verstanden habe was du mir sagen willst habe ich graue Haare.
Ich bin wirklich Laie auf dem Gebiet VBA.
Gibt es den kein verständlicher Weg mit zwei Variablen (G5-verz und C6 dname) in LW K:\ eine Datei zu suchen.
Danke
Ulle
danke für die schnelle Antwort, aber bis ich verstanden habe was du mir sagen willst habe ich graue Haare.
Ich bin wirklich Laie auf dem Gebiet VBA.
Gibt es den kein verständlicher Weg mit zwei Variablen (G5-verz und C6 dname) in LW K:\ eine Datei zu suchen.
Danke
Ulle
Antwort 3 von Hajo_Zi vom 25.10.2021, 14:11 Options
Halo Ulle,
ersetze meinen Prüfwert durch
" K:\" & Range("G5") & "\" & Range("c6") & ".xls.
Gruß Hajo
ersetze meinen Prüfwert durch
" K:\" & Range("G5") & "\" & Range("c6") & ".xls.
Gruß Hajo
Antwort 4 von Ulle-gt5 vom 25.10.2021, 15:05 Options
Hallo,
habe alles ersetz was ich glaubte.
Es passiert nichts, nicht mal ne Fehlermeldung, die ich so liebe!
Aber ich gehe davon aus das ich den Fehler mach.
Muss das eigentlich sein, Phad vorhanden, Datei vorhanden und Ordner vorhanden?
Für mich ist das ganzschön kompliziert.
Noch was, den Ordner gibt es immer!
Gruß
Ulle
habe alles ersetz was ich glaubte.
Es passiert nichts, nicht mal ne Fehlermeldung, die ich so liebe!
Aber ich gehe davon aus das ich den Fehler mach.
Muss das eigentlich sein, Phad vorhanden, Datei vorhanden und Ordner vorhanden?
Für mich ist das ganzschön kompliziert.
Noch was, den Ordner gibt es immer!
Gruß
Ulle
Ähnliche Themen
Excel Inhalte durchsuchen
Trollli89 02.05.2008 - 92 Hits - 1 Antwort
Datei automatisch in einen Ordner Speichern
Elhamplo 11.07.2008 - 170 Hits - 2 Antworten
Ordner erstellen und Datei in Ordner speichern
Elhamplo 03.11.2008 - 39 Hits - 9 Antworten
Ordner nach Datei überwachen und Ereignis starten
dersuchendeX09 31.03.2009 - 158 Hits - 1 Antwort
Excel Makro: Datei speichern unter anderem Namen, falls Name in Ordner schon vorhanden ist
Shermi 19.08.2009 - 921 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
