VBA-Sverweis mit UserName
05.02.2009 12:47:52
Alex
mit diesem Code-Teil wird der User, welcher in meiner Datei etwas verändert verewigt. :-)
Select Case Target.Column
Case 14, 17, 20, 22, 24, 25, 29, 31, 34, 38, 40, 47, 49, 51, 53, 55, 56
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName & " - " & Date
nun möchte ich diesen UserName aber in einen dazugehörigen Namen wandeln, den ich in der Datei "Basis" aufgeführt habe.
Pfad: "'Z:\EHu_1\Polizeitraining\Basisdaten\[Basis.xls]Tabelle1'!K5:N200, 4, False)"
An der Stelle "Application.UserName" müsste dann der VBA Sverweis stehen, mit Suchkriterium UserName.
Könnt ihr mir helfen, wie man das schreiben muss?
Vielen Dank
Alex