Ausnahme für Macrostart

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'If Target.Address = Target.EntireRow.Address Then _ 'MsgBox "Es sind " & Target.Rows.Count & " Zeilen selektiert", , Target.Address Dim intZeile As Integer If Sh.Name = "Änderungen" Then Exit Sub If sValue Target.Value Then With Worksheets("Änderungen") Application.EnableEvents = False intZeile = .Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(intZeile, 1).Value = Sh.Name .Cells(intZeile, 2).Value = Sh.Cells(Target.Row, 1) .Cells(intZeile, 3).Value = Sh.Cells(1, Target.Column) .Cells(intZeile, 4).Value = sValue .Cells(intZeile, 5).Value = Target.Value .Cells(intZeile, 6).Value = Environ("username") .Cells(intZeile, 7).Value = Date .Cells(intZeile, 8).Value = Time .Cells(intZeile, 9).Value = Target.Address Application.EnableEvents = True End With End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das Problem ist, das viele bei solchen Aufgabenstellungen übersehen, dass TARGET auch mal mehr als eine Zelle sein kann.
In diesem Falle wird dann Target.value zu einem Array, welches nicht wie ein Einzelwert behandelt werden darf.
Man benötigt hier dann eine Schleife über die Zellen des Arrays.
Ebenso musst du beim Speichern des Alt-Wertes im Selection-Change-Event dies berücksichtigen.
ein Code hierfür könnte so aussehen.

Option Explicit
Dim WertAlt As Object
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
Dim intZeile As Integer
If Sh.Name = "Änderungen" Then Exit Sub
Application.EnableEvents = False
For Each Zelle In Target
If WertAlt(Zelle.Address)  Zelle.Value Then
With Worksheets("Änderungen")
intZeile = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(intZeile, 1).Value = Sh.Name
.Cells(intZeile, 2).Value = Sh.Cells(Zelle.Row, 1)
.Cells(intZeile, 3).Value = Sh.Cells(1, Zelle.Column)
.Cells(intZeile, 4).Value = WertAlt(Zelle.Address)
.Cells(intZeile, 5).Value = Zelle.Value
.Cells(intZeile, 6).Value = Environ("username")
.Cells(intZeile, 7).Value = Date
.Cells(intZeile, 8).Value = Time
.Cells(intZeile, 9).Value = Zelle.Address
End With
End If
Next
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
Set WertAlt = CreateObject("Scripting.dictionary")
For Each Zelle In Target
Select Case VarType(Zelle.Value)
Case vbEmpty
Case Else: WertAlt(Zelle.Address) = Zelle.Value
End Select
Next
End Sub

Beachte, dass du jetzt nicht mehr alle Zellen selektieren solltest, denn dass sind dann zu viele Zellen und die Schleife läuft ne Weile.
Gruß Daniel

Hallo Uwe und Daniel,
erstmal besten dank für die schnelle Antwort.
Das sValue kommt von der Ausnahme
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'If Sh.Name "Tabelle6" Then sValue = ActiveCell.Value
dies hatte ich leider nicht mit geschrieben. Sorry.
Sollte ich langsam mal gelernt haben anbei eine Beispieltabelle.
Daniel dein Vorschlag habe ich da schon eingebaut.
Das tolle ist die Fehlermeldung ist weg aber leider wird auch nichts mehr protokolliert. Da ist bestimmt noch was foul.
Könnt ihr euch dies nochmal anschauen?
https://www.herber.de/bbs/user/113731.xlsm
liebe grüsse thomas
und sorry das ich erst jetzt antworte es ging einfach nicht früher

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread