Private Sub Worksheet_Change(ByVal Target As Range)
spalte = ActiveSheet.UsedRange.Rows.Count
If Not Application.Intersect(Target, Range("A5:A" & spalte)) Is Nothing Then
ActiveSheet.Range("A2").Value = Now
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Dim Z
' Bereich der Wirksamkeit
Set Bereich = Range("B1:D3000")
Application.EnableEvents = False
' überprüfen ob mehr als eine Zelle markiert $A$1:$B$3
' wurde mehere Zellen markiert ist wert größer 0
If InStr(Target.Address, ":") = 0 Then
If Intersect(Target, Bereich) Is Nothing Then GoTo Ende ' Abbruch, wenn Aktion nicht im Zielbereich
Cells(Target.Row, 1) = "Geändert"
Else
' es wurden mehere Zellen markiert
For Each Z In Selection
' überprüfen ob Zelle im vorgegebenen Bereich
If Intersect(Z, Bereich) Is Nothing Then
Else
Cells(Z.Row, 1) = "Geändert"
End If
Next Z
End If
Ende:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Column
Case 2 To 4:
Cells(Target.Row, 1) = "geändert"
Case Else:
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Dim Z
' Bereich der Wirksamkeit
Set Bereich = Range("B1:D3000")
Application.EnableEvents = False
' überprüfen ob mehr als eine Zelle markiert $A$1:$B$3
' wurde mehere Zellen markiert ist wert größer 0
If InStr(Target.Address, ":") = 0 Then
If Intersect(Target, Bereich) Is Nothing Then GoTo Ende ' Abbruch, wenn Aktion nicht im Zielbereich
If Target.Row \ 3 = Target.Row / 3 Then Cells(Target.Row, 1) = "Geändert"
Else
' es wurden mehere Zellen markiert
For Each Z In Selection
' überprüfen ob Zelle im vorgegebenen Bereich
If Intersect(Z, Bereich) Is Nothing Then
Else
If Z.Row \ 3 = Z.Row / 3 Then Cells(Z.Row, 1) = "Geändert"
End If
Next Z
End If
Ende:
Application.EnableEvents = True
End Sub