Thema Datum  Von Nutzer Rating
Antwort
Rot Datum und Username anzeigen lassen
06.12.2021 16:41:31 CrackyDuck
NotSolved
06.12.2021 17:20:33 Mackie
NotSolved
06.12.2021 19:38:06 volti
NotSolved

Ansicht des Beitrags:
Von:
CrackyDuck
Datum:
06.12.2021 16:41:31
Views:
151
Rating: Antwort:
  Ja
Thema:
Datum und Username anzeigen lassen

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datum und Username anzeigen lassen
06.12.2021 16:41:31 CrackyDuck
NotSolved
06.12.2021 17:20:33 Mackie
NotSolved
06.12.2021 19:38:06 volti
NotSolved