Microsoft Excel

Herbers Excel/VBA-Archiv

Excel Vorlage mit variablem Namen öffnen | Herbers Excel-Forum


Betrifft: Excel Vorlage mit variablem Namen öffnen von: Julian Springer
Geschrieben am: 10.02.2012 11:14:56

Liebe Gemeinde,

ich möchte per VBA eine Excel-Vorlage öffnen, die einen festen und einen variablen Bestandteil hat, in etwa so:

Arbeitsmappe_v1.11_20120210.xlsm

Der feste Bereich ist absolut unveränderlich, der variable beinhaltet eine aufsteigende Versionsnummer und anschließend das Datum.

Ich möchte nun per Makro immer die jeweils aktuellste Variante dieser Excel-Vorlage öffnen. Die Entscheidung hierüber soll über ein Makro ausgeführt werden ohne Eingriffsmöglichkeiten der jeweiligen User.

Vielen Dank für Eure Hilfe.

Julian.

  

Betrifft: Nachfrage von: Rudi Maintaire
Geschrieben am: 10.02.2012 11:27:49

Hallo,
kann es für ein Datum mehrere Versionen geben?

Gruß
Rudi


  

Betrifft: AW: Nachfrage von: Julian Springer
Geschrieben am: 10.02.2012 11:32:20

Rudi, das ist erst einmal nicht denkbar. Also nein.


  

Betrifft: AW: Nachfrage von: Rudi Maintaire
Geschrieben am: 10.02.2012 11:55:34

Hallo,
trotzdem eingebaut:

Function LastVersion(sPath As String) As String
  Dim sDir As String, lDate As Long, lDateA As Long
  Dim sVer As String, sngVer As Single, arrTmp, sngTest
  
  Const sFile As String = "Arbeitsmappe_"
  
  If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
  sDir = Dir(sPath & sFile & "*")
  Do While sDir <> ""
    arrTmp = Split(sDir, "_")
    If UBound(arrTmp) > 0 Then
      lDateA = Left(arrTmp(2), 8) * 10
      sngVer = Replace(Replace(arrTmp(1), "v", ""), ".", ",") + 1
      If lDateA + sngVer > lDate * 10 + sngVer Then
        lDate = lDateA / 10
        sVer = arrTmp(1)
      End If
    End If
    sDir = Dir
  Loop
  LastVersion = sFile & sVer & "_" & lDate & ".xlsx"
End Function

Gruß
Rudi


Beiträge aus den Excel-Beispielen zum Thema "Excel Vorlage mit variablem Namen öffnen"