Zellen / Spalten auf Wertänderung prüfen

Hallo zusammen
Ich möcgte z.B. eine Änderung einer Zelle (F5) überwachen und bei Änderung dann einen Wert in eine weitere Zelle (C5) schreiben. Dazu habe ich mir folgendes Makro erstellt:
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
Range("C5").Value = "changed"
End If
End Sub

Das funktioniert soweit auch. Nun habe ich aber in meinem File ca. 500 Zeilen und ca. 15 Spalten die ich überwachen sollte. Was ich vermeiden möchte ist, dass ich für jede Zelle ein "IF" Statement schreiben muss.
Nun meine Frage:
A; Ist es möglich, in der Target.Adress einen Bereich, nicht nur eine Zelle anzugeben? "$F$5:$H$5" geht irgendwie nicht.
B; Wie könnt man das Makro für alle Zeilen nutzen, also z.B. wird in der Zeile 5 im Bereich F bis H geändert, soll die Änderung in C5 eingetragen werden, wird in der Zeile 10 im Bereich F bis H geändert, soll die Änderung in C10 eingetragen werden?
Besten Dank für eure Hilfe
Lars

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo dan
also ich vesuch es nochmals.
Zur Anschaung habe ich dir noch das File in den Upload gelegt.
https://www.herber.de/bbs/user/60468.xls
Also ich möchte Änderungen in allen Zellen der Spalten A,B, D,E,F ab der Reihe 5 überwachen, bis zur letzten Reihe (65536). Hat eine Änderung stattgefunden, möchte ich, dass in der Spalte C der aktuellen Reihe der String "changed" geschrieben wird. Beispiel, ich ändere in der Zelle A5, dann schreibt es mir in C5 "changed", ich ändere in E7, dann schreibt es mir in C7 "changed".
Das möchte ich dann verwenden um weitere Aktionen in Abhängigkeit der Spalte C auszulösen.
Das Makro unten macht eigentlich genau das was was ich will, nur, dass es mir wenn ich Zellenbereiche markiere (die auserhalb dieser Bereiche liegen) mir überall mit dem Offset die "changed" Strings einträgt.


Private Sub Worksheet_Change(ByVal Target As Range)
'Spalte A
If (Target.Column = 1) Then
Target.Offset(0, 2).Value = "changed"
'Spalte B
ElseIf (Target.Column = 2) Then
Target.Offset(0, 1).Value = "changed"
'Spalte D
ElseIf (Target.Column = 4) Then
Target.Offset(0, -1).Value = "changed"
'Spalte E
ElseIf (Target.Column = 5) Then
Target.Offset(0, -2).Value = "changed"
'Spalte F
ElseIf (Target.Column = 6) Then
Target.Offset(0, -3).Value = "changed"
End If
End Sub

Besten Dank für Deine Mühe
Gruss
lars

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Union(Columns("A:B"), Columns("D:F"), Rows("5:65536"))) Is Nothing _ Then Cells(Target.Row, "C") = "Changed" End If Application.EnableEvents = True End Sub

Private Sub WriteChanged(ByRef targetedColumn As Range, ByVal columnOffset As Integer) Dim c As Range Application.EnableEvents = False For Each c In targetedColumn.Cells c.Offset(0, columnOffset).Value = "changed" Next c Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Zellen / Spalten auf Wertänderung prüfen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen / Spalten auf Wertänderung prüfen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread