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:
1000		 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.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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