Änderung durch Nutzer protokollieren
19.09.2023 21:01:26
Jens1187
Ich habe folgendes Problem:
Ich möchte in verschiedenen Spalten erfassen welcher Disponent eine Ab- bzw. Einschaltung eingetragen hat.
Sprich, trägt ein Disponent in Spalte C eine Abschaltung ein soll sein Name samt Datum in Spalte H eingetragen werden und
wird eine Einschaltung in Spalte K eingetragen soll das selbe in Spalte M passieren!
Prinzipiell bekomm ich das hin, allerdings immer nur für Spalte H oder M, nicht für beide!
Mein Code sieht aktuell so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim User As String
Dim Schutz As Boolean
' User = Environ("UserName") 'Windows-Username
User = Application.UserName 'Excel User-Name
Schutz = True
If Target.Column = 3 Then
ActiveSheet.Unprotect "Test"
With Cells(Target.Row, Target.Column)
.Offset(0, 5) = User & Format(Date, "dd.MM.yyyy | ") & Format(Time, "hh:mm")
' elseIf Target.Column = 11 Then
'
' ActiveSheet.Unprotect "Test"
' With Cells(Target.Row, Target.Column)
' .Offset(0, 2) = User & Format(Date, "dd.MM.yyyy | ") & Format(Time, "hh:mm")
End With
If Schutz Then
ActiveSheet.Protect Password:="Test"
End If
End If
End Sub
Bei dem elseif kommt dann immer die Meldung "Else ohne If"....
Ich versteh aber ehrlich gesagt nicht wirklich wieso...
Vielen Dank schonmal im Voraus
Gruß Jens