Office: Wert automatisch in Zell eintragen ohne Formel in Zelle

Hallo !
In angehängter Tabelle soll automatisch eine 1 in den Feldern C2 bis K2 eingetragen werden wenn in D2 über die Auswahlliste "PÜ" oder "PÜ&DIA" eingetragen wird.
Dies habe ich erst über eine Kombination von "WENN" und "WAHR" Formeln versucht.
Leider waren dann aber in allen Zellen Formeln eingetragen und es war nicht möglich noch manuell Werte einzutragen ohne die Formeln zu löschen.
Könnt ihr mir helfen ?

 

Hallo!

Rechtsklicke den Tabellenreiter des Blatts und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D22")) Is Nothing Then Exit Sub
If Target = "PÜ" Or Target = "PÜ&DIA" Then
Dim i As Integer
For i = 5 To 11
Cells(Target.Row, i) = 1
Next i
End If
End Sub

 

Danke Schatzi ! !

Genau das was ich gesucht habe!

Aber hier gleich noch ne Frage

Meine Tabelle erfastt immer eine Kalenderwoche
ich möchte in Spalte C Geburtstage mit Datum eingeben und in Zelle c23 die anzahl aller Geburtstage in der Kalenderwoche anzeigen lassen.
Wie kann ich das lösen?

 

Hallo!

Teste mal diese Formel:
=SUMME(N(DATUM(2007;MONAT(C2:C22);TAG(C2:C22))=DATUM(2007;MONAT(E1:K1);TAG(E1:K1))))
Achtung Matrixformel: Die Eingabe der Formel mit der Tastenkombination Strg+Shift+Enter abschließen!