VBA Formel einfügen

[Heddi]

Hallo zusammen,

ich habe ein Problem bei der VBA Programmierung in Excel.
Meine Tabelle umfasst ca. 23 Spalten und um die 5000 Zeilen.
Der Code soll eine Zählenwenn Formel in eine Spalte einfügen oder direkt das countif ausführen.
Leider habe ich noch keinen Erfolg mit der Funktion FormulaLocal noch mit Countif. Entweder wird gar nichts eingefügt oder nur eine 0.

In den Spalten M:U stehen unterschiedliche Werte (teils doppelt und dreifach) drin. In Spalte W sind bereits per VBA alle Einzelwerte ca. 500 untereinander aufgelistet.
Es soll nun in Spalte X die Formel =Zählenwenn(M:U;W2) stehen oder direkt das Ergebnis der Formel.
Ich hoffe jemand kann mir weiterhelfen.
Vielen Dank im Voraus

[Heddi]

Hallo,
ich habe die Lösung doch noch gefunden:

Sub fortlaufendeWerte()
' Makro Fortlaufende Werte in Zelle Schreiben

Sheets(1).Select
Range("X2").Select
ActiveCell.FormulaLocal = "=Zählenwenn(M:U;W2)"
Range("X2").Select
Selection.AutoFill Destination:=Range("X2:X500"), Type:=xlFillDefault
Range("X2:X500").Select
End Sub

[RPP63]

Moin!
Es reicht völlig

PHP-Code:

Sheets(1).Range("X2:X500").FormulaLocal = "=ZÄHLENWENN(M:U;W2)" 


Lies Dir mal dies zu unnützen Aufzeichnungen des Makro-Rekorders durch:
https://www.online-excel.de/excel/singsel_vba.php?f=78

Gruß Ralf

[Heddi]

Hallo Ralf,

Perfekt, Danke für den Tipp

Gruß