Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Häufigsten Wert per VBA

Betrifft: Häufigsten Wert per VBA von: Sebastian
Geschrieben am: 15.09.2004 19:31:57

Hallo @ All,

hab ein großes Problem, leider komm ich nicht weiter:

ich möchte den Häufigsten Wert per Macro (also keine Formel) aus mehreren Zellen suchen und den Häufigsten Wert dann über die einzelnen Werte schreiben lassen, wie geht das??

Beispiel:
3 hier soll die häufigste Nummer stehen also in dem Bsp: 3
1
3
3
3
2
4
4
1


Gruß und vielen Dank schon mal Sebastian

  


Betrifft: AW: Häufigsten Wert per VBA von: ransi
Geschrieben am: 15.09.2004 19:49:52

hallo seb

so ?
Public 
Sub moda()
[a1] = Application.WorksheetFunction.Mode(Range("A2:A1000"))
End Sub


ransi


  


Betrifft: AW: Häufigsten Wert per VBA von: Sebastian
Geschrieben am: 15.09.2004 22:02:19

Hi ransi,

danke für Deine Antwort,

ja so etwa, ich bin gerade dabei es zu erweitern und den Bereich variabel zu machen,

so etwa: aber das klappt nicht :-( 
Sub moda()
 i = 1
[a1] = Application.WorksheetFunction.Mode(Range("A" & i & ":A" & i + 10))

End Sub


Gruß Sebastian


  


Betrifft: was klappt da nicht ? von: ransi
Geschrieben am: 16.09.2004 09:37:57

guten morgen seb

was klappt denn da nicht ?
kriegst du eine fehlermeldung oder wird falsch gerechnet oder ...?

ransi


  


Betrifft: AW: was klappt da nicht ? von: Sebastian
Geschrieben am: 16.09.2004 21:29:53

Hi Ransi,

vergiss es. Es war wohl etwas spät. Es klappt alles.

Vielen Dank nochmals.