VBA-Hilfe
28.01.2015 13:16:22
Jgi
habe ein kleines Problem mit dem Zusammenführen von
2x Worksheet_Change(ByVal Target As Range)
Jeweils Einzeln funktionieren sie.
In einer Funktion wird eine Änderung in der jeweiligen Zeile mit Datum/Uhrzeit/User in Spalte "T"versehen.
In der anderen wird bei Eintrag in Zelle "B" die Zelle anschließend schreibgeschützt.
Sobald ich beide Funktionen zusammen in einem Tabellenblatt ausführen will
funktioniert nur die Zweite.?
Hier die Funktion:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A:O"), Target) Is Nothing Then
On Error GoTo EndeSub
Application.EnableEvents = False
Range("T" & Target.Row) = Format(Now, "DD.MM.YYYY hh:mm ") & Application.UserName
End If
EndeSub:
Application.EnableEvents = True
If Target.Column = 2 Then 'Spalte B
If Target.Value "" Then
ActiveSheet.Unprotect "Password"
Target.Locked = True
ActiveSheet.Protect Password:="Password", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, _
AllowFormattingCells:="", AllowFormattingColumns:="", AllowFormattingRows:=""
End If
End If
End Sub
Was mache ich falsch?Gruß
Forum_Joe