|
Hallo,
ich versuche die Anzahl von unterschiedlichen Werten zu ermitteln und diese dann in einem dementsprechend großem Array dann die Werte abzuspeichern. Leider scheitere ich schon daran die Anzahl der Werte zu ermitteln mit folgendem
(code)
Public Sub nocomp()
Dim rngRange As Range, introws as integer
Call outputLastrow("data", 6)
rngRange = Worksheets("data").Range(Cells(9, 6), Cells(intRows, 6))
MsgBox Evaluate("=SUM(IF(" & rngRange & "="""",0,1/COUNTIF(" & rngRange & "," & rngRange & ")))")
End Sub
(/code)
Ich bekomme immer einen den Laufzeitfehler "91"): Objektvariable oder with-blockvariable nicht festgelegt. outputlastrow gibt mir die letzte zeile in der ein Wert steht aus.
Danke!
|