Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wie kann ich abspeichern ?

Wie kann ich abspeichern ?
25.06.2007 11:29:45
Walter
Hallo Zusammen,
habe folgende Zeilen im Speicherungsmakro:
Dim dn As String
dn = DateiNam & " " & _
Format(ActiveSheet.Cells(2, 16).Value, "mmm yy") _
& " vom " & Format(Date, "DD.MM.YYYY") _
& " " & Format(ActiveSheet.Cells(8, 17).Value) & ".xls"
die Speicherung läuft soweit i.o. .
Wenn ich allerdings die Speicherung nochmals durchführe, habe die gleichen Zeilen allerdings
ohne:
Format(ActiveSheet.Cells(8, 17).Value) wird mein Hinweis z.b. C 00 nicht mehr gespeichert,
Wie kann ich das einbinden, das der gespeicherte Wert z.b. C 00 bleibt ?
So steht das in einem anderen Makro für ein anderes Verzeichnis:
Dim dn As String
dn = DateiNam & " " & _
Format(ActiveSheet.Cells(2, 16).Value, "mmm yy") _
& " vom " & Format(Date, "DD.MM.YYYY") & ".xls"
gruß Walter K

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bitte mal ei Fachmann !!!
25.06.2007 13:43:17
Walter
Hallo,
brauch dringend diese Abprüfung ob nach dem Datum etwas steht etc.
mfg Walter K

Hallo habe mal gefunden, geht. -)
25.06.2007 18:25:00
Walter
Hall Zusammen,
habe dies mal getestet.
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
so wird die Datei unter dem neuen Namen weiter gespeichert.
mfg Walter K

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige