Office: Wenn Zelle leer, dann Formel einfügen

Hallo liebe VBA-Profis

Ich benötige ein VBA-Code, um eine verbundene Zelle AY12 (verbunden AY12:BI12) zu überwachen d.h. wenn die Zelle leer ist, soll eine Formel hinterlegt werden:

=WENN($AT12="";"";WENN(ISTFEHLER(SVERWEIS($AT12;Daten!$M$4:$O$42;2;FALSCH));"";SVERWEIS($AT12;Daten!$M$4:$O$42;2;FALSCH)))

Ich habe keine Ahnung, wie ich das in einem Code hinterlegen kann.
Im Moment steht die Formel in der Zelle AY12, doch wenn man manuell etwas schreibt, wird die Formel natürlich überschrieben. Der VBA-Code soll nun aber die Formel wieder in das Feld einfügen, wenn der Text gelöscht wird.

Das heisst: Wenn Zelle leer, dann Formel einfügen *biggrin.gif*

Hat jemand eine Lösung dazu?

Vielen lieben Dank bereits im Voraus *Smilie
Es grüsst Euch,
mic13

:)

 

Hallo mic13,

wenn Du Excel 2007ff. nutzt, kannst Du die Formel mit Wennfehler() verkürzen.

Code gehört in das (Klassen-)Codemodul der zu überwachenden Tabelle mit den (leidigerweise) verbundenen Zellen AY12...!
Code:

Grüße
EarlFred

 

Entschuldige, habe vergessen zu schreiben, dass ich Excel 2013 benutze *wink.gif*
Funktioniert dein Code auch mit 2013?

 

Hallo mix13,

macht nix, ist nicht schlimm. Funktioniert dort trotzdem.

Versuch macht kluch. Warum probierst Du es nicht einfach?

Grüße
EarlFred

 

Sorry, bin nicht am Arbeitsplatz und hab die Datei grad nicht zur Hand *wink.gif*
Probiere es gleich aus - Danke jetzt schon *biggrin.gif*

 

So, bin an meinen Arbeitsplatz zurückgeeilt und es funktioniert super *biggrin.gif* Danke!

Wie verbinde ich den Code, wenn ich mehrere Zellen in die Formeln eingesetzt werden sollen, wenn sie leer sind? Habe versucht gleichen Code unten anzuhängen, funktioniert dann aber nicht *frown.gif*

 

Hallo ?,

das ist eine Zustandsfeststellung, aber keine Fehlerbeschreibung.

Was hast Du vor, was hast Du probiert, was klappt nicht, wie lautet der Fehler/Meldung/Fehlernummer/...?

Die Prozedur kann es nur einmal geben. Willst Du mehrere Zellen prüfen, musst Du diesen Block verdoppeln und anpassen:
Code:

Grüße
EarlFred

 

Ahaa danke, habe den Fehler bereits gefunden, habe das letzte End If gelöscht und darunter dann den nächsten If Not... Code hinzugefügt. Dann hat es einen Kompilierungsfehler angezeigt *wink.gif* Jetzt gehts wunderbar! Du bist mein Held!