Wie erreiche ich die automatische wiederherstellung einer Formel?

Question

Hallo, liebe Tüftler!
Ich habe in Spalte A eine Zahl. Wenn diese vorhanden ist, wird in Spalte B automatisch eine 1 eingefügt (man ist ja faul).
Wenn nun aber mal eine andere Ziffer in Spalte B eingetragen wird, verschwindet diese Formel der automatischen 1 aber.
Wie kann ich es jetzt hin bekommen, das nach Löschen der Zahlen in Spalte A automatisch die Formel zur Eintragung der 1 in Spalte B wieder vollzogen wird?

Bitte erschlagt mich nicht. Ich bin eben "faul" und sehe nicht ein, das ich was eingeben muss, obwohl in den allermeissten Fällen eh nur eine 1 eingegeben werden muss.

Ich wünsche Euch allen eine schöne vor Weihnachtszeit.

Gruß
Hasso

Answer 1

Hallo Hasso,

das get nur per VBA. Folgenden Code unter die Tabelle

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 1 Then
If Target = "" Then
Application.EnableEvents = False
Target.Offset(0, 1).FormulaLocal = "=Wenn(A" & Target.Row & "<>"""";1;"""")"
Application.EnableEvents = True
End If
End If
End Sub

Gruß Hajo

Answer 2

Hallo Hasso,

und wenn Du noch so faul bist, Du musst Dich damit abfinden, dass eine Excelzelle entweder eine Formel oder einen von Hand eingetragenen Wert enthalten kann, beides geht definitiv nicht.

Bei extremer Faulheit kannst Du Dir notfalls ein Makro schreiben, welches das macht, was Du Dir vorstellst.

Gruss
Rainer

Answer 3

Moin,

der übliche Weg ist es eigentlich in den Eigenschaften der Eingabe-Zellen die Option 'Gesperrt' aufzuheben und anschließende das Blatt zu schützen. Dann sind alle Zellen mit Formeln von vornherein gegen Eingaben (Überschreiben) geschützt und das mit der Wiederherstellung erübrigt sich.

Gruß
Kalle

Answer 4

Sorry, dass ich mich erst jetzt melde. Habe Alters- und Krankheitsbedingt, leider viel um die Ohren.

@Hajo_Zi
Hajo, Deine Formel wird bei mir mit einem Fehler hinterlegt.
Diese Zeile wird blau hinterlegt: If Target.Count = 1 And Target.Column = 1 Then

Mein Fehler, ich hatte nicht mitgeteilt, welche Soft ich verwende :-(
Ich benutze OpenOffice 3.2.1

Aber ich habe mich inzwischen an die "KleinesKästchenuntenrechtsKopie" der
Zeile darunter oder darüber gewöhnt.

@Kalle
Tut mir leid - aber Du scheinst meine Fragestellung nicht so ganz verstanden zu haben.
Oder habe ich mich so blöd ausgedrückt? Soll ja vorkommen. Ich wollte ja gerade ab und zu diese eine Zelle überschreiben. WISSENTLICH!

Ich danke Euch aber ganz tüchtig, dass ihr Euch meiner Frage angenommen habt.

Lassen wir es dabei: Die "KleinesKästchenuntenrechtsKopie" funzt und ich bin dadurch auch nicht allzu faul - obwohl es bei älteren Herrschaften immer mehr zunimmt, mit der Faulheit.

Eine schöne Adventszeit noch

Gruß
Hasso