ich habe eine Textbox1 da ist der Name der aktuellen Datei
hinterlegt.
Ändere ich jetzt den Namen, dann reagiert die Textbox aber gibt
mir immer zurück, "Name vorhanden etc."
Was kann dies sein?
Habe alle Möglichkeiten getestet mit EXIT und auch AfterUpdate.
Private Sub TextBox1_Change()
'
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'
Private Sub TextBox1_AfterUpdate()
DIM OrdNam As Variant, Ord As Byte, Pfad As String
Dim tb As String
Dim strPath$
DateiNam = ActiveWorkbook.Name
If Dir(tb) "" Then
MsgBox "Dateiname nicht vorhanden, jetzt erstellen "
' Workbooks.Add
' Application.DisplayAlerts = False
' ActiveWorkbook.SaveAs Filename:=tb, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
' Application.DisplayAlerts = True
Else
MsgBox ("TEXTBOX! Achtung die Datei mit dem NAMEN" & Chr(13) & Chr(13) _
& tb & Chr(13) & Chr(13) & _
"existiert schon !" _
& Chr(13) & Chr(13) & "Bitte ( NAMEN ) oder MMYYYY prüfen ! ")
End If
End Sub
würde mich freuen wenn jemand einen Tip hat,
danke im Voraus,
höflichst kurt