Hyperlink Protokoll
08.04.2022 13:27:39
markus
ich habe eine Arbeitsmappe, diese wird in einem Netzlaufwerkordner von mehreren Mitarbeitern genutzt.
Damit man nachvollziehen kann, was für Änderungen vom WEM und WANN auf welche Tabelle und Zelle durchgeführt worden sind,
habe ich eine Tabelle "Änderung-Protokoll", wo alle Änderungen protokolliert werden.
Das klappt auch so weit, nur hätte ich gerne einen Link innerhalb der Arbeitsmappe auf die Zelle wo Änderungen vorgenommen sind, damit man in der Tabelle "Änderung-Protokoll" nicht suchen muss.
In einer zusätzlichen Spalte z.B. I hätte ich gerne den ursprünglichen Wert gelistet "geändert 10000 auf 2000"
Vielen Dank im Voraus!
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngZeileFrei As Long
Dim rngZelle As Range
Select Case Sh.CodeName
Case "tbl_Start", "tbl_Zugang", "tbl_Protokoll" 'wird nicht dokumentiert
Case Else
For Each rngZelle In Target
With tbl_Protokoll
lngZeileFrei = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & lngZeileFrei).Value = Date
.Range("B" & lngZeileFrei).Value = Time
.Range("C" & lngZeileFrei).Value = Environ("username")
.Range("D" & lngZeileFrei).Value = Environ("computername")
.Range("E" & lngZeileFrei).Value = Sh.Name
.Range("F" & lngZeileFrei).Value = rngZelle.Address
.Range("G" & lngZeileFrei).Value = "'" & rngZelle.Formula
.Range("H" & lngZeileFrei).Value = Sh.Name& ""'!"" &"'" & rngZelle.Formula
' tbl_Protokoll.Hyperlink.Add Range("F" & lngZeileFrei), Address:="", _
' SubAddress:="'" & Sh.Name & "'!H2& lngZeileFrei", _
' TextToDisplay:="Klicken Sie hier, um auf die Zelle zu gelangen!"
End With
Next rngZelle
End Select
End Sub