Worksheet_Change Ereignis erweitern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target(1, 1).Column = 1 And Target(1, 1).Row > 1 Then Makro1 'nur eine Zelle geändert If Target.Cells.Count = 1 Then 'geänderte Zelle in Spalte 17 (Q) If Target.Column = 17 Then 'Zelle auf Wert 3 geändert If Target = 3 Then 'Bereich kopieren Cells(Target.Row, 10).Resize(1, 3).Copy 'Werte einfügen Cells(Target.Row, 1).Resize(1, 3).PasteSpecial Paste:=xlPasteValues End If End If End If End Sub

Hallo Fritz,
das macht die Sache leider deutlich komplizierter. Man müsste auf das Worksheet_Calculate-Ereignis ausweichen. Dort gibt's aber kein "Target", d.h. ich weiß nicht, welche Zellen sich geändert haben. Daher müsste man das Ganze z.B. so aufbauen, dass das Makro alle Zellen in Spalte Q abklappert und nachschaut, wo überall eine 3 drin ist. Dann schaut das Makro, ob in diesen Zeilen die Zellen der Spalten J-L mit den Zellen der Spalten A-C identisch sind, was bedeuten würde, dass diese Änderung auf 3 in Spalte Q bereits bearbeitet ist. In diesem Fall würde nichts weiter geschehen, ansonsten würden die Spalten J-L nach A-C kopiert werden.
Anmerkung: Man kann ja leider nicht einfach alle Zeilen mit 3 in Spalte Q bearbeiten, denn jedesmal wird dann durch das Kopieren nach Spalte A über das Worksheet_Change-Ereignis das Makro1 ausgeführt. Da ich nicht weiß, was in diesem Makro passiert, gehe ich sicherheitshalber mal davon aus, dass dieses Makro nicht ausgeführt werden darf, wenn der Wert in Q schon vorher auf 3 stand.
Daher Frage: Werden die Werte in den Spalten A-C nach dem Kopieren aufgrund von Spalte Q=3 nochmal verändert? Dann würde der oben beschriebene Weg nicht gehen, da er dann ja Zeilen, in denen schon vor dem Calculate-Ereignis eine 3 stand, nicht aufgrund des gleichen Inhalts in A-C bzw. J-L erkennen könnte.
Gruß Ingolf

Hallo Fritz,
nach deiner Beschreibung können wir das so machen, wie angedacht. Damit haben wir also zwei Ereignismakros. Eines für das Worksheet_Change-Ereignis und eines für das Worksheet_Calculate-Ereignis.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Column = 1 And Target(1, 1).Row > 1 Then Makro1
End Sub


Private Sub Worksheet_Calculate()
'Variable repräsentiert immer die aktuell bearbeitete Zelle
'im Bereich Q1:Q? (unterste belegte Zelle)
Dim rng As Range
'alle Zellen im Bereich Q1:Q? (unterste belegte Zelle) abklappern
For Each rng In Range(Cells(1, 17), Cells(Rows.Count, 17).End(xlUp))
'wenn Wert der Zelle = 3
If rng = 3 Then
'wenn eine der Zellen der Spalten A,B,C ungleich der
'entsprechenden Zelle in den Spalten J,K,L ist
If Cells(rng.Row, 1)  Cells(rng.Row, 10) Or _
Cells(rng.Row, 2)  Cells(rng.Row, 11) Or _
Cells(rng.Row, 3)  Cells(rng.Row, 12) Then
'Bereich kopieren
Cells(rng.Row, 10).Resize(1, 3).Copy
'Werte einfügen
Cells(rng.Row, 1).Resize(1, 3).PasteSpecial Paste:=xlPasteValues
End If
End If
'nächste Zelle in Q1:Q? (letzte belegte Zelle) bearbeiten
Next 'rng
End Sub

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Worksheet_Change Ereignis erweitern

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread