Huhu,
folgende Frage, liebe Experten:
Ich weiss nicht warum, aber der Code
speichername = tb_name.Value
MsgBox speichername
If Dir("Zeiterfassung " & speichername & ".xls") = "" Then
ActiveWorkbook.SaveAs Filename:="Zeiterfassung " & speichername & ".xls", FileFormat:= _
xlNormal
Else
With Application.FileDialog(2)
.InitialFileName = "Zeiterfassung " & speichername & ".xls"
If .Show -1 Then
MsgBox "Datei nicht gespeichert"
End If
End With
End If
DoEvents
lbl_bittewarten.Caption = "erfolgreich. Programm wird geschlossen"
DoEvents
funktioniert leider nicht mehr.
Also wenn die Datei noch nicht da ist, wird ohne Probleme gespeichert.
Wenn die Datei allerdings schon vorhanden ist, öffnet sich auch der Speichern-untern-Dialog und man kann auch eine Eingabe tätigen, allerdings wird der neue Name dann nicht gespeichert. es passiert nichts.....
Warum? Gestern ging es doch noch...?!?!
Hab ich jetzt nen Denkfehler? Versteh die Welt nicht mehr... :-(
Grüßle Beffen