Private Sub Workbook_Open()
Worksheets("Auswertung").Activate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim lRow As Long
If Sh.Name > "Auswertung" Then
With Worksheets("Auswertung")
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(lRow + 1, 1) = Sh.Name
.Cells(lRow + 1, 2) = Now
.Cells(lRow + 1, 3) = "K"
End With
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim lRow As Long
If Sh.Name > "Auswertung" Then
With Worksheets("Auswertung")
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(lRow + 1, 1) = Sh.Name
.Cells(lRow + 1, 2) = Now
.Cells(lRow + 1, 3) = "G"
End With
End If
End SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Benutzer As String, LR As Long, i As Long, TBU As Worksheet, TB As Worksheet
Set TBU = Sheets("Übersicht")
With TBU
If Sh.Name > .Name Then
Benutzer = Environ("Username")
.Rows(2).Insert xlDown
.Cells(2, 1) = Benutzer
.Cells(2, 2) = Sh.Name
.Cells(2, 3) = "A"
.Cells(2, 4) = Format(Now, "YYYY.MM.DD hh:mm:ss")
End If
End With
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim Benutzer As String, LR As Long, i As Long, TBU As Worksheet, TB As Worksheet
Set TBU = Sheets("Übersicht")
With TBU
If Sh.Name > .Name Then
Benutzer = Environ("Username")
.Rows(2).Insert xlDown
.Cells(2, 1) = Benutzer
.Cells(2, 2) = Sh.Name
.Cells(2, 3) = "D"
.Cells(2, 4) = Format(Now, "YYYY.MM.DD hh:mm:ss")
.Cells(2, 5) = CDate(.Cells(2, 4)) - CDate(.Cells(3, 4))
End If
End With
End Sub| Arbeitsblatt mit dem Namen 'Übersicht' | |||||
| A | B | C | D | E | |
| 1 | User | Blatt | Aktiviert / Deaktiviert | Zeitstempel | Diff |
| Arbeitsblatt mit dem Namen 'Übersicht' | |||||
| A | B | C | D | E | |
| 1 | User | Blatt | Aktiviert / Deaktiviert | Zeitstempel | Diff |
| 2 | UweD | Tabelle1 | D | 2025.03.13 16:14:06 | 00:00:01 |
| 3 | UweD | Tabelle1 | A | 2025.03.13 16:14:05 | |
| 4 | UweD | Tabelle3 | D | 2025.03.13 16:14:05 | 00:00:04 |
| 5 | UweD | Tabelle3 | A | 2025.03.13 16:14:01 | |
| 6 | UweD | Tabelle1 | D | 2025.03.13 16:14:01 | 00:00:07 |
| 7 | UweD | Tabelle1 | A | 2025.03.13 16:13:54 | |
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Übersicht")
If Sh.Name > .Name Then
.Rows(2).Insert xlDown
.Cells(2, 1) = Environ("Username")
.Cells(2, 2) = Sh.Name
.Cells(2, 3) = "A"
.Cells(2, 4) = Format(Now, "YYYY.MM.DD hh:mm:ss")
End If
End With
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
With Sheets("Übersicht")
If Sh.Name > .Name Then
.Rows(2).Insert xlDown
.Cells(2, 1) = Environ("Username")
.Cells(2, 2) = Sh.Name
.Cells(2, 3) = "D"
.Cells(2, 4) = Format(Now, "YYYY.MM.DD hh:mm:ss")
.Cells(2, 5) = CDate(.Cells(2, 4)) - CDate(.Cells(3, 4))
End If
End With
End Sub
