Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Dateinamen prüfen

Forumthread: Dateinamen prüfen

Dateinamen prüfen
28.04.2016 19:32:24
Walter
Hallo,
guten Abend,
ich möchte den Dateinamen abprüfen.
Daher, der Dateiname ist am Ende mit Vers.Nr. und Datum versehen und
durch Änderung halt anders als ursprünglich.
So klappt es nicht
If ActiveWorkbook.Name = "__Kundenschreiben ?" & ".xlsm" Then
MsgBox "ja, ist Orginaldatei"
Else
MsgBox "ist andere Datei"
End If
mfg
walter wb

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen prüfen
28.04.2016 19:46:10
Hajo_Zi
Hallo Walter,
bei mir klappt es.
Gruß Hajo

Wieso bei mir nicht ?
28.04.2016 19:51:52
Walter
Hallo Hajo,
wieviel Fragezeichen muss man den setzen, da wegen der Versions-Nr. unterschiedlich
lang sein kann.
gruß
walter wb

Anzeige
AW: Wieso bei mir nicht ?
28.04.2016 19:56:26
Hajo_Zi
Hallo Walter,
ich vermute mal es ist ein String und der darf eine max. Länge von 255 haben.
Die Fragezeichen sind ja keine Platzhalter.
Gruß Hajo

AW: Wieso bei mir nicht ?
28.04.2016 20:01:00
Walter
Hallo Hajo,
der aktuelle Name:
If ActiveWorkbook.Name = "__Kundenschreiben Vers.1.0 28.04.2016.xlsm" Then
wenn ich so reingebe ist ok aber so nicht:
If ActiveWorkbook.Name = "__Kundenschreiben" & ".xlsm" Then
gruß
walter wb

Anzeige
AW: Wieso bei mir nicht ?
28.04.2016 20:04:02
Hajo_Zi
Hallo walter,
auch die neue Zeile gibt bei mir aus das es eine andere Datei ist.
Gruß Hajo

Mit = prüfst du auf GENAUE Übereinstimmung, ...
28.04.2016 20:08:57
Luc:-?
…Walter,
nicht auf „ungefähr so“ mit Platzhaltern. Das hat Hajo versucht, dir zu sagen. Wenn du mit einem Muster vgln willst, musst du den Operator Like und ein Muster verwenden, also bspw so:
If ActiveWorkbook.Name Like "__Kundenschreiben*.xlsm" Then
Gruß, Luc :-?
Besser informiert mit …

Anzeige
AW: Dateinamen prüfen
28.04.2016 20:06:32
Daniel
Hi
wenn die "?" Platzhalter für andere Zeichen sein sollen, darfst du nicht mit "=" vergleichen, denn diese Vergleichsart kennt keine Platzhalter, bei "=" ist ein ein "?" auch ein "?" und nichts anderes.
Eine Vergleichsform, die mit Platzhaltern arbeiten kann, wäre LIKE:
If ActiveWorkbook.Name Like "__Kundenschreiben ?.xlsm" Then
hierbei steht jedes "?" für genau ein Zeichen.
wenn die Anzahl der Zeichen unbekannt ist oder unterschiedlich sein kann, muss der "*" als Joker ran, dieser steht für eine beliebige Anzahl Zeichen:
If ActiveWorkbook.Name Like "__Kundenschreiben *.xlsm" Then
Gruß Daniel

Anzeige
Danke an Hajo,Luc und Daniel -)
28.04.2016 22:44:13
Walter
Guten Abend zusammen,
habe das Beispiel von Luc und Daniel genommen, klappt,
danke an ALLE und schönen Abend noch !
mfg walter wb

Danke an Hajo,Luc und Daniel -)
03.05.2016 11:30:02
Walter
Guten Abend zusammen,
habe das Beispiel von Luc und Daniel genommen, klappt,
danke an ALLE und schönen Abend noch !
mfg walter wb
Anzeige

Forumthreads zu verwandten Themen

Anzeige