Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfe ob Datei im Pfad vorhanden.

Prüfe ob Datei im Pfad vorhanden.
18.05.2021 15:16:18
Eisi
Hallo zusammen,
mit diesem Code bekomme ich die Meldung, dass die Datei nicht vorhanden ist. Sie ist aber in dem aktuellen Pfad vorhanden.
Was ist an diesem Code falsch?
Danke für die Hilfe.
VG Eisi :-)
Dim strPath As String
Dim strDateiname As String
strPath = ActiveWorkbook.Path
strDateiname = strPath & "\AlleAngebote.xlsm"
If (strDateiname) "" Then
MsgBox "Datei ** AlleAngebote.xlsm ** wurde nicht gefunden." & vbNewLine & "Bitte diese Datei in Dein aktuelles Verzeichnis kopieren." & vbNewLine & "Danke."
Exit Sub
End If

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfe ob Datei im Pfad vorhanden.
18.05.2021 15:18:57
Nepumuk
Hallo,
so:

If Dir$(strDateiname) = "" Then
Gruß
Nepumuk
AW: Prüfe ob Datei im Pfad vorhanden.
18.05.2021 15:22:36
Eisi
Klasse Nepumuk, herzlichen Dank :-)
GLG Eisi :-)
AW: Prüfe ob Datei im Pfad vorhanden.
18.05.2021 16:11:54
Peter
Genauer noch als Funktion wie diese:
  • 
Function FileExists(ByVal Filename As String) As Boolean
'TRUE, wenn File existiert
'Achtung: Immer FALSE, wenn >= 260 Zeichen!
On Error GoTo ErrEx
FileExists = (GetAttr(Filename) And vbDirectory)  vbDirectory
Exit Function
ErrEx:
FileExists = False
End Function

    • AW: Prüfe ob Datei im Pfad vorhanden.
    18.05.2021 16:21:52
    Eisi
    Danke Peter, habe ich mir für spätere Lösungen abgespeichert.
    Vielen Dank.
    VG Eisi :-)
    Anzeige

    302 Forumthreads zu ähnlichen Themen

    Makro prüft ob Datei vorhanden ist.
    Peter

    Hallo!
    Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
    28.12.2008 01:46:00
    Thread-ID: 1035513
    3 Beiträge
    Anzeige
    Prüfen ob Zelle vorhanden...
    pervenches

    Guten Tag
    Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
    09.09.2009 09:02:19
    Thread-ID: 1101377
    5 Beiträge
    Prüfen ob Datei vorhanden
    Marcus

    Hallo,
    kann mir jemand sagen, wie folgender Code aussehen muss:
    Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
    If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
    Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
    15.10.2009 07:05:26
    Thread-ID: 1109751
    2 Beiträge
    Anzeige
    Prüfen ob Schaltfläche vorhanden
    walli

    Guten Tag,
    ALLEN ein frohes Weihnachtsfest !
    Ich habe mal gestöbert und dies gefunden.
    Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
    Dim shShape As Shape
    For Each shShape In Worksheets("Test").Shapes
    If shShape.Name = "Sc...
    25.12.2009 15:52:15
    Thread-ID: 1125912
    7 Beiträge
    Prüfen ob Tabellen vorhanden
    Kurt

    Guten Morgen,
    wünsche allen ein gesundes neues Jahr !
    Danke für die bisherige Unterstützung !
    Frage:
    Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
    sind. (MMM)
    Ich möchte prüfen ob ein Monat fehlt.
    mfg Kurt P
    05.01.2010 09:31:14
    Thread-ID: 1127179
    7 Beiträge
    ControlPopup prüfen ob 2 mal vorhanden
    marco

    Hallo Kollegen,
    Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
    Popup wird ertellt.
    Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
    28.01.2010 17:44:30
    Thread-ID: 1133863
    3 Beiträge
    prüfen ob versch. Ziffern in Zellen vorhanden sind
    Heinz

    Hallo Excellenten,
    viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
    Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
    A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
    A2: 00000000 9;00000000000000 24; 25;00000
    A3: 00 3;0000000000000000 27;000
    A...
    08.04.2010 21:26:15
    Thread-ID: 1150683
    4 Beiträge
    Überprüfen ob Tabellenblatt vorhanden ist
    Ingo

    Hallo zusammen,
    hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
    Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
    20.04.2010 11:44:29
    Thread-ID: 1152802
    3 Beiträge

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    2
    1
    4
    1
    5
    6
    6
    2
    3
    2
    3
    3
    2
    4
    6
    6
    3
    3
    2
    3
    3
    3
    7
    4
    4