Zelleninhalt ändern, wenn Zelleninhalt sich ändert
22.08.2016 11:06:09
Swoopo
ich möchte wenn in einem bestimmten bereich ein Zellenwert geändert wird, dass dann automatisch bestimmte werte in andere Zellen geschrieben werden.
Mein Ansatz ist bis jetzt folgender:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("ArticleNr")) Is Nothing Then
Tabelle7.Range("Title").Cells(2).Value = Tabelle4.Range("Title1").Cells(4).Value
Tabelle7.Range("Unit").Cells(3).Value = Tabelle4.Range("Unit").Cells(7).Value
End If
End Sub
Nur hab ich das Problem, wenn ich den ersten wert in Tabelle7 ändere, dass das Worksheet_change Event dann direkt wieder aufgerufen wird und somit eine Schleife erzeugt wird.
Gruß Swoopo