Thema Datum  Von Nutzer Rating
Antwort
05.11.2021 09:10:14 Matto
NotSolved
Blau Datei unter anderem Namen speichern (wenn schon vorhanden)
 05.11.2021 12:30:40 Gast27886
NotSolved
05.11.2021 15:42:21 Matto
NotSolved
05.11.2021 16:03:01 Gast4992
NotSolved
12.11.2021 10:33:58 Matto
NotSolved

Ansicht des Beitrags:
Von:
Gast27886		 Datum:
05.11.2021 12:30:40		 Views:
857		 Rating:
     
Antwort:
  Ja
Thema:
Datei unter anderem Namen speichern (wenn schon vorhanden)

Muss man halt überprüfen, etwa so:

Private Function Versionize(File As String) As String
  
  Dim strFilename As String
  
  strFilename = Dir$(File)
  
  If strFilename = "" Then
    Versionize = File
    Exit Function
  End If
  
  Dim strPath As String
  Dim strId As String
  Dim strExtension As String
  
  strPath = Left$(File, Len(File) - Len(strFilename))
  
  strExtension = Right$(strFilename, Len(strFilename) - InStrRev(strFilename, "."))
  If Len(strExtension) > 0 Then
    strFilename = Left$(strFilename, Len(strFilename) - Len(strExtension) - 1)
  End If
  
  While IsNumeric(Right$(strFilename, 1))
    strId = Right$(strFilename, 1) & strId
    strFilename = Left$(strFilename, Len(strFilename) - 1)
  Wend
  
  strId = Val(strId) + 1
  strFilename = strFilename & strId & "." & strExtension
  
  Versionize = Versionize(strPath & strFilename)
  
End Function

Verwendet man dann so:

  save_as = ThisWorkbook.Sheets("Input Mask").Range("A14").Value
  save_as = Versionize(save_as)

 

PS: Ungetestet.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.11.2021 09:10:14 Matto
NotSolved
Blau Datei unter anderem Namen speichern (wenn schon vorhanden)
 05.11.2021 12:30:40 Gast27886
NotSolved
05.11.2021 15:42:21 Matto
NotSolved
05.11.2021 16:03:01 Gast4992
NotSolved
12.11.2021 10:33:58 Matto
NotSolved