Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1488to1492
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
Dateinamen prüfen
28.04.2016 17: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

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

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

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

AW: Wieso bei mir nicht ?
28.04.2016 17: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 18: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 18: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 18: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 18: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 20: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 09: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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige