Dokumentation von Eingaben in Zelle
28.11.2016 22:47:58
Eingaben
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
Zudem eine weitere Tabelle als "Historie" benennen.
Ich hoffe mir kann jemand weiterhelfen.
Vielen Dank im Voraus
Michael
Anzeige