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.