WorksheetFunction blattübergreifend
14.10.2020 09:42:34
Karl
Ich hoffe jemand kann mir helfen.
Trotz zahlreichen Recherchen weiß ich immer nochnicht, inwiefern dieser Code falsch ist:
Tabelle.Cells(i + 1, 3).Value = Application.WorksheetFunction.CountIf(.Range("Sheet1_STRING!A:A"), Str(Cells(i + 1, 2).Value))
"Tabelle" ist ein neues Tabellenblatt,
"i" ist eine Zählvariable in einer Schleife,
"Sheet1_STRING" ist ebenfalls ein Tabellenblatt
was ich umsetzen möchte:
for i = 1 To 10
Inhalt der Zelle B i in "Tabelle"
=ZÄHLENWENN( Sheet_STRING!A:A; Tabelle!A i)
in Worten:
In Spalte A im neuen Blatt ("Tabelle") stehen Begriffe, die ich im alten Blatt ("Sheet1_STRING) in der Spalte A mithilfe der Funktion "=ZÄHLENWENN()" zählen möchte.
VBA soll die Formeln automatisch mit einer Zählschleife ergänzen und dabei die Ausgabezelle und die Zelle mit Suchwort anpassen.
Vielen Dank schonmal im Voraus!!
Gruß, Karl