Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zellen bei bestimmten Eingaben in andere Zellen blockieren





Frage

Hallo, ich hab folgendes vor: In einer zelle soll "ja" oder "nein" eingegeben werden, wenn "ja" eingegeben wird, sollen bestimmte Zellen danach automatisch mit einem "-" oder einem "x" ausgefüllt werden. Das habe ich mit der "wenn" Funktion gelöst. Wenn aber "nein" eingegeben wird, soll in den folgenden Zellen nichts automatisch eingetragen werden, sondern es soll manuell ein datum eigetragen werden. Kann ich das über die "sonst" Bedingung machen? Ich verstehe nicht ganz wie ich eine Zelle mit einer Formel hinterlege, die aber in bestimmten Situationen überschrieben wird? Wie geht das? Weiß jemand Rat? Dank euch! MfG Marquis

Antwort 1 von Saarbauer

Hallo,

mir ist eine solche Möglichkeit nicht bekannt.

Es könnte aber mit der "Daten""Gültigkeitsregel" vielleicht zu machen sein, seh dort mal nach

Gruß

Helmut

Antwort 2 von nighty

hi Marquis79 :)

hier ein beispiel :))

gruss nighty

einzufuegen unter alt f11/projektexplorer/DeineTabelle

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Dim zelle As Range
Dim bereich As Range
If Target.Column = 1 And UCase(Cells(Target.Row, Target.Column)) = "JA" Then
Set bereich = Sheets(1).Range("B" & Target.Row & ":E" & Target.Row)
For Each zelle In bereich
Cells(zelle.Row, zelle.Column) = "-"
Next zelle
End If
If Target.Column = 1 And UCase(Cells(Target.Row, Target.Column)) = "NEIN" Then
Set bereich = Sheets(1).Range("B" & Target.Row & ":E" & Target.Row)
For Each zelle In bereich
Cells(zelle.Row, zelle.Column) = ""
Next zelle
End If
Application.EnableEvents = True
End Sub

Antwort 3 von nighty

hi all :)

noch kurzbeschreibung

spalte a wird die jeweilige zeile abgetastet auf ja und nein

ja = bereich wird gefuellt mit "-"

nein = bereich wird gelöscht bzw man kann die zelle nun beliebig fuellen

gruss nighty

Antwort 4 von nighty

hi al :))

so reicht auch :))

gruss nighty

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Dim bereich As Range
If Target.Column = 1 And UCase(Cells(Target.Row, Target.Column)) = "JA" Then
Set bereich = Sheets(1).Range("B" & Target.Row & ":E" & Target.Row)
bereich = "-"
End If
If Target.Column = 1 And UCase(Cells(Target.Row, Target.Column)) = "NEIN" Then
Set bereich = Sheets(1).Range("B" & Target.Row & ":E" & Target.Row)
bereich = ""
End If
Application.EnableEvents = True
End Sub