Default Value für DropDown Liste

ich würde gern eine DefaultValue setzen, und zwar immer, wenn die Zelle leer ist.

=WENN(A1="";"Ja";A1)
Und wenn das "Ja" nur erscheinen soll wenn in B auch was ist
=WENN(A1="";WENN(B1<>"";"Ja";"");A1)
Und die Spalte in der diese Formeln drin ist nimmst Du für die weitere Auswertung.
Alles andere ist ein Versuch Excel ein bestimmtes Verhalten aufzuzwingen, das wird letzten Endes immer scheitern. Wir können einen Code schreiben der in einer bestimmten Spalte immer ein "Ja" in die Zelle schreibt, wenn a) in der Zeile irgendwo was geändert wird und die entsprechende Zelle in der Spalte leer ist. Naja... der Code unten ist mal grob ein Anfang.
Andreas.
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim JaSpalte As Range, JaZelle As Range

Set JaSpalte = Range("P")
Set JaZelle = Intersect(Target.EntireRow, JaSpalte)
Select Case JaZelle
Case "Ja", "Nein"
'Okay
Case Else
Application.EnableEvents = False
JaZelle = "Ja"
Application.EnableEvents = True
End Select
End Sub

Mach ein
if target.count > 1 then exit sub
an den Anfang.
Andreas.

Vielen lieben Dank für Deine Hilfe. Dein "grober Anfang" macht im Endeffekt schon das, was ich möchte. Nur beim Löschen von mehreren Zeilen bekomme ich einen Laufzeitfehler '13', Typen unverträglich. Ich habe versucht, nur dann ein "Ja" einzutragen, wenn die Kontrollzelle gefüllt ist. Mein Code sieht folgendermaßen aus:
Dim JaSpalte As Range, JaZelle As Range, KontrollSpalte As Range, KontrollZelle As Range

Set JaSpalte = Range("P")
Set JaZelle = Intersect(Target.EntireRow, JaSpalte)
Set KontrollSpalte = Range("F:F")
Set KontrollZelle = Intersect(Target.EntireRow, KontrollSpalte)
Select Case KontrollZelle
Case ""
'Okay
Case Else
Select Case JaZelle
Case "Ja", "Nein"
'Okay
Case Else
Application.EnableEvents = False
JaZelle = "Ja"
Application.EnableEvents = True
End Select
End Select

Hallo Tobias,

lade die Datei in eine Cloud und poste dann hier den Link zur Datei.

Claus

Danke für den Tipp! Achte ich in Zukunft drauf