Clever-Excel-Forum

Hallo allerseits,

Ich habe eine Tabelle "CheckSum" auf W25:W221 und möchte in W222 per VBA eine Formel eintragen, sodass W101 automatisch zur Tabelle angehängt wird.

Mein Code :

Code:
Dim CheckSum As String

CheckSum = "=WENN(ZÄHLENWENN(Gruppierung!F:F;B~)>=1;"";WENN(ZÄHLENWENN(Lager!E:E;B~)>=1;"";WENN(ZÄHLENWENN(Schrott!E:E;B~)>=1;"";ZEILE()-ZEILE()+INDEX(Y:Y;ZEILE()))))"

For WS = 200 To 250 Step 1

        If Cells(WS, 2) = "PLACEHOLDERWSE" Then

            If IsEmpty(Cells(WS - 1, 2).Value) = False Then

                Rows(WS).Insert Shift:=xlUp

                  Cells(WS, 23).FormulaLocal = Replace(CheckSum, "~", WS)

                Exit For

            End If

        End If

    Next WS

Leider kriege ich einen 1004 Error : Anwendungs- oder objektdefinierter Fehler.

Hat vielleicht jemand eine Lösung für mich, wie ich die Formel in Zelle W222 schreiben kann, sodass sie automatisch zur Tabelle "CheckSum" hinzugefügt wird?

LG, Majusch

Hallöchen,

Du schreibst

Zitat:Ich habe eine Tabelle "CheckSum" auf W25:W221 und möchte in W222 per VBA eine Formel eintragen, sodass W101 automatisch zur Tabelle angehängt wird.

Also, erst mal ist W101 schon in der Tabelle drin.
Wenn Du es nochmal hinten anfügen willst frage ich mich, warum Du die Zeilen ab 200 durchsuchst. Wenn 201 leer ist wird Dir dort was eingefügt und nicht in 222.

Mit der Formel holst Du auch nix aus W101 sondern, mal auf 201 bezogen, was aus B201, oder, falls Du den Treffer erst in 2222 landest, dann aus B222.

Wo genau kommt denn eigentlich der Fehler 1004?

ZEILE()-ZEILE() ergibt übrigens 0, kannst Du also weglassen.

Majusch

schauan