Keine Änderungshistorie bei Eingabe über Userform

Private Sub Worksheet_Change(ByVal Target As Range) Dim vNew As Variant, vOld As Variant Dim iRow As Integer If Intersect(Target, Range("A2:BB20000")) 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") Worksheets("Protokoll").Unprotect "" iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(iRow, 1).Value = Target.Address(False, False) .Cells(iRow, 2).Value = vOld .Cells(iRow, 3).Value = vNew .Cells(iRow, 4).Value = Date .Cells(iRow, 5).Value = Time .Cells(iRow, 6).Value = UserName End With ERRORHANDLER: Application.EnableEvents = True Worksheets("Protokoll").Protect "" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

vNew = Target.Value Application.EnableEvents = False On Error GoTo ERRORHANDLER Application.Undo vOld = Target.Value Target.Value = vNew With Worksheets("Protokoll") Worksheets("Protokoll").Unprotect "" iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(iRow, 1).Value = Target.Address(False, False) .Cells(iRow, 2).Value = vOld .Cells(iRow, 3).Value = vNew .Cells(iRow, 4).Value = Date .Cells(iRow, 5).Value = Time .Cells(iRow, 6).Value = UserName End With ERRORHANDLER: Application.EnableEvents = True Worksheets("Protokoll").Protect ""

Sorry, dass ich nicht noch einmal auf mein Anliegen verwiesen habe...
Deswegen noch einmal vielleicht noch einmal zur Verdeutlichung:
Wenn ich etwas direkt in der Tabelle verändere - egal wo - dann wird das entsprechend in "Protokoll" festgehalten. Die Eingabe soll normalerweise aber nur über die Userform erfolgen.
Wenn ich über die Textboxes in der Userform Daten eingebe, werden diese Änderungen aber nicht festgehalten.
Die Textboxes sind mit der Tabelle einzeln verknüpft (z.B. Textbox1 schreibt in Zelle A1). Würde dem Protokoll-Code jetzt die Adresse von bspw. der Textbox1 zugeordnet, dann wird doch ignoriert, wenn in der Textbox1 keine Änderung gemacht wird, aber vllt. in der Textbox2.
Ich möchte eigentlich jede Änderung festhalten (auch wenn jemand ohne die Userform in der Tabelle etwas ändert).

Private Sub CommandButton1_Click() Dim z As Integer z = Range("A65565").End(xlUp).Row + 1 Cells(z, 1) = TextBox1 Cells(z, 2) = TextBox2 Cells(z, 3) = TextBox3 With Sheets("Protokoll") With .Cells(Rows.Count, 1).End(xlUp).Offset(1) .Offset(, 0) = TextBox1 .Offset(, 1) = TextBox2 .Offset(, 2) = TextBox3 .Offset(, 3) = Date .Offset(, 4) = Time End With End With Unload Me End Sub

Hallo Bolle,
die Undo-Funktion funktioniert vom Userform-Code aus leider nicht.
Man muss hier die Änderung der Zellinhalte etwas anders verfolgen.
Der Code in deinem Userform muss dann wie folgt aussehen.
Wenn du über das Userform Zahlenwerte oder Datumswerte in die Tabelle eintragen willst, dann müssen die Text-Inhalte der Textboxen mit den Conversionsfunktionen in ein passendes Format umgewandelt werden bevor sie in die Tabelle eingetragen werden. Siehe auskommentierte Beispiele im Code.
Die Inhalte stehen sonst ggf. als Text in den Zellen.
Noch ein Hinweis: Variablen für Tabellenzeilen sollten als Long deklariert werden, nicht als Integer.
Bei Tabellen im neuen (Excel 2007 und neuer) ateiformat haben mehr Zeilen als mit Intervariablen angesprochen werden können.
Gruß
Franz

Private Sub CommandButton1_Click()
Dim z As Long
z = Range("A65565").End(xlUp).Row + 1
With ActiveSheet
Call prcProtokoll(rngZelle:=.Cells(z, 1), vNew:=Me.TextBox1) 'Text
Call prcProtokoll(rngZelle:=.Cells(z, 2), vNew:=Me.TextBox2) 'Text
Call prcProtokoll(rngZelle:=.Cells(z, 3), vNew:=Me.TextBox3) 'Text
'    Call prcProtokoll(rngZelle:=.Cells(z, 2), vNew:=CDbl(Me.TextBox2)) 'Zahlinhalt
'    Call prcProtokoll(rngZelle:=.Cells(z, 3), vNew:=CDate(Me.TextBox3)) 'Datum
End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub prcProtokoll(rngZelle As Range, ByVal vNew As Variant)
Dim iRow As Long
Dim vOld As Variant
If Intersect(rngZelle, rngZelle.Parent.Range("A2:BB20000")) Is Nothing Then Exit Sub
'    Username = VBA.Environ("username")  'nicht unbedingt erforderlich wenn Public-Variable  _
schon gefüllt.
Application.ScreenUpdating = False
Application.EnableEvents = False
vOld = rngZelle.Value    'alten Wert in Zelle merken
rngZelle.Value = vNew    'neuen Wert in Zelle schreiben
vNew = rngZelle.Value    'neuen Wert wieder aus Zelle lesen (Excel macht manchmal eigenstä _
ndige Wertkonversionen)
If vOld  vNew Then     'alten und neuen Wert vergleichen
With Worksheets("Protokoll")
.Unprotect ""
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1).Value = rngZelle.Address(False, False)
.Cells(iRow, 2).Value = vOld
.Cells(iRow, 3).Value = vNew
.Cells(iRow, 4).Value = Date
.Cells(iRow, 5).Value = Time
.Cells(iRow, 6).Value = UserName
.Protect ""
End With
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Beliebteste Forumthreads (12 Monate)

Keine Änderungshistorie bei Eingabe über Userform

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

270 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Keine Änderungshistorie bei Eingabe über Userform

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

270 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread