If wsProtokoll Is Nothing Then Set wsProtokoll = Sheets("Protokoll")
With wsProtokoll.Cells(65536, 1).End(xlUp).Offset(1)
.Value = ActiveSheet.Name
.Offset(0, 1) = Target.Address
Nun wird bei der Zelle .Offset (0,1) =Target.Adress ja die Zelle in der Etwas geändert wurde angegeben.
Nun hätte ich aber gerne, dass die Überschrift der Spalte die in Zeile 3 steht z.B.: postalische Anschrift
und die zahl die sich in der ersten Spalte befinden (ist eine fortlaufende Nummer) als "Änderungsort" angegeben wird.
Also so sprich dass da dann steht: "postalische Anschrift bei Lfd.Nr.3 geändert".
Würde mich freuen wenn mir einer hier weiter helfen kann, ich zerbrech mir seit Tagen den Kopf, dies wäre nun das fehlende
itüpfelchen um mein VBA Code zu komplettieren.
Ich danke jetzt schon für eure Hilfe!
Grüße Matthias