Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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
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
Anzeige

300 Forumthreads zu ähnlichen 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
Anzeige
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
Per VBA Excel Datei öffnen und Register wechseln
christoph

Hallo, ich habe als VBA Laie folgendes Problem. Ich möchte im Rahmen eines Makros eine andere bereits geöffnete Exceldatei aktiveren und in dieser neu aktivierten Datei das Registerblatt wechseln - was leider nicht funktioniert. Bisher habe ich folgenden VBA Code zum aktivieren der Datei und...
31.03.2010 15:03:42
Thread-ID: 1149665
9 Beiträge
Anzeige
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-Datei öffnen
Lars

Hallo
hatte diese Frage vor ein paar Tagen schon einmal eingestellt und leider keine brauchbare Antwort erhalten. Lediglich den Hinweis, dass die "shell" Funktion nicht auf Mac läuft. Habe schon allerhand ausprobiert und kann leider keine Lösung im Netz finden.
bisher habe ich mit dem...
11.09.2011 17:01:47
Thread-ID: 1229384
4 Beiträge
Öffnen von Dateien aus VBA
Dateien

Hallo,
in einer Listbox auf einer frm lasse ich mir die Dateien eines Ordners mit vollständigen Namen und Pfad anzeigen.
Dann wähle ich in der Listbox einen Eintrag und muss je nach Ändung auf einen Button klicken.
Wenn es ein WordDoc ist, liegt hinter dem Button:
Private Sub...
12.09.2011 11:47:20
Thread-ID: 1229442
6 Beiträge

Links zu Excel-Dialogen

CommandButton Frame

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
4
3
2
8
3
1
3
2
3
5
3
4
1
3
6
2
4
8
2
3
1
8
6
1
3