AW: "= oder Dropdown"
15.07.2016 11:37:01
Oberschlumpf
Hi Jörg,
hier bin ich - endlich! - wieder.
Entschuldige bitte, dass ich so lange hab auf mich warten lassen.
Zum Einen hatte ich die letzten Tage wirklich viel um die Ohren.
Zum Anderen hab ich aber trotzdem immer wieder mal versucht, eine Lösung für dich zu finden.
Nur ich hatte irgdwie n Brett vorm Kopp. Ich hatte es einfach nicht geschafft, das Ganze so zu programmieren, dass - nicht alle Zellen - sondern nur die Zellen unterhalb der Zelle geändert werden, in der du einen neuen Wert einträgst.
Aber jetzt hab ich endlich die Lösung gefunden.
Probier mal das hier:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lrgSel As Range, lrgAll As Range
If InStr(Target.Address, ":") > 0 Or _
InStr(Target.Address, ";") > 0 Then Exit Sub
Set lrgAll = Range("G17,G24,G31")
If Not Intersect(Target, lrgAll) Is Nothing Then
Application.EnableEvents = False
For Each lrgSel In lrgAll
If lrgSel.Row > Target.Row Then
lrgSel.Value = Target.Value
End If
Next
Application.EnableEvents = True
End If
Set lrgAll = Nothing
End Sub
Trage in diese Zeile
Set lrgAll = Range("G17,G24,G31")
alle Zellen ein, die vom Code überwacht werden sollen.
Also ab G31 fortlaufend, immer mit Komma getrennt.
Mein Code prüft, ob die Zeilennummer der jeweiligen Zelle größer ist, als die Zeilennummer in der Zelle, in der du den Wert änderst.
Bsp:
Du änderst in G17 den Wert.
Nun stellt der Code fest, dass 24 + 31 größer ist als 17.
Es werden also alle Zellwerte geändert.
Du änderst in G24 den Wert.
Nun stellt der Code fest, dass nur 31 größer ist als 24 und es wird nur der Wert in G31 geändert.
Der Wert in G17 wird nicht geändert.
Konnte ich denn jetzt helfen?
Ciao
Thorsten