Hallo zusammen,
ich möchte die Häufigkeit berechnen und das Excel per VBA übergeben. Hierzu der Code:
----------------------------------------------------------------------------------------
Sub Test()
Daten = ActiveSheet.Name
Haeufig = Sheets("Häufigkeiten").Name
letzteSpalte = ActiveSheet.Cells(18, 1).End(xlToRight).Column
x = "PERQ5"
For i = 1 To letzteSpalte
If Cells(18, i) = x Then
letzteZeile = Cells(21, i).End(xlDown).Row
For j = 1 To 100 'Begrenzung von 100!
If Sheets("Häufigkeiten").Cells(1, j).Value = x Then
letzteSpalteLabel = Sheets("Häufigkeiten").Cells(3, j).End(xlDown).Row
Set myData = Range(Cells(21, i), Cells(letzteZeile, i))
Sheets("Häufigkeiten").Activate
Set myBin = Sheets("Häufigkeiten").Range(Cells(3, j + 1), Cells(letzteSpalteLabel, j + 1))
Sheets("Häufigkeiten").Range("B3:B15").FormulaArray = "=FREQUENCY('" & Daten & "'!" & myData.Address & ";" & "'" & Haeufig & "'" & "!" & myBin.Address & ")"
End If
Next j
End If
Next i
--------------------------------------------------------------------
Ich hänge leider bei der letzten relevanten Codezeile:
Sheets("Häufigkeiten").Range("B3:B15").FormulaArray = "=FREQUENCY('" & Daten & "'!" & myData.Address & ";" & "'" & Haeufig & "'" & "!" & myBin.Address & ")"
Vielleicht kann mir jemand weiterhelfen. Danke vorab.
|