Schutz über bedingte Formatierung?

Computer: Software & Programmierung Office Software
1

Hallo Zusammen!

Ich wollte nur mal eben nachfragen ob es generell möglich über eine Bedingung einen Zellschutz zu aktivieren, bzw. eine Eingabe unter bestimmten Bedingungen zu unterbinden?

Vielen Dank für die hilfe schonmal im Voraus

Gruß

LE

2

Hallo Zusammen!

Ich wollte nur mal eben nachfragen ob es generell möglich über
eine Bedingung einen Zellschutz zu aktivieren, bzw. eine
Eingabe unter bestimmten Bedingungen zu unterbinden?

Hi Erbschleicher,
bin mir nicht sicher was du meinst, aber was geht, ist das Du eine Gültigkeit für gewissen Felder hast.
Daten-> Gültigkeit.
Dort kannst du nur gewisse Werte zu lassen. Zum Beispiel aus einer Liste, oder nur Positive werte, …
Ich hoffe das hilft.

Ansonsten ist die einzige Bedingung, die ich kenne Passwort richtig eingegeben oder nicht.
Aber was weiß ich den schon?
Gruß Winter

3

Hallo Winter!

Erbschleicher? So hat mich auch noch keiner genannt! :smile:

Also was ich möchte ist:

Wenn in A1 „entfällt“ steht, dann soll A2 der Inhalt gelöscht werden und keine Eingabe möglich sein.

Hab echt schon probiert und versucht aber nix gefunden…

Gruß

LE

4

Wenn in A1 „entfällt“ steht, dann soll A2 der Inhalt gelöscht
werden und keine Eingabe möglich sein.

Hi LE,

du könntest A2 bedingt formatieren sodaß es die Schriftfarbe weiß hat wenn in A1 das Wort drinsteht.

Oder im Modul des Tabellenblattes:

Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If UCase(Range("A1")) = "ENTFÄLLT" Then
 Range("A2") = ""
End If
Application.EnableEvents = True
End Sub

Gruß
Reinhard

5

Alternativ, wenn es wirklich NEBEN einander liegende Zellen sind:

(das Gleiche in Grün, also eingetragen in die Mappe selbst)

Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If UCase(Range("A1")) = "ENTFÄLLT" Then
 Range("A2").Clear
 Range("A1:A2").Merge
Else
 Range("A1:A2").UnMerge
End If
Application.EnableEvents = True
End Sub

Das würde die Zellen verbinden, wodurch es die untere Zelle gar nicht mehr als autonome Einheit gibt.

Gruß,
Michael