Supportnet / Forum / Tabellenkalkulation
User Name anzeigen wenn Tabelle geändert
Frage
Hallo zusammen,
muß mich jetzt doch noch mal an Euch wenden und um Hilfe bitten.
Habe folgenden Code im Tabellenblatt:
[b]
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Column
Case 12 To 12:
Cells(Target.Row, 27).Value = Now
Case Else:
End Select
End Sub[/b]
Bedeutet: wenn jemand in der Spalte 12 eine Zelle ändert, wird in Spalte 27 in der entsprechenden Zelle das Datum der Änderung hingeschrieben.
Mein Wunsch:
Das in Spalte 28 der UserName der bei der Windows Anmeldung genommen wird bei Änderungen hineingeschrieben wird.
Ist das möglich? Vielen herzlichen Dank vorab für Eure Hilfe.
Viele Grüße, meikel
Antwort 1 von Hajo_Zi
Hallo Meikel
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Column
Case 12 :
Cells(Target.Row, 27) = Now
Cells(Target.Row, 28) = Environ("Username")
End Select
End Sub
Gruß Hajo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Column
Case 12 :
Cells(Target.Row, 27) = Now
Cells(Target.Row, 28) = Environ("Username")
End Select
End Sub
Gruß Hajo