Folgendes Problem:
ich brauche zu einer Tabelle ein Änderungsprotokoll.
Mittels 2 Nachrichten aus dem Archiv hier hab ich es auch geschafft, klappt wunderbar.
Nur muss er anstelle "E19" im Änderungsprotokoll die Spalten- und Zeilenbezeichnung angeben (Die Bezeichung steht jeweils in der Spalte A und B; die Kopfbezeichnung in der Zeile 2).
Für die Reihe hab ich es auch geschafft...Mir fehlt zum Glück noch die Kopfbezeichnung auszulesen - also wenn Zelle E19 geändert wird das was in E2 steht, wenn Zelle K7 geändert wird das was in K2 steht etc...
Den von hier "geklauten" zusammengezimmerten Code ist mal angefügt.
Danke !
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNew As Variant, vOld As Variant
Dim iRow As Integer
If Intersect(Target, Range("C4:BY35")) Is Nothing Then Exit Sub
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Application.Undo
vOld = Target.Value
Target.Value = vNew
With Worksheets("Protokoll")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1).Value = Tabelle1.Cells(Target.Row, 1)
.Cells(iRow, 2).Value = Tabelle1.Cells(Target.Row, 2)
.Cells(iRow, 4).Value = vOld
.Cells(iRow, 5).Value = vNew
.Cells(iRow, 6).Value = Date
.Cells(iRow, 7).Value = Application.UserName
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub