Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1352to1356
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

wieso wird nicht gelöscht

wieso wird nicht gelöscht
23.03.2014 16:48:34
Kurt
Hallo zusammen,
nun tüftel ich schon seit 4h Stunden und komme nicht zum
gewünschten Ergebnis.
Es wird eine Datei erstellt, wenn dies aber schon vorhanden ist,
soll abgebrochen werden und die schon neu erstellte Mappe (ohne Namen)
gelöscht werden.
Bitte mal sehen, vielleicht habe ich aber nur was übersehen.
Wenn nicht vorhanden, läuft alles bestens auch das Speichern
ins Verzeichnis.
Übrings, erscheint immer Laufzeitfehler 53, Datei nicht gefunden.
Die Mappe (aktuelle Mappe32) ist aber vorhanden bzw. auf dem Bildschirm
zu sehen.
Private Sub NEU_BlattSpeichern()
Dim TBName$, WBName$
Dim tan
tan = ActiveSheet.Name
TBName = ActiveSheet.Name
If TBName = "" Then Exit Sub
WBName = InputBox("Kunden-Name eingeben !", _
"Dateinamen erstellen", tan & ".xls")
If WBName = "" Then Exit Sub
Worksheets(TBName).Copy
'--- so jetzt noch ins Verzeichnis speichern -------------
Dim fs As Object, OrdNam As Variant, Ord As Byte, Pfad As String
Dim DateiNam As String
Dim strFullName As String
DateiNam = WBName & " " & Format(Date, "YYYY.MM.DD") & ".xls"
If Dir("C:\#_Standort\#_Muster\DateiNam") = "" Then
MsgBox "Kunden-Name mit aktuellem Datum ist vorhanden !" & vbLf & vbLf & "Bitte ändern !"
Dim sDatei As String
sDatei = ActiveWorkbook.Name
If Dir(sDatei) = "" Then
Kill sDatei
End If
Exit Sub
Else
''' MsgBox "nicht vorhanden"
End If
....
hier geht es weiter mit speichern
mfg
kurt k

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt...owT
23.03.2014 16:56:51
Oberschlumpf
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige