Office: Dropdown Felder nur für Auswahl

Hallo,

ich habe in verschiedenen Zellen dropdown Möglichkeit.
zB: A1: Auswahl "ja" und "nein"
A2: Auswahl nur "ja"
Wie kann ich verhindern, dass "nein" aus Zelle A1 auf A2 geschrieben / kopiert werden kann?

VG
Foerbsen

 

schütze die Tabbele, Zellen geschützt.

 

Hallo Hajo

ja hab ich auch gedacht, aber dann kann man nichts eintragen ... also weder ja / nein

 

das habe ich dann wohl zu einfach gesehen.
Falls Du nur Nein verhindern willst?

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        If Target <> UCase("ja") Then Target = ""
    End If
End Sub

Gruß Hajo

 

Moin!
@Hajo_Zi:
"Eigentlich" ist Dein Code ein typisches Beispiel für einen stack overflow.
Es scheint so, dass VBA da mittlerweile gnädiger gestimmt ist.
Ändert aber nichts daran, dass die Endlosschleife [erst/schon] nach 46 Durchläufen (wovon 45 unnötig sind) aussteigt.
Teste mal und berichte, was als letzte Zahl im Direktbereich steht.

Code:

Option Explicit
Dim i&
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        If Target <> UCase("ja") Then Target = ""
    End If
    i = i + 1
    Debug.Print i
End Sub

Gruß Ralf

 

das hatte in der schnelle übersehen.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False    ' Reaktion Eingabe
    If Target.Address = "$A$2" Then
        If Target <> UCase("ja") Then Target = ""
    End If
    Application.EnableEvents = True    ' Reaktion Eingabe
End Sub

Gruß Hajo