ich habe in meinem Makro einen Code hinterlegt, dass sämtliche Änderungen mit geschrieben werden sollen. Wenn ich jetzt aber zwei oder mehr Zellen gleichzeitig markiere und den Inhalt löschen will bekomme ich die Meldung dass die Typen unverträglich sind.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = True
Dim Benutzer As String
Dim Rechner As String
Dim Logfile As String
Dim Datum As String
Dim Uhrzeit As String
Logfile = "\\marseille\maschinen\Kalkulation\Aktuell\VBA-Doku.txt"
Benutzer = atCNames(1)
Rechner = atCNames(2)
Datum = Format(Now, "dd.mm.yyyy")
Uhrzeit = Format(Now, "HH:MM")
Dateiname = ActiveWorkbook.Name
Open Logfile For Append As #1
Print #1, Datum & vbTab & Uhrzeit & vbTab & Rechner & vbTab & Benutzer & vbTab & ActiveWorkbook. _
_
Path & "\" & Dateiname & vbTab & ActiveWorkbook.ActiveSheet.Name & vbTab & Target.Address & _
vbTab & "Eingabe war: " & Target.Formula
Close #1
End Sub
Ich versuche einen On Error GoTo End Sub Befehl einzubauen, klappt aber nicht.
Weiß jemand Rat?