Hallo Freunde,
ich habe eine ganz harte Nuß zu knacken!
Es sollen alle Zahlen in der Spalte"D" summiert werden(das habe ich geschaft ist hier 1955)
Jetzt soll die Häufigkeit der Zahlen in der Spalte"D" bestimmt werden und entsprechend ihrer Häufigkeit
sortiert werden.zB 200x"1er", 100x"2er", 50x"3er" usw.
Und dann soll die Summe der Häufigkeiten bestimmt werden welche die erste Zahl in der "D" Spalte
vorgibt.(Hier ist es die 2) Also sollte die Summe der ersten zwei Häufigkeiten gebildet werden.
zB. SR(300)= 200"1er" + 100"2er"
Dann folgende Formel berechnet und Ergebnis in D2 eingetragen werden.
Formel: X=((SRx100)/S1)
S1= Summe der Spalte"D" hier 1955
SR= Summe der ersten Häufigkeiten nach vorgabe von der ersten Zahl in der D Spalte
Tabelle2

	A	B	C	D	E
1
2
3		-		2	1955
4		-		6
5		1		1
6		-		9
7		-		3

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Habe schon so angefangen: Public Sub Vorhersage() Dim lZeileE As Long Dim lZeileD As Long Dim iSpalte As Integer Dim iAnzahl As Integer lZeileD = 3 With Worksheets("Tabelle2") With .Range("D3:AZ250") .ClearContents .Font.Name = "Arial" End With For lZeileE = 3 To .Range("B65536").End(xlUp).Row If IsNumeric(.Range("B" & lZeileE).Value) Then GoSub Balken Else iAnzahl = iAnzahl + 1 End If Next lZeileE End With Exit Sub Balken: If iAnzahl = 0 Then Return With Worksheets("Tabelle2") .Range("D" & lZeileD).Value = iAnzahl With Sheets("Tabelle2") .Range("E3") = Application.Sum(.Range("D3:D" & .Range("B65536").End(xlUp).Row)) End With End With iAnzahl = 0 lZeileD = lZeileD + 1 Return End Sub Sub xTest() Dim adr As Range Dim Anz As Integer Set adr = Worksheets("Tabelle2").Range("D3:D7000") Anz = Application.WorksheetFunction.CountIf(adr, "1") MsgBox Anz End Sub