Variabler Verweis auf andere Zelle
17.12.2020 08:57:52
Chris0102
ich stehe vor folgenden Problem.
Ich habe 2 Übersichten mit einmal Teilnehmern und Lehrgänge.
Als drittes Arbeitsblatt habe ich ein Änderungsjornal.
Nun möchte ich in diesen Änderungsjornal den jeweiligen Verweis auf den Lehrgang der sich geändert hat.
Dieser steht immer in der Spalte A,
Hier einmal das Änderungsjornal:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
Dim AlterWert As Variant, NeuerWert As Variant
Dim rngNeuSel As Range
Select Case Sh.Name
Case "Teilnehmer", "Lehrgangsplanung"
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Sh.Range("A1:Q550")) Is Nothing Then Exit Sub
Application.EnableEvents = False
NeuerWert = Target.Value
Set rngNeuSel = Selection
Application.Undo
AlterWert = Target.Value
Target.Value = NeuerWert
On Error Resume Next
rngNeuSel.Activate
On Error GoTo 0
With Sheets("Änderungsjornal")
ErsteFreieZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Sh.Name
.Cells(ErsteFreieZeile, 2) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 3) = Target.Value
.Cells(ErsteFreieZeile, 4) = AlterWert
.Cells(ErsteFreieZeile, 5) = Time
.Cells(ErsteFreieZeile, 6) = Date
.Cells(ErsteFreieZeile, 7) = Environ("username")
.Cells(ErsteFreieZeile, 8) =
End With
Application.EnableEvents = True
End Select
End Sub
Anzeige