Office: (Office 2013) Manuelle Eingabe oder Formelwert

Wahlweise können Formeln oder manuelle Eingaben in einer Zelle stehen. Doch wenn Formeln durch Eingaben überschrieben werden, verschwindet die Formel.
Ich möchte, dass beim Löschen der Eingabe soll Formel automatisch neu gesetzt werden

In meiner Zelle J28 habe ich eine Formel drin:

=WENN(ISTNV(SVERWEIS($E28;$C$52:$J$108;8;FALSCH));0;SVERWEIS($E28;$C$52:$J$108;8;FALSCH))

Diese möchte ich auch manuell überschreiben können und wenn ich auf die Zelle klicke und die Taste entferne, soll sich die Formel wieder reinsetzen.

In diesem Video wird das möglich gemacht:
https://youtu.be/ApnKNK1Lv7A


Allerdings weiß ich nicht, wie ich das umsetze.

Bin für jede Hilfe sehr dankbar.

 

Hola,

*Dieses Video existiert nicht*

Gruß,
steve1da

 

jetzt müsste es gehen

 

Hola,

wird doch im Video genau erklärt. In der Beschreibung ist sogar der Link zum Code hinterlegt.

Gruß,
steve1da

 

Leider verstehe ich nicht viel von VBA

Ich hab überlegt ob ich die Formel von J28 in die Zelle M28 reinschreibe.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Rage
Dim a As Variant
Dim Zellenzahl As Long

Zeilenzahl = WorksheetFunction.Max(ActiveSheet.Cells(Rows.Count, 1).End(x1Up).Row, _
ActiveSheet.Cells(Rows, 2).End(x1Up).Row)

For Each Zelle In ActiveSheet.Range("J28" = "M28")
a = Zelle.Offset(0, -1).Value
If a = "" Or IsNumeric(a) = False Then
Zelle.Formula = "=M28"
End If

Das funktioniert so noch nicht....

 

Hallo OfficeFrage,

ohne das Video gesehen zu haben, und ohne den Code getestet oder genauer gelesen zu haben, sind mir auf Anhieb aber schon fünf Schreibfehler im Code aufgefallen (rot markiert und berichtigt und unterstrichen).
Die ersten beiden betreffen die Variablendefinition, Nr 3 & 4 sind in der WorksheetFunction.Max, und der letzte betrifft den Bereich (die Range).
Einen Bereich must Du genau wie in einer Formel mit der linken oberen Zelle, einem Doppelpunkt, und dann der rechten unteren Zelle angeben. Gleichheitszeichen usw. haben dort nichts zu suchen.


Edit sagt: Ich hab grad noch zwei Tippfehler gefunden, also bisher 5