Hallo zusammen,
ich versuche momentan bei Änderungen im Zellbereich A - AD neben AE und AF das Datum mit Uhrzeit und die Username im anzeigen zu lassen. Sprich bei jeder Änderung innerhalb einer Zeile soll dies unter AE und AF angezeigt werden. Leider bekomme ich immer einen Fehler "nicht genügend stabelspeicher..."
Hat jemand eine Idee woran es liegt? In dem Bereich sind teils Formeln hinterlegt.
Private Sub Worksheet_Change(ByVal Target As Range)
Set rngBereich = Range(Cells(Target.Row, 1), Cells(Target.Row, 28))
If Not Intersect(rngBereich, Target) Is Nothing Then
Cells(Target.Row, 29).Value = Now
Cells(Target.Row, 30).Value = Environ("username")
End If
'''Freischaltung PB'''
ActiveSheet.Unprotect
Select Case Target.Column
Case "6"
Select Case Target.Value
Case ""
Rows(Target.Row).Locked = True
Range("F" & Target.Row).Locked = False
Case "PB"
Rows(Target.Row).Locked = True
Range("A" & Target.Row).Locked = False
Range("B" & Target.Row).Locked = False
Range("C" & Target.Row).Locked = False
Range("F" & Target.Row).Locked = False
Range("E" & Target.Row).Locked = False
Range("M" & Target.Row).Locked = False
Case "LV"
Rows(Target.Row).Locked = True
Range("F" & Target.Row).Locked = False
Range("Q" & Target.Row).Locked = False
Case "V"
Rows(Target.Row).Locked = True
Range("F" & Target.Row).Locked = False
Range("R" & Target.Row).Locked = False
Case "A"
Rows(Target.Row).Locked = True
Range("F" & Target.Row).Locked = False
Range("S" & Target.Row).Locked = False
Range("T" & Target.Row).Locked = False
Range("U" & Target.Row).Locked = False
Range("Z" & Target.Row).Locked = False
Case "BA"
Rows(Target.Row).Locked = True
Range("F" & Target.Row).Locked = False
Range("Z" & Target.Row).Locked = False
Case "SR"
Rows(Target.Row).Locked = True
Range("F" & Target.Row).Locked = False
Range("Z" & Target.Row).Locked = False
End Select
Case Else
End Select
ActiveSheet.Protect
End Sub
Vielen Dank vorab für eure Hilfe.
|