Office: (Office 2013) Formeln in Zellen nach löschen der manuellen Eingabe wiederherstellen

Strahlemännchen · 4. Januar 2019

Hallo zusammen,

ich habe 12 Tabellenblätter, in mehreren Spalten sind Formeln hinterlegt . Jetzt kann es sein das ich manuell eine Eingabe mache , dann ist die Formel überschrieben. Nach löschen der Eingabe soll die Formel wieder in der Zelle stehen. Die betreffenden Zellen wo die Eingabe erfolgen soll sind die Spalten " C" ; "F-H". Ich hoffe es gibt eine Lösung
Gruß Ruby

:)

aloys78 · 6. Januar 2019

Hallo Ruby,

einfacher wäre es doch, alle Zellen mit Formeln zu sperren und den Blattschutz zu aktivieren, dann kann in den Zellen mit Formeln keine Eingabe erfolgen.

Gruß
Aloys

Hajo_Zi · 6. Januar 2019

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Code:

Option Explicit

Dim StFormel As String
Dim RaBereich As Range ' Variable für Bereich
Private Sub Worksheet_Change(ByVal Target As Range)
Set RaBereich = Range("C:C", "F:H") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
If StFormel "" Then
Application.EnableEvents = False
Target.Formula = StFormel
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RaBereich = Range("C:C", "F:H") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
If RaBereich.HasFormula Then
StFormel = RaBereich.Formula
Else
StFormel = ""
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Strahlemännchen · 6. Januar 2019

Hallo Hajo,
die manuelle Eingabe kann ich nicht machen da sofort wieder überschrieben wird. Die sollte schon drin stehen bleiben.

aloys78 · 6. Januar 2019

Hallo Ruby,

ich habe den Code von Hajo ein wenig geändert; probier mal.
Code:

Dim StFormel As String
Dim RaBereich As Range ' Variable für Bereich

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RaBereich = Range("C:C", "F:H") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
If RaBereich.HasFormula Then
StFormel = RaBereich.Formula
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Set RaBereich = Range("C:C", "F:H") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
If Target = "" Then
Application.EnableEvents = False
Target.Formula = StFormel
Application.EnableEvents = True
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Strahlemännchen · 7. Januar 2019

Hallo Aloys
leider funktioniert es nicht. ich kann manuell einen Wert eingeben und mit Enter bestätigen.Nach löschen der manuellen Eingabe kopiert er die Formel von der vorigen zeile.

aloys78 · 7. Januar 2019

Hallo Ruby,

Nach löschen der manuellen Eingabe kopiert er die Formel von der vorigen zeile.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das kann ich nicht nachvollziehen !

Wie löschst Du denn ?
Zeige das doch mal an einer Beispieldatei !

Gruß
Aloys

Strahlemännchen · 7. Januar 2019

Hi.
wie gewünscht die Datei.

aloys78 · 7. Januar 2019

Hallo Ruby,

Du wirst Deine Gründe haben, warum Du meine Anregung ignorierst und Deine Datei ohne jede Erläuterung zur Verfügung stellst.
Daher anbei meine kleine Testdatei, bei der Hajos geänderter Code so funktioniert, wie ich Deine Aufgabenstellung verstanden habe.
Ansonsten kann ich Dir leider nicht weiterhelfen.

Gruß
Aloys

hary · 7. Januar 2019

Moin
Setz die Formeln einfach z.B. in Zeile6(Orange gefaerbt).
Zeile6 kannst du ggf. ausblenden.
Beim loeschen des haendischen Eintrags wird die Formel aus Zeile6 in die geleerte Zelle eingefuegt.
siehe Anhang.
gruss hary

aloys78 · 8. Januar 2019

Hallo Hary,

pfiffige Lösung, die dazu den Vorteil hat, dass sie auch
nach dem Schließen und neu Eröffnen der Datei noch richtig funktioniert.

Gruß
Aloys

hary · 8. Januar 2019

Moin Aloys
Danke.
Bei nur 4 Formeln koennte man auch mit FormulaR1C1 arbeiten und im Select Case die Spaltennummer nutzen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
If Target.CountLarge > 1 Then Exit Sub
Set RaBereich = Range("C:C", "F:H")
Set RaBereich = Intersect(RaBereich, Target)
If Target.Row > 8 Then
If Not RaBereich Is Nothing Then
If Target = "" Then
Application.EnableEvents = False
Select Case Target.Column
Case 3
Target.FormulaR1C1 = "=RC[-1]"
Case 6
Target.FormulaR1C1 = "=IFERROR(IF(OR(RC3="""",RC3=""FT""),"""",VLOOKUP(RC16,Zeitmodelle!R2C1:R51C10,7,FALSE)),"""")"
Case 7
Target.FormulaR1C1 = "=IFERROR(IF(OR(RC3="""",RC3=""FT""),"""",VLOOKUP(RC16,Zeitmodelle!R2C1:R51C10,8,FALSE)),"""")"
Case 8
Target.FormulaR1C1 = "=IFERROR(IF(OR(RC3="""",RC3=""FT""),"""",(VLOOKUP(RC16,Zeitmodelle!R2C1:R51C10,10,FALSE))/24),"""")"
End Select
Application.EnableEvents = True
End If
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Office: (Office 2013) Formeln in Zellen nach löschen der manuellen Eingabe wiederherstellen

Formeln in Zellen nach löschen der manuellen Eingabe wiederherstellen

Formeln in Zellen nach löschen der manuellen Eingabe wiederherstellen

Formeln in Zellen nach löschen der manuellen Eingabe wiederherstellen

Formeln in Zellen nach löschen der manuellen Eingabe wiederherstellen

Formeln in Zellen nach löschen der manuellen Eingabe wiederherstellen - Similar Threads - Formeln Zellen löschen

Excel Zellen vergleichen & Formeln verknüpfen

Prüfen und Verketten von Zellen mit Formeln als Inhalt

leere Zelle - anscheinend doch nicht leer

Suchen nach Zellen, die Formeln enthalten

Anzeigen der Beziehungen zwischen Formeln und Zellen

Formeln behalten trotz Löschen von Zellen

GEHT das den ? Formeln mit bestimmten Ergebnis aus Zelle löschen,