Excel löscht selbstständig Formeln aus Zellen

[Crazy Tom]

nicht in deiner letzten Datei
da wird zwar der Aromaanteil vom PG abgezogen
aber der Aromaanteil wird bei dir auf PG berechnet
und nicht auf das Gesamtliquid

[Gast 123]

Hallo an alle

ich sehe einen langen Thread, drei Seiten, mit vielen Vorschlägen. Aber bisher Null Ergebnis!
Das hat mich sooo gefuchst, das ich mir das mal gebauer angesehen habe. Mehrere Fehler!

@Andreas    ich habe deinen Fehler gefunden, korrigieren musst du in bitte selbst.
Höfliche Frage zu deinem Code:  wer hat den geschrieben, ich bin sehr beeindruckt!

Bei dem VBA Können, Hut ab, ist es mir aber ein echtes Rätsel, warum man so doofe Fehler NICHT findet???
Vielleicht habe ich in 20 Jahren Excel Makros schreiben eine besondere Sensibilität für Fehler entwickelt?

Der Fehler entsteht, wie nach drei Tests richtig vermutet, beim "Bearbeiten" von Rezepten!!
Hat also garnicht mit - Columns("F").ClearContents -  zu tun!!  Simples Überschreiben von Daten!!
Im vorhanden Code habe ich einige Verbesserungen eingebaut. s.unten. Meldung wenn die ID Nr. leer ist!

Der Fehler liegt hier, inm diesem Code:  Sub KundenBearbeiten_DBEingabe()
Da überschreibst du schlicht und simpel alle F+K Zellen mit Daten aus der Datenbank!
        .Range("G18").Value = tbl.DataBodyRange(Zeile, 5).Value  '##
        .Range("K16").Value = tbl.DataBodyRange(Zeile, 7).Value  '##

Das war mir zuviel arbeit das alles zu prüfen und zu korrigieren.
Jetzt weißt du ja wo du suchen musst, das kannst du bitte selbst korrigieren.
Und meine Änderungen um Fehler abzufangen kannst du bei Gefallen übernehmen.

mfg Gast 123

Code:

    Set tbl = tb_Datenbank.ListObjects(1)
    Zeile = ActiveCell.Row - tbl.HeaderRowRange.Row
    If Zeile < 0 Or tbl.ListColumns("ID").DataBodyRange.Cells(Zeile, 1) = "" Then
       MsgBox "Zeile " & ActiveCell.Row & "  keine gültige ID Nr. vorhanden!": Exit Sub
    End If

---

Nachtrag  sollte der Code nicht von dir stammen, kannst du ihn trotzdem selbst reparieren!
In diesem Code Teil alle Befehle löschen wo als Zieladresse ein "G" oder "K" vorkommt.
Dann sollte der Fehler behoben sein.  Lege bitte nur zur Sicherheit eine Kopie Datei an!

[andreasrisse]

Das habe ich mit dem Video Tutorial von Kai W. und seiner Demo Datei erstellt.

https://youtu.be/CXvpMMb8vw4?si=kcSHXw6mry8ouRHP

Ich habe entsprechende Zellen nur hinzugefügt die ich benötige.

[Gast 123]

Hallo

ich nehme an, kann nur Raten, das der Fehler jetzt endlich behoben ist????  Würde mich freuen!

mfg Gast 123

[andreasrisse]

Hallo

ich nehme an, kann nur Raten, das der Fehler jetzt endlich behoben ist????  Würde mich freuen!

mfg Gast 123

Moin,

ja nun ist der "Fehler" der ja eigentlich keiner war behoben. Für ein Otto Normalverbraucher ist das ganze doch sehr komplex, aber dennoch interessant. Ich habe jetzt noch 3 zusätzliche Features hinzugefügt.

1. Aktive Zellen in denen ich mich befinden sind nun farblich hervorgehoben per Makro
2. Lösche ich in der Datenbank z.B. Rezept Nummer 2 von 3, so aktualisiert sich dementsprechend die ID Reihenfolge neu per Makro
3. Zellen leeren im Eingabeformular per Makro