Neben dem Formular, hier Eingabe genannt, gibt es noch ein zusätzlichen Tabellenblatt mit dem Namen "Info". Dieses kann auf Wunsch über den Menüpunkt - Format - Blatt - ausblenden, auch ausgeblendet werden.
Der Benutzername ist der Anmeldename unter Windows.
Dieser Code muss in das Modul des Tabellenblatts ( siehe auch Code aus Forum- Beispiel 2 ) Eingabe, also das Formular.
Option Explicit
Dim mvntWert As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
'Code für das Modul: "Tabellenblatt"
'*********************************
'Autor: Jürgen Hennekes
'*********************************
Dim wks As Worksheet
Dim lngLast As Long
Set wks = Worksheets("Info")
lngLast = wks.Range("A65536").End(xlUp).Row + 1
If Target.Count > 1 Then Exit Sub
If Intersect(Range("B6:B8,E6:E8"), Target) Is Nothing Then Exit Sub
With wks
.Range("A" & lngLast).Value = Target.Address(0, 0)
.Range("B" & lngLast).Value = mvntWert
.Range("C" & lngLast).Value = Target.Value
.Range("D" & lngLast).Value = VBA.Environ("Username")
.Range("E" & lngLast).Value = Now
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("B6:B8,E6:E8"), Target) Is Nothing Then Exit Sub
mvntWert = Target.Value
End Sub
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
