Veränderung einer Zelle VBA
Paul
ich stehe vor einer Herausforderung.
Bei jeglicher Veränderung in einer Zelle soll in einem seperaten Register einiges aufgezeichnet werden.
(z.B. Anwender, Dateiname, Registername, Datum,... usw.)
Dafür nutze ich folgenden VBA Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = _
Application.UserName & " " & ActiveWorkbook.Name & " " & _
ActiveSheet.Name & " " & Target.Address & " " & _
Date & " " & Format(Now, "HH:mm:ss") & " " & _
ActiveSheet.Cells(Target.Row, Target.Column)
End Sub
Wenn z.B. die Zelle A1 in Register Tabelle1 mit "Hallo" gefüllt wurde, wird folgender Eintrag in Register Tabelle2 generiert:
Paul Ereignisse fixieren.xls Tabelle1 $A$1 25.02.10 15:49:08 Halloo
Jetzt ändere ich die Zelle A1 nochmals und es wird ein neuer Eintrag in Register Tabelle2 generiert:
Paul Ereignisse fixieren.xls Tabelle1 $A$1 25.02.10 15:50:44 Hallo
Meine Frage ist folgende:
Wie muss ich den Code umschreiben, dass bevor ich die Zelle überschreibe eine Imputbox aufleuchtet, wo der Gurnd für die Änderung erfasst werden soll. Es soll dann folgender Eintrag in Register Tabelle2 generiert werden:
Paul Ereignisse fixieren.xls Tabelle1 $A$1 25.02.10 15:50:44 Hallo verschrieben
Ich bin mir sicher, dass mir jemand helfen kann?
Gruss
Paul