Office: Formel schützen, aber manuellen Eintrag ermöglichen/TExtänderung zulassen

Hi,

ich weiß, wie man Zellen und Formeln schützen kann.

Aber ich will die Formel schützen, und gleichzeitig erlauben, den Text in dieser Zelle zu verändern.

zB. soll die Zelle die Formel sverweis enthalten, aber ich soll auch den Wert manuel ändern können.

DAs geht wohl nur mit VBA. Ich habe aber keinerlei Erfahrung damit. Wer kann helfen?

Danke

 

Hi,

ja, das geht nur mit VBA:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$2" Then
      If Target = "" Then Target.Formula = "=VLOOKUP(B1,D1:E5,2,0)"
   End If
End Sub

Bis später,
Karin

 

hi,
ich verstehe leider diesen Code nicht. Wenn in A2 was steht, sollen die Formeln in D 1 bis E5 geschützt werden?
DAnke

 

Hi,

Formelzellen lassen sich bekanntlich nur schützen, wenn das Tabellenblatt geschützt ist. Dann lässt sich jedoch logischerweise die Zelle nicht mehr bearbeiten und somit auch nicht von Hand überschreiben.
Für den Code wird kein Blattschutz benötigt. Wird in die Formelzelle A1 etwas von Hand eingetragen, passiert nichts. Wird jedoch der von Hand eingetragene Inhalt von A1 wieder entfernt, wird die Formel wieder eingetragen.

Bis später,
Karin

 

Hallo Karin,

habe mir diese Funktion mal angeschaut und könnte so ein ähnliche Funktion gut gebrauchen.

in meiner Spalte C steht folgende Formel : =IF(B12>"";"Datum eintragen!!"). Wenn Spalte B Zeile 1 bis 26 oder mehr ein Buchstabe eingetragen wird, wird die Nachricht "Datum eintragen" ausgegeben. Ist das Datum eingetragen ist die Formel natürlich weg. Schön wäre es wenn nach den Löschen des Datums die Formel wieder automatisch drinsteht.

Gruß
Bernd

 

Hi Bernd,

ich nehme an, du meinst das so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("C1:C26")) Is Nothing Then
      If Target.Count = 1 Then
         If Target = "" Then Target.Formula = "=IF(" & Target.Offset(0, -1).Address(False, False) & _
            "<>"""",""Datum eintragen!!"","""")"
      End If
   End If
End Sub

Bis später,
Karin

 

Hi Karin,

liest sich gut. Bleibt nur noch die Frage wie der Code automatisch aktiv wird wenn die Arbeitsmappe geöffnet wird.

Bis dann,
Bernd

 

Hi Bernd,

der Code wird jeweils dann ausgeführt, wenn im Bereich C1:C26 von Hand etwas gelöscht wird.

Bis später,
Karin

 

Hi Karin,

Hatte den Code in einem Arbeitsblatt ausprobiert, dort hat er nicht funktioniert (vermutlich mein Fehler) , heute das gleiche in einem anderen Blatt und siehe da "it works". Vielen Dank. Diese Funktion kann ich sicher häufig einsetzten.

Bis dann,
Bernd