Sortierung in MsgBox

[UweD]

- - - -

[dertommy]

Hallo!

Ich habe leider noch eine Bitte an euch und hoffe, dass ihr mir helfen könnt.

Ich habe den bestehen Code nun in eine andere Datei kopiert und hätte für diese nun eine kleine Änderung, anbei einmal mein aktueller Code:

Code:

Sub JahresstatistikRanking()

With ThisWorkbook.Worksheets("Jahresstatistik")
   
    Dim i, i1, WWert, WWert1 As Double, TText, TText1 As String, Zeile, Zeile1 As Integer, Sp, Sp1, Rang, Rang1 As Integer
    Dim Z1, Z11 As Integer, LR, LR1 As Integer, RNG, RNG1 As Range, Jahr, Jahr1 As Integer, TMP, TMP1 As String
       
    Z1 = 3 'Erste Datenzeile
    Z11 = 3 'Erste Datenzeile
    Sp = 7 'Werte in G
    Sp1 = 15 'Werte in O
       
    LR = Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
    LR1 = Cells(Rows.Count, Sp1).End(xlUp).Row 'letzte Zeile der Spalte
    Set RNG = Cells(Z1, Sp).Resize(LR + Z1 + 1, 1)
    Set RNG1 = Cells(Z11, Sp1).Resize(LR1 + Z11 + 1, 1)
       
    For i = 1 To 8
        WWert = WorksheetFunction.Large(RNG, i)
        Zeile = WorksheetFunction.Match(WWert, RNG, 0) + Z1 - 1
        Jahr = Year(Cells(Zeile, 1))
        Rang = Cells(Zeile, 8)
        TMP = IIf(Jahr = Year(Date), "  (aktuelles Jahr)", "")
        TText = TText & Rang & ". Rang:  " & Jahr & ": " & " € " & Format(WWert, "#,##0.00") & TMP & vbLf
    Next
       
    For i1 = 1 To 8
        WWert1 = WorksheetFunction.Large(RNG1, i1)
        Zeile1 = WorksheetFunction.Match(WWert1, RNG1, 0) + Z11 - 1
        Jahr1 = Year(Cells(Zeile1, 1))
        Rang1 = Cells(Zeile1, 16)
        TMP1 = IIf(Jahr1 = Year(Date), "  (aktuelles Jahr)", "")
        TText1 = TText1 & Rang1 & ". Rang:  " & Jahr1 & ": " & " € " & Format(WWert1, "#,##0.00") & TMP1 & vbLf
    Next
       
    MsgBox "Top 8 (berechnet bis Jahresende)" & vbLf & vbLf & TText & String(2, vbNewLine) & _
    "Top 8 (berechnet bis " & Date & ")" & vbLf & vbLf & TText1
     
End With

End Sub

Bei der Code Stelle "For i = 1 To 8" werden ja immer 8 Werte angezeigt. Nun hätte ich es gerne, dass aber nur so viele Werte angezeigt, wenn bei "Sp = 7 'Werte in G" der Wert größer als 0 ist, max. aber 8.
Ich hoffe, dass mir nochmals jemand weiter helfen kann.

LG
Thomas

[Klaus-Dieter]

Hallo,

wenn ich dich richtig verstanden habe: For i = 1 To SP

[dertommy]

Hallo!

Nein, leider. Es werden trotzdem Werte mit 0 angezeigt, was ich nicht haben will.
Ich habe einen Screenshot von der MsgBox mit angehängt, damit man sich das besser vorstellen kann.
Ich will nur, dass der Rang, das Jahr und der Betrag angezeigt wird, wenn der Wert größer als 0 ist.

LG
Thomas

[Klaus-Dieter]

Hallo,

lade doch bitte eine Beispieldatei hoch, oder schreibe mir, in welchen Beitrag ich das finden kann, falls es schon eine gibt.

[dertommy]

ist eh genau in diesem Beitrag

---

ich habe sie nochmals hochgeladen

[Klaus-Dieter]

gelöscht

[dertommy]

funktioniert nicht, siehe Screenshot

---

hast du eh die Datei genommen, die ich in meinem letzten Post mit angehängt habe?

[dertommy]

Kann mir wirklich keiner helfen oder ist die Anforderung nicht ganz klar?
Ich will einfach, dass in der ausgegebenen Msgbox keine 0 Werte drinnen stehen und natürlich der Rang und die Jahreszahl auch nicht (soll gar nicht aufscheinen). Trotzdem sollen die letzten 8 Einträge berücksichtigt werden, aber nur unter der vorhin angegebenen Einschränkung.

[schauan]

Hallöchen,

also eventuell im Prinzip

Code:

For i = 1 to 8
    WWert = WorksheetFunction.Large(RNG, i)
    Zeile = WorksheetFunction.Match(WWert, RNG, 0) + Z1 - 1
    If i <= WorksheetFunction.Min(8, Cells(Zeile,SP).Value) Then
        Jahr = Year(Cells(Zeile, 1))
        Rang = Cells(Zeile, 8)
        TMP = IIf(Jahr = Year(Date), "  (aktuelles Jahr)", "")
        TText = TText & Rang & ". Rang:  " & Jahr & ": " & " € " & Format(WWert, "#,##0.00") & TMP & vbLf
    End If
Next

wenn die Liste der Werte die Werte > 0 nach der in der Zelle genannten Zahl hat, sollte das Prinzip passen.