Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1584to1588
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

Warnung beim Speichern ausgeben

Warnung beim Speichern ausgeben
05.10.2017 09:43:04
Sigrid
Guten Morgen,
das sind meine Zeilen, damit wird der Name der Speicherung festgelegt.
Wo kann ich die Meldung einfügen, damit nur gültige Namen hinterlegt werden,
also kein Doppelpunkt oder / Strich ect., damit ein Hinweis für das
Speichern mit einem RICHTIGEN Namen erfolgt !
If TBName = "" Then Exit Sub
WBName = InputBox(Chr(13) & Chr(13) & _
"JETZT im blau makierten Feld Kunden-Name eingeben: " & Chr(13) & Chr(13) & _
" NUR Namen !", _
"Kunden-Namen für Datei >", tan & ".xls")
ActiveSheet.Range("D1") = WBName
mfg
sigrid

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

Betreff
Datum
Anwender
Anzeige
AW: Warnung beim Speichern ausgeben
05.10.2017 17:11:30
ChrisL
Hi Sigrid
Sub t()
Dim strWBName As String, varAntwortMsg
Dim strTan As String: strTan = "Default"
Do
strWBName = InputBox("Text...", strTan & ".xls")
If Not sichererDateiname(strWBName) Then
If MsgBox("Dateiname enthält ungültige Sonderzeichen." & Chr(10) & _
"Nochmal probieren?", vbYesNo) = vbNo Then Exit Sub
Else
Exit Do
End If
Loop
MsgBox strWBName
End Sub

Private Function sichererDateiname(str As String) As Boolean
Dim ar As Variant, i As Integer
ar = Array("/", ";", "*", "?", """", "", "|")
For i = LBound(ar) To UBound(ar)
If InStr(1, str, ar(i), vbTextCompare) > 0 Then Exit Function
Next i
sichererDateiname = True
End Function

cu
Chris
Anzeige
Sorry, war verhindert aber DANKE --))
06.10.2017 13:53:23
Sigrid
Guten Tag Chris,
sorry ich war gestern leider noch mit den Kindern unterwegs.
Danke !!!
Funktioniert einwandfrei !
Schönes Wochenende !
gruß
Sigrid

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige