in Spalte "A" befinden sich etwa 3000 vierstellige Zahlen. Wie ermittle ich mit einem Makro die Zahl, die am häufigsten vorkommt? Ausgabe mit MsgBox.
Danke im Voraus, Alifa
Sub alifa()
With Application
MsgBox .Mode(Range("A1:A3000")) & " ( " & .CountIf(Range("A1:A3000"), .Mode(Range("A1:A3000"))) & " mal )"
End With
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
A | B | C | D | E | F | |
1 | Gruß Sepp | |||||
2 | ||||||
3 |