höchsten werte

Halle Excelfreunde,
ich kann mit dem untenstehenden Makro den höchsten Wert einer listbox markieren.
Nun möchte ich gern die 5 höchsten Werte in der Listbox ( in der Spalte 1 ) markieren.
Wobei die 5 variabel bleiben soll.
Kann mir dabei jemand helfen? Ich bekomme das einfach nicht hin.
Habt schon mal rechtvielen dank für euer Interesse.
mfg Thomas
Dim spaltemark
Dim i As Long
Dim MerkerWert
Dim listArr() As Double
ReDim listArr(0 To neueform1.ListBox2.ListCount - 1)
For i = 0 To neueform1.ListBox2.ListCount - 1
listArr(i) = neueform1.ListBox2.List(i)
Next
'MsgBox Application.Max(listArr)
MerkerWert = Application.Max(listArr)
'MsgBox wertausbox1
'#####################################
For spaltemark = 0 To neueform1.ListBox2.ListCount - 1
If neueform1.ListBox2.List(spaltemark, 0) = MerkerWert Then
neueform1.ListBox2.Selected(spaltemark) = True
End If
Next spaltemark

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias,
je na klar du hast recht. Ist mir erst gar nicht so aufgefallen.
Da ich ja vorher nicht weiß wie viel Zeilen ich in der Listbox markieren muss würde ich gern diese Zeile
Range("a1") = arr(1) & "," & arr(2) & "," & arr(3) & "," & arr(4) & "," & arr(5)
variabel gestalten.
Hat jemand ein Vorschlag für mich?
Das gesamte Macro sieht zur Zeit so aus:

Private Sub CommandButton4_Click()
Dim arr() As Byte, i As Byte, Zeile As Long
Dim a
Dim astrArray() As String
Dim ialngIndex As Long, lngIndex As Long
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = False
Next
With TabelleFilterdat
a = TextBox1.Value
Zeile = .Cells(Rows.Count, 1).End(xlUp).Row
ReDim arr(20)
For i = 1 To a
arr(i) = Application.WorksheetFunction.Large(.Range(.Cells(1, 1), .Cells(Zeile, 1)), i)
Next
End With
Range("a1") = arr(1) & "," & arr(2) & "," & arr(3) & "," & arr(4) & "," & arr(5)
With TabelleFilterdat
'astrArray() = Application.WorksheetFunction.Large(.Range(.Cells(1, 1), .Cells(20, 1)), 5)
'astrArray = Application.WorksheetFunction.Large(.Range(.Cells(1, 1), .Cells(20, 1)))
End With
astrArray = Split(Expression:=Cells(1, 1).Value, Delimiter:=",")
With ListBox2
.MultiSelect = fmMultiSelectMulti
For ialngIndex = 0 To UBound(astrArray)
For lngIndex = 0 To .ListCount - 1
If astrArray(ialngIndex) = .List(pvargIndex:=lngIndex) Then _
.Selected(pvargIndex:=lngIndex) = True
Next
Next
End With
'MsgBox arr(1) & "-" & arr(2) & "-" & arr(3) & "-" & arr(4) & "-" & arr(5)
End Sub

mfg thomas

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

höchsten werte

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread