Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Suche nach PDF Datei mit Ausschluss

Forumthread: VBA Suche nach PDF Datei mit Ausschluss

VBA Suche nach PDF Datei mit Ausschluss
30.08.2023 21:50:12
Freeloader
Hallo zusammen

Mit dem folgenden Code suche ich nach einer PDF Datei, die das Wort "Vertrag" im Namen enthält: 



If Dir(sPath & "\*Vertrag*.pdf", vbNormal) > "" Then

    sFile = sPath & "\*Vertrag*.pdf"

    sFile = Left(sFile, InStrRev(sFile, "\")) & Dir(sFile, vbNormal)

End If


Wie kann ich es anstellen, dass die Datei nur gefunden wird, wenn sie das Wort "Vertrag" und gleichzeitig aber nicht das Wort "intern" enthält?

Beispiel:
Folgende Dateien liegen im Ordner:
Kunde A Projekt C Vertrag intern.pdf
Kunde B Projekt D Vertrag.pdf

Gefunden werden soll nur "Kunde B Projekt D Vertrag.pdf"


Vielen Dank für Eure Hilfe und Gruss, Henner
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Suche nach PDF Datei mit Ausschluss
30.08.2023 22:41:17
onur 
Private Sub CommandButton1_Click()

    Dim sPath, sFile, xFile

    sPath = "C:\Users\XXXX\Desktop\"

    sFile = "*Vertrag*.pdf"

    sFile = Dir(sPath & sFile, vbNormal)

    While sFile > ""

        If sFile > "" And Not InStr(sFile, "intern") > 0 Then

            xFile = sPath & sFile

            'Hier dein Code, wenn was gefunden wird (mehrere Findlinge möglich) - xFile ist Pfad+Name der gefundenen Datei

        End If

        sFile = Dir

    Wend

End Sub
Anzeige
VBA Suche nach PDF Datei mit Ausschluss (thx+erl)
31.08.2023 20:33:09
Freeloader
Hi onur

Funktioniert perfekt, vielen Dank! Schönen Abend und Gruss, Henner
Gerne !
31.08.2023 20:45:05
onur
VBA Suche nach PDF Datei mit Ausschluss
31.08.2023 08:09:47
volti
Hallo Henner,

noch eine Idee... 
Sub Test()

  sPath = "D:\"

  sDatei = sPath & Dir(sPath & "*Vertrag.pdf")

  If sDatei Like "*.pdf" Then MsgBox "gefunden"

End Sub


Gruß
Karl-Heinz
Anzeige
VBA Suche nach PDF Datei mit Ausschluss
31.08.2023 20:38:35
Freeloader
Hallo Karl-Heinz

Vielen Dank auch für Deinen Vorschlag. Ganz so leicht ist es dann doch nicht, hinter "Vertrag" kann auch noch irgendetwas anderes stehen. Hatte ich aber nicht korrekt beschrieben, daher ist Deine Antwort grundsätzlich korrekt - löst aber mein Problem nicht. Wünsche Dir einen schönen Abend, Gruss Henner
Anzeige
VBA Suche nach PDF Datei mit Ausschluss
31.08.2023 20:44:07
Oberschlumpf
Hi,

dann schreib doch im Code hinter "Vertrag" noch ein * und probier die nur 3 Codezeilen dann noch einmal.
Hilfts?

Ciao
Thorsten
VBA Suche nach PDF Datei mit Ausschluss - wirklich?
31.08.2023 21:19:27
Freeloader
Hallo Thorsten

Die Lösung von onur funktioniert perfekt, daher ansich gelöst. Bin aber immer interessiert an Wissen. Wenn ich das mache werden wieder alle Dateien mit "Vertrag" im Dateinamen gefunden, auch jene mit "intern". Im Dateinamen kann auch alles andere noch vorkommen. Danke + Gruss Henner
Anzeige
VBA Suche nach PDF Datei mit Ausschluss - wirklich?
31.08.2023 22:22:49
Oberschlumpf
Hallo,

ja, hast recht...ich hab nich zu ende gedacht!
Natürlich: "*Vertrag*" findet ALLES, wo Vertrag drin vorkommt - auch das, was du nich haben willst.

Ok.

Ciao
Thorsten
;

Forumthreads zu verwandten Themen

Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Anzeige
vba Datei öffnen, Erweiterung unbekannt
Daniel

Hallo VBA - Experten,
Wie öffne ich in vba eine Exceldatei, ohne dass ich die Dateierweiterung kenne? Mein Problem: ich habe ein Makro erhalten, welches Dateien im Excel 2003 - Format öffnet. Das Öffnen sollte auch funktionieren, wenn die Dateien in einem neueren Format mit anderer Erweiter...
09.04.2011 16:16:22
Thread-ID: 1209733
4 Beiträge
PDF Dateien öffnen für Excel BS Vista
ropa

Hallo,
wir haben einen Laptop mit dem BS Vista.
Ich muß mit diesem des öfteren aus dem Internet PDF Dateien öffnen um Daten für Excel zu bekommen.
Wenn ich jetzt mit Firefox eine PDF Datei anklicke dann wird diese nicht geöffnet. Das speichern funktioniert jedoch aber das möchte ich...
27.06.2011 11:57:32
Thread-ID: 1219852
2 Beiträge
Öffnen einer Datei per VBA
Christian

Hallo Forum,
ich möchte per VBA eine Datei öffnem, deren Pfad und Namen als Text in einer Zelle steht.
in A1 steht "D:\test.xls"
dann will ich im Macro den Befehl:
Datei$ = Cells(1, 1).Select
verwenden, um den Namen in der Variablen Datei$ zu speichern.
Das geht nicht....
18.08.2011 12:48:10
Thread-ID: 1226611
4 Beiträge
PDF-Datei öffnen
Lars

Hallo
bisher habe ich mit dem Code:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long S...
06.09.2011 20:32:44
Thread-ID: 1228841
3 Beiträge
PDF Dateien im Verzeichnis drucken/ öffnen
DirkR

Hallo Excelgemeinde,
ich habe mit Hilfe des Forums folgende Datei gebastelt:
https://www.herber.de/bbs/user/78223.xls
Danke für die Hilfe!!!!
Nun habe ich noch 2 Probleme, bei denen ich einfach nicht weiter komme und hoffe auf eure Hilfe.
In der Datei habe ich eine Userform....
05.01.2012 12:09:14
Thread-ID: 1244701
5 Beiträge
pdf dateien mit vba öffnen
Gerhard

Hallo Franz,
Super Super !!!!!!!!!
Vielen Dank
mfg
Gerhard
21.06.2012 11:48:34
Thread-ID: 1268262
2 Beiträge
xldialogprintersetup beim öffnen der Datei per vba
Marcel

Hallo zusammen,
Ich habe folgendes Problem:
Beim öffnen meiner Exceldatei öffnet sich das Dialogfenster "Printersetup".
Ich möchte das dieser Vorgang per VBA-Code abgebrochen wird.
Könnt Ihr mir helfen?
Gruß Marcel
09.01.2013 07:21:01
Thread-ID: 1293347
4 Beiträge
Anzeige
Öffnen von Excel-Dateien mittels VBA
Excel-Dateien

Folgendes Problem:
Ich habe die Möglichkeit geschaffen über einen Button verschiedene Anwendungen zu starten (unter anderem auch einfache Excel-Dateien), die Datumsangaben, Wochentage etc. enthalten. Wird nur eine Datei geöffnet, funktioniert alles normal; nur in manchen Fällen erscheint da...
13.05.2013 13:25:48
Thread-ID: 1312694
7 Beiträge
VBA - pdf-Dateiname aus Zellenwert
Frank

Hallo,
bin neu hier und benötige Hilfe.
Bin schon Stunden an meinem Makro dran, es will mir nicht gelingen.
VBA-Kenntnisse sind NICHT vorhanden, das Untengeschriebene habe ich mir z.T. kopiert und so an mein Anliegen angepasst.
Ich möchte jedoch eine Änderung vornehme, die mir e...
28.01.2014 15:44:42
Thread-ID: 1347093
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige