Formeln per VBA in Zellen eintragen

Hallo liebe Community,

erst einmal ein großes Lob und Dankeschön an die Personen, die hier sehr aktiv bei Problemen geholfen haben.
Bin seit Jahren ein stiller Leser und mir wurde schon in anderen Beitragen sehr oft weitergeholfen! Danke!

Nun habe ich aber ein Problem, zu dem ich leider keine wirkliche Antwort finde:

In einer intelligenten Tabelle kann ich Artikel eingeben und entsprechend werden mir die Listenpreise angezeigt.
Nun kann es vorkommen, dass der Artikel zu einem anderen Preis angeboten worden ist und der per Formel gezogene Preis überschrieben wird.
Wird nun der Preis gelöscht, möchte ich, dass per VBA automatisch wieder die Formel in die entsprechende Zelle eingetragen wird.
Bei der Formel unten wird mir aber ein Laufzeitfehler 1004 ausgespuckt. Ändere ich die "Formel" z.B. in =summe(t1:t5), funktioniert alles einwandfrei.
Habe auch schon versucht die Formel durch SVERWEIS und auch ohne die dynamischen Zellbezüge zu verwenden, alle beenden mit Fehler 1004.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

Dim iZeile As Long

For iZeile = 4 To Range("T37").End(xlUp).Row

If IsEmpty(Cells(iZeile, 20)) Then

Cells(iZeile, 20).Formula = "XVERWEIS([@Artikel];Tab_Artikel[Name];Tab_Artikel[Listenpreis];"";0)"

End If

Next iZeile

End Sub

Gibt es hier eine Möglichkeit?

Vielen Dank im Voraus.

Liebe Grüße
rem0ria

Hallo Daniel,

1)
von t37 aus kommst Du erst mal ans Ende der it nach t36, egal, ob da was drin steht.
2)
wenn Du von t36 hoch gehst, kommst Du unter der Zeile raus, wo gelöscht wurde - je nachdem, wo noch Formeln bzw. Daten stehen
3)
On Error ist ja nun nicht unbedingt dafür geschaffen, es an den Makroanfang zu setzen und es dann bis zum Ende so zu belassen. Bei der Fehlerbehandlung sollte man mE ein gesundes Maß zwischen Aufwand für Prüfungen und On Error finden. Bei der Programmierung recht sparsam einsetzen, für die Anwendung dann ggf breiter bzw. Du machst Dir eine Booket - List was die Anwender Deinem Programm mit ihrer Kreativität antun wollen.
Du müsstest genau genommen schon prüfen, ob es das Blatt noch gibt, wo Du was machen willst. Hat es eventuell einen Blattschutz, stehen die richtigen Daten drin usw. Eben alles, was ein findiger Anwender oder auch Excel Dir so für Steine in den Weg legen kann.
Dazu gehören dann aber auch entsprechend Meldungen.
Jegliche Fehler zu umschiffen bedeutet dann auch einen Mehraufwand an Programmierung.
Mal ein Beispiel, ok, ein kleines:-)
Wenn Du prüfen willst, ob ein Blatt existiert, kannst Du in einer Schleife über alle Blätter die Namen abgleichen, bei Treffer ggf. eine boolsche Variable auf True setzen, eventuell die Schleife verlassen - ok, die ist hier nicht allzu zeitintensiv, und anhand der Variable dann irgendwie weiter machen.

Mit On Errror machst Du es vielleicht so:

on error resume next 'oder was wie goto errorhandler mit Meldungsausgabe oder was auch immer

a=sheets(sname).name

on error goto 0

if a=sname then ... else ...

intelligenterweise nimmst Du eine Funktion, um ein sub nicht mit zu vielen Fehlerbehandlungen zu überfrachten:

sub test()

if sheet_exist("MeinBlatt") Then ... else ...

End Sub

private function sheet_exist(strName as string) as boolean

on error resume next

a=sheets(strName).name

if not isempty(a) then sheet_exist = true

End Function

Formeln per VBA in Zellen eintragen

Forumthread: Formeln per VBA in Zellen eintragen

33
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Formeln per VBA in Zellen eintragen

Forumthread: Formeln per VBA in Zellen eintragen

33 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

33
Beiträge zum Forumthread

Beiträge zu diesem Forumthread