Einfügen von Wert bei Selection Change
25.11.2022 10:46:24
Wert
Ich habe folgendes Problem:
Über das Ereignis SelectionChange soll in der Zelle "D8:G8" die Zahl 1 eingetragen werden.
Das soll aber nur einmal passieren, wenn die Zelle "D6:G6" auf "Freies Teil" geändert wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$6$" And _
Range("D6") = "Freies Teil" Then
Range("D8:G8") = 1
End If
End Sub
Wäre über jegliche Hilfe sehr dankbar!
Nikl