Ich habe eine Exel Datei aufgebaut welche im Hintergrund ein Protokoll erstellt bei gewissen feldeingaben. Jetzt hatte ich die Datei erweitert und wollte auch das Makro erweitern, sobald ich aber den Bezug im Marko anpasse kommt ein Fehler und ich verstehe nicht warum. Kann eventuell hier jemand helfen?
das Makro wäre wie folgt:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
If Target.Count > 1 Then Exit Sub
If Sh.Name = "Protokoll" Then Exit Sub
If Intersect(Target, Sh.Range("N8:Q550")) Is Nothing Then Exit Sub
With Sheets("Protokoll")
ErsteFreieZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Sh.Name
.Cells(ErsteFreieZeile, 2) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 4) = Target.Value
.Cells(ErsteFreieZeile, 5) = Date
.Cells(ErsteFreieZeile, 6) = Time
.Cells(ErsteFreieZeile, 7) = Environ("username")
End With
End Sub
--> sobald die Range angepasst wird funktioniert es nicht mehr.
vielen Dank
Flavio