Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1704to1708
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
Inhaltsverzeichnis

Aktiven Dateinamen prüfen

Aktiven Dateinamen prüfen
30.07.2019 17:52:10
kurt
Guten Tag,
ich möchte gern prüfen ob die geöffnete Datei einen bestimmten
Namen hat, aber mit Platzhalter.
Habe mal dieses probiert, geht aber nicht.
'Orginal: "__Auslastung Verkauf Vers. 12.01.xlsm"
Dim akd As String
akd = "__Auslastung Verkauf*.xlsm"
If Not ActiveWorkbook.Name = akd Then
MsgBox "nicht vorhanden"
Exit Sub
Else
MsgBox "ist ?"
Exit Sub
da es verschiedene Versionen gibt !
mfg
kurt k

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktiven Dateinamen prüfen
30.07.2019 18:06:27
onur

Dim nam As String
nam = ActiveWorkbook.Name
If Len(nam) > 24 Then
If Left(nam, 20) = "__Auslastung Verkauf" And Right(nam, 5) = ".xlsm" Then MsgBox "ist ?"
Else
MsgBox "nicht vorhanden"
End If

Danke onur ! klappt -)
30.07.2019 18:21:25
kurt
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige