mit diesen Makro ergänze ich Gültigkeitsliste, es funktioniert soweit
aber wenn NEIN aus BOX angeklickt, spring Cursor eine Zeile nach unten und Zellinhalt bleibt bestehen ... Bei NEIN sollte eine Zeile nach oben und
Inhalt gelöscht werden.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WsI As Worksheet
Dim C As Byte
Set WsI = Worksheets("Schutzziel")
C = Target.Column
On Error GoTo Ende:
With WsI
If C = 2 And Target <> "" Then
If MsgBox(Chr(10) & Chr(10) & _
" Es wurde ein neuer Eintrag erkannt , der bisher " & Chr(10) & _
" noch nicht im Gültigkeitsbereich definiert wurde ! " & Chr(10) & _
" " & Chr(10) & _
" ----------------------------------------------------------- " & Chr(10) & _
" " & Chr(10) & _
" Wollen Sie den Eintrag [ " & Target & " ] " & Chr(10) & _
" " & Chr(10) & _
" nun in den Gültigkeitsbereich übernehmen ? " & Chr(10) & Chr(10) & Chr(10) _
, 36, "Neuer Eintrag erkannt ...") = vbNo Then Exit Sub
.Range("B3:B203").Sort .Range("B3"), xlAscending
End If
End With
Ende:
End Sub
Danke für Eure Hilfe, Code ist aus Archiv
gruss helena