Datum

Titel

04.05.2024 20:49:40

Listbox - ausgewählte Zeile aus Tabellenblatt markieren

04.05.2024 16:03:54

Problem mit einer Regel bei bedingter Formatierung

04.05.2024 10:29:31

.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For

04.05.2024 09:44:33

Bestimmten bereich aus einem String per VBA separieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1900to1904

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

If objDatei.Name Like "MRS*" Then...

Forumthread: If objDatei.Name Like "MRS*" Then...
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

18.10.2022 18:31:15

Chris

Hallo,
mal eine kurze Frage,
ich versuche Dateinamen aufulisten per VBA, die mit der Zeichenfolge MRS beginnen.
Nutze dazu als Prüfung
If objDatei.Name Like "MRS*" Then
was soweit auch funktioniert, das Makro listet die Dateinamen auf, auch ohne Fehlermeldung. Aber wie sage ich jetzt alles was mit MRS anfängt, außer Texte die mit MRSN anfangen?
Danke
Christian

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Warum VBA?

18.10.2022 18:45:30

RPP63
AW: Warum VBA?

18.10.2022 18:48:09

Chris
AW: Warum VBA?

18.10.2022 18:56:17

RPP63
AW: Warum VBA?

18.10.2022 19:33:46

Chris
dann is erledigt...owT

18.10.2022 19:48:38

Oberschlumpf
AW: dann is erledigt...owT

18.10.2022 23:19:29

snb

Warum VBA?

18.10.2022 18:45:30

RPP63

Moin!
In Deiner Excel-Version gibt es FILTER()
Diese Funktion kannst Du natürlich auch in VBA verwursten, nur wozu?

	A	B
1	MRS1	MRS1
2	MRSN2	MRS5
3	MRS5	MRSX35
4	MRSN673
5	MRSX35

Zelle	Formel
B1	=FILTER(A1:A5;(LINKS(A1:A5;3)="MRS")*(LINKS(A1:A5;4)>"MRSN"))

Gruß Ralf

AW: Warum VBA?

18.10.2022 18:48:09

Chris

Hallo Ralf,
weil es beim Start des Makros noch keine Texte gibt die ich filtern könnte.
Das Makro greift aufs Dateisystem zu, nicht auf Teile einer Mappe.


Set objFileSystem = CreateObject(Class:="Scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("D:\Bilder")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
If objDatei.Name Like "MRS*" Then
lngZeile = lngZeile + 1
Cells(lngZeile, 1) = objDatei.Name
End If
Next objDatei

Gruß
Christian

AW: Warum VBA?

18.10.2022 18:56:17

RPP63


If Left("MRSN673", 3) = "MRS" And Not Left("MRSN673", 4) = "MRSN" Then

AW: Warum VBA?

18.10.2022 19:33:46

Chris

Hallo Ralf,
sorry dass ich mich zu Beginn wohl etwas misverständlich ausgedrückt habe.
Danke jedenfalls für deinen Tipp,
If objDatei.Name Like "MRS*" And Not objDatei.Name Like "MRSN*" Then
funktioniert.
Gruß
Chris

dann is erledigt...owT

18.10.2022 19:48:38

Oberschlumpf

AW: dann is erledigt...owT

18.10.2022 23:19:29

snb

oder


Sub M_snb()
sn=filter(split(CreateObject("wscript.shell").exec("cmd /c dir D:\Bilder\MRS*.* /b").stdout.readall,vbcrlf),"MRSN",0)
cells(1).resize(ubound(sn)+1)=application.transpose(sn)
End Sub