Makro für Datum u user stürzt nach neuer Zeile ab
26.06.2017 09:58:44
Tobias
ich habe ein Makro zur Verfügung gestellt bekommen, welches dafür sorgt, dass wenn ich etwas in Spalte E ab Zeile 2 eintrage 4 Spalten weiter das Datum automatisch erscheint und 5 Zeilen weiter der Username. Das Makro läuft nicht als Modul. Ich habe es direkt über VBA zur Tabelle zugewiesen.
Nun ist das Problem, wenn ich eine Zeile einfüge, kommt eine Fehlermeldung und das Makro funktioniert nicht mehr. WEiß jemand wo der Fehler ist?
VG
Tobi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim Zeilen As String
Zeilen = Selection.Rows.Count
If Intersect(Target, Range("E2:E65536")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Zeilen = 1 Then
If Target.Value "" Then
If Target.Offset(0, 4).Value = "" Then
Target.Offset(0, 4).Value = Now
Target.Offset(0, 5).Value = Application.UserName
Else
End If
Else
Target.Offset(0, 4).Value = ""
Target.Offset(0, 4).Value = ""
Target.Offset(0, 5).Value = ""
End If
ElseIf Zeilen > 1 Then
For Each Zelle In Selection
Zelle.Offset(0, 4).Value = ""
Zelle.Offset(0, 4).Value = ""
Zelle.Offset(0, 5).Value = ""
Next Zelle
End If
Application.EnableEvents = True
End Sub
Anzeige