ich habe ein Makro mit dem alle Eingaben in einer Tabelle auf einem weiteren Tabellenblatt in der selben Excel-Datei dokumentiert werden.
Es funktioniert auch soweit ganz gut. Allerdings nur wenn ich ausschließlich 1 Zelle markiert habe.
Sobald ich mehrere Zellen gleichzeigig markiere bekomme ich folgende Fehlermeldung:
Laufzeitfehler ´13´:
Typen unverträglich
Folgende Zeile ist im Debugger gelb markiert:
If SaveWert > "" And Target.Cells SaveWert Then
Hier das Makro:
Option Explicit
Dim SaveWert As Variant, SaveSheet As String, firstEmptyRow As Long, SaveAddress As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If SaveWert > "" And Target.Cells SaveWert Then
firstEmptyRow = Sheets("Historie").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Historie").Cells(firstEmptyRow, 1) = ActiveSheet.Name
Sheets("Historie").Cells(firstEmptyRow, 2) = SaveWert
Sheets("Historie").Cells(firstEmptyRow, 3) = SaveAddress
Sheets("Historie").Cells(firstEmptyRow, 4) = Now & "_" & Environ("Username")
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
SaveWert = Target.Cells
SaveSheet = ActiveSheet.Name
SaveAddress = Target.Cells.Address
End Sub
Einfach in die Tabelle, die Überwacht werden soll im VBA Projekt einfügen.Zudem eine weitere Tabelle als "Historie" benennen.
Ich hoffe mir kann jemand weiterhelfen.
Vielen Dank im Voraus
Michael