Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Speicherung

Automatische Speicherung
19.05.2005 17:36:47
Daniel
HAllo,
ich habe ein Problem.
Und zwar habe ich einen excel file der jede woche einmal zurueckgesetzt wird und bei dieser zuruecksetzung eine Speicherung von diesem file mit fortlaufenden namen machen soll.
zB.: Arbeitsmappe 1 fuer erste Speicherung
Arbeitsmappe 2 fuer die zweite speicherung usw.
Danke fuer die Hilfe schon im Voraus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Speicherung
22.05.2005 02:57:32
Ralf
Hi Daniel,
Dir kann geholfen werden...;-) 

Sub Dateinamen_hochzaehlen()
Dim datName$, nummer$, x%, zahl$, pfad$
pfad = ActiveWorkbook.Path
'Dateinamen ermitteln
datName = ActiveWorkbook.Name
'Dateiendung abschneiden
datName = Mid(datName, 1, Len(datName) - 4)
'Nachschauen, ob das aktuelle Zeichen als Zahl verwertbar ist
For x = Len(datName) To 1 Step -1
If IsNumeric(Mid(datName, x, 1)) Then
zahl = Mid(datName, x, 1) & zahl
Else
Exit For
End If
Next x
'Dateinamen mit neuer Nummer festlegen
datName = Left(datName, Len(datName) - Len(zahl)) & CInt(zahl) + 1 & ".xls"
ActiveWorkbook.SaveAs Filename:= _
pfad & "\" & datName, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Ciao, Ralf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige