Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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