Frage Changeereigniss

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Range("B4:B100"), Target) Is Nothing Then If Target.Cells.Count > 1 Then Application.EnableEvents = True: Exit Sub Target.Offset(0, 2).NumberFormat = "dd.mm.yyyy hh:mm:ss" Target.Offset(0, 6) = Now Target.Offset(0, 7) = Environ("UserName") End If Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
verwende kein EXTIT SUB, sondern eine saubere vollständige IF-Struktur.
diese lässt sich dann problemlos erweitern und ergänzen.
desweitern sollte man die Events immer da Ein- und Ausschalten wo es notwendig ist und nicht irgendwo im Code.
das was du da hast, ist Quick'n'Dirty, besser so:
hier kannst du weitere Abfragen für andere Zellbereiche einfach am Ende ergänzen;

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B4:B100"), Target) Is Nothing Then
If Target.Cells.Count = 1 Then
Application.EnableEvents = False
Target.Offset(0, 2).NumberFormat = "dd.mm.yyyy hh:mm:ss"
Target.Offset(0, 6) = Now
Target.Offset(0, 7) = Environ("UserName")
Application.EnableEvents = True
End If
End If
End Sub

fürs löschen brauchst du eine weitere Abfrage:

if Target.Formula = "" then
Target.offset().ClearContents
Else
Traget.offst().Value = Now
end if

wenn du das für mehrere Blätter brauchst, muss der Code ins entsprechende Eventmakro im Modul "DieseArbeitsmappe" ins Makro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub

dann gilt der Code für alle Blätter der Datei, ohne dass du ihn wiederholen musst.
Um bestimmte Blätter wieder auszuschließen, stellt dir Das Makro die Variable SH bereit mit dem aktuellen Worksheet, die kannst du auswerten und festlegen, für welche Blätter das Makro ausgeführt werden soll.
Auch hier gilt: kein Exit Sub, sondern vollständige Strukturen, diese lassen sich einfacher erweitern.

Select Case SH.Name
Case "Tabelle1", "Tabelle3", "Tabelle5"
hier der Code der auf Tabelle1, -3 und -5 ausgeführt werden soll
Case "Tabelle2"
hier der Code der auf Tabelle2 ausgeführt werden soll
Case Else
hier der Code der auf allen anderen Tabellenblättern ausgeführt werden soll
End Select

Neben ENVIRON("UserName") gibt's noch APPLICATION.UserName, das ist der Name den du suchst.
Gruß Daniel

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Select Case Sh.Name Case "Tabelle1", "Tabelle3", "Tabelle5" If Target.Count > 1 Then Exit Sub If Not Intersect(Range("B4:B100,I4:K100"), Target) Is Nothing Then Select Case Target.Column Case 2 Cells(Target.Row, "C") = IIf(Target "", Now, "") Cells(Target.Row, "D") = IIf(Target "", Application.UserName, "") Case 9, 10, 11 Cells(Target.Row, "L") = IIf(Target "", Now, "") Cells(Target.Row, "M") = IIf(Target "", Application.UserName, "") Case Else End Select End If Case Else End Select End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread