Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro für Datum u user stürzt nach neuer Zeile ab

Makro für Datum u user stürzt nach neuer Zeile ab
26.06.2017 09:58:44
Tobias
Hi,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW:
26.06.2017 10:01:45
Tobias
Dachte vllt hilft es in einem 2. Forum auch zu fragen...
AW:
26.06.2017 10:02:50
SF
Hola,
dann verlinke bitte deinen Themen gegenseitig.
Ansonsten entsteht unnötige Doppelarbeit.
Gruß,
steve1da
AW:
26.06.2017 10:03:57
Tobias
ah okay, danke
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige