Thema: Excel-Usernamen auslesen (nicht automatisch)

Hallo zusammen,
ich benötige für eine Prüfungsdatei, welche immer von 2 Personen nacheinander bestätigt werden muss, die Möglichkeit, den Usernamen auszulesen. Da jedoch andere Personen diese Datei ebenfalls öffnen, darf es nicht automatisch eingetragen werden sondern durch z.b. ein Macro.
Meine Überlegung:
Macro 1 wird geklickt und es wird der Username ausgelesen und in Zelle G80 eingetragen.
Makro 2 wird geklickt und es wird der Username ausgelesen und in Zelle G84 eingetragen.
Hiermit wird das Vieraugenprinzip bestätigt.
Leider sind meine VBA-Kenntnisse geringer als gering und mittels =Benutzer ist das Vorhaben nicht realisierbar.
Kann mir jemand einen Tip geben, wie ich dieses umsetzen kann? Umgeschaut habe ich mich, aber wenn, dann habe ich nur teile des benötigten Vorhabens gefunden.
Vielen Dank im voraus!

Hi Patrick

Sub Makkaroni1()
With ThisWorkbook.Worksheets("Tabelle1").Range("G80")
If .Value = "" Then .Value = Environ("Username")
End With
End Sub

Sub Makkaroni2()
With ThisWorkbook.Worksheets("Tabelle1").Range("G84")
If .Value = "" Then .Value = Environ("Username")
End With
End Sub

cu
Chris

Grandios, vielen Dank!!

Hallo zusammen,
ich benötige für eine Prüfungsdatei, welche immer von 2 Personen nacheinander bestätigt werden muss, die Möglichkeit, den Usernamen auszulesen. Da jedoch andere Personen diese Datei ebenfalls öffnen, darf es nicht automatisch eingetragen werden sondern durch z.b. ein Macro.
Meine Überlegung:
Macro 1 wird geklickt und es wird der Username ausgelesen und in Zelle G80 eingetragen.
Makro 2 wird geklickt und es wird der Username ausgelesen und in Zelle G84 eingetragen.
Hiermit wird das Vieraugenprinzip bestätigt.
Leider sind meine VBA-Kenntnisse geringer als gering und mittels =Benutzer ist das Vorhaben nicht realisierbar.
Kann mir jemand einen Tip geben, wie ich dieses umsetzen kann? Umgeschaut habe ich mich, aber wenn, dann habe ich nur teile des benötigten Vorhabens gefunden.
Vielen Dank im voraus!

Hi Patrick

Sub Makkaroni1()
With ThisWorkbook.Worksheets("Tabelle1").Range("G80")
If .Value = "" Then .Value = Environ("Username")
End With
End Sub

Sub Makkaroni2()
With ThisWorkbook.Worksheets("Tabelle1").Range("G84")
If .Value = "" Then .Value = Environ("Username")
End With
End Sub

cu
Chris

Grandios, vielen Dank!!