Microsoft Excel

Herbers Excel/VBA-Archiv

UDF für LastUser unter Office2010 | Herbers Excel-Forum


Betrifft: UDF für LastUser unter Office2010 von: eres
Geschrieben am: 21.02.2012 08:32:14

Guten Morgen an alle Excel-Freunde,

mit folgender UDF aus dem Forum konnte ich für Excel-Dateien bis Excel2003 den letzten User auslesen:

Function LastUser(strFileName As String) As String

    Dim strText As String
    Dim strFlag1 As String, strFlag2 As String
    Dim i As Integer, j As Integer

    strFlag1 = Chr(0)
    strFlag2 = Chr(32) & Chr(32)
    
    Open strFileName For Binary As #1
        strText = Space(LOF(1))
        Get 1, , strText
    Close #1

    j = InStr(1, strText, strFlag2)
    i = InStrRev(strText, strFlag1, j) + Len(strFlag1)
    LastUser = Mid(strText, i, j - i)

End Function
Kennt jemand eine Alternative für Excel-Dateien ab Version 2007 ?

Vielen Dank für jede Hilfe im voraus.

Gruß

eres

  

Betrifft: AW: UDF für LastUser unter Office2010 von: Patrick Sawyer
Geschrieben am: 24.02.2012 22:43:07

Ich habe das problem auch!