Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage bei Dateinamen

Forumthread: Abfrage bei Dateinamen

Abfrage bei Dateinamen
15.11.2006 08:43:30
WalterK
Guten Morgen,
wenn ich eine gezipte Datei aus Lotus-Notes lade, hat diese immer einen
anderen Namen als der Orginal-Name. z.b.$#B66C2EF7.xls
Ich möchte gern im Makro einbauen, weiß allerdings nicht wie es geht,
das wenn so eine Datei geöffnet ist Hinweis: msagbox "Die Datei muß umbenannt werden", sonst soll wenn der Name z.b. "WLager" Hinweis "Datei ist
i.o." (Name kann dann sein "WLager teile 1520012.xls")
gruß Walter K
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage bei Dateinamen
15.11.2006 10:15:15
Erich
Hallo Walter,
vielleicht so? 
Sub umbenennen()
With ActiveWorkbook
If Not .Name Like "WLager*" Then _
MsgBox "Die Datei " & vbLf & vbLf & .Name & vbLf & vbLf & "muss umbenannt werden!"
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Richtig aber noch Else einbauen
15.11.2006 10:45:46
WalterK
Hallo Erich,
Danke funktioniert.
Kann man dies erweitern mit Else, bei mir nicht geklappt !

Sub umbenennen()
With ActiveWorkbook
If Not .Name Like "WLager*" Then _
MsgBox "Die Datei " & vbLf & vbLf & .Name & vbLf & vbLf & _
"muss umbenannt werden!    "
Else
MsgBox "Die Datei " & vbLf & vbLf & .Name & vbLf & vbLf & _
"ist RICHTIG !    "
End With
End Sub

gruß WalterK
Anzeige
Hurrrrrra, habe es geschaft , Danke
15.11.2006 11:01:15
WalterK
Hallo Erich,
habe es geschaft:

Sub umbenennen()
With ActiveWorkbook
If Not .Name Like "WLager*" Then
MsgBox "Die Datei " & vbLf & vbLf & .Name & vbLf & vbLf & _
"muss umbenannt werden!    "
Else
MsgBox "Die Datei " & vbLf & vbLf & .Name & vbLf & vbLf & _
"ist RICHTIG !    "
End If
End With
End Sub

Herzlichen DANK,
gruß WalterK
Anzeige
Danke für Rückmeldung - Prima! (oT)
15.11.2006 12:37:39
Erich
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige