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
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