AW: so geht's
17.03.2005 17:06:05
MikeS
Ich danke Euch. Hab es mit ner Schleife wie folgt gelößt.
Private Sub txtDateiname_Change()
' Nicht zulässige Zeichen im Dateinamen löschen:
' "/", "\", ">", "<", "*", "?", """, "|", ":", ";"
Dim i%, Zeichen, Pos%, AlterDateiname$
Zeichen = Array("/", "\", ">", "<", "*", "?", "|", ":", ";")
With Me
AlterDateiname = Left(.txtDateiname.Text, Len(.txtDateiname.Text) - 1)
For i = 0 To 8
Pos = InStr(1, .txtDateiname.Text, Zeichen(i))
If Pos > 0 Then
.txtDateiname.Text = AlterDateiname
.lblDateiname.Caption = AlterDateiname & "_" & Date & ".xls"
Exit Sub
End If
Next i
If .txtDateiname.Text = "" Then
.lblDateiname.Caption = "Es wurde noch kein Dateinamen eingegeben!"
.lblDateiname.ForeColor = RGB(255, 0, 0)
Else
.lblDateiname.Caption = .txtDateiname.Text & "_" & Date & ".xls"
.lblDateiname.ForeColor = RGB(0, 0, 100)
End If
End With
End Sub
Ciao Mike