VBA-Beispiel 072
mail schreiben
mail schreiben

Namen in Excel und Windows auslesen

Windows und Excel kennen eine ganze Menge Namen:
Sub Benutzername()
'Extras Optionen Allgemein Benutzername
  MsgBox Application.Username, , ""
End Sub

Sub Autor()
'Datei Eigenschaften Zusammenfassung Autor
  MsgBox Application.ThisWorkbook.BuiltinDocumentProperties(3).Value, , ""
End Sub

Sub letzte_Autor()
'Datei Eigenschaften Statistik - zuletzt gespeichert von
  MsgBox Application.ThisWorkbook.BuiltinDocumentProperties(7).Value, , ""
End Sub

Sub Username()
'Anmeldename unter Windows
  MsgBox Environ("Username"), , ""
End Sub

Sub Computername()
  MsgBox Environ("Computername"), , ""
End Sub

Download:   vba072.zip