Zählewenn-Formel in Zelle schreiben
08.11.2021 17:03:52
Lutz
meine VBA-Kenntnisse sind nur sehr rudimentär, aber ich habe mich an ein kleines Projekt gewagt. Dank verschiedener lehrreicher Beiträge hier im Forum, bin ich auch schon ein gutes Stück weit gekommen. Daher Danke dass ihr hier euer Wissen teilt.
Nun bin ich an einer Stelle angekommen, wo ich wohl auch mal eine Frage stellen muss.
Ich versuche ein Makro zu schreiben, mit dem eine kleine Auswertung zu importierten Messwerten ausgeführt wird. Dazu habe ich mir eine Variable als Range eingeführt, die den Bereich meiner Messwerte darstellt und versuche nun eine Formel (Zählewenn) in eine Zelle eines anderes Arbeitsblattes zu schreiben, die auf diese Daten/Range zugreift. Mit der Summe-Funktion gelingt das auch, aber bei der Zählewenn erhalte ich Fehler 1004.
Public rngBereich As Range 'Bereich der Messwerte
Public Sub Häufigkeit()
... 'diverse Anweisungen die (wahrscheinlich) mit meinem Problem nichts zu tun haben
ActiveCell.Offset(0, 5).Formula = "=sum('" & Sheets(1).Name & "'!" & rngBereich.Address & "+" & ActiveCell.Offset(0, 1).Address(1, 1) & ")" 'Kontrollanweisung, diese wird ausgeführt und die Formel in die Zelle geschrieben
ActiveCell.Offset(0, 2).Formula = "=countif('" & Sheets(1).Name & "'!" & rngBereich.Address & ","" 'Anweisung, die zu Fehler 1004 führt
End Sub
Mit freundlichen Grüßen
Lutz