04.11.2022, 16:02
14.11.2022, 09:36
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:
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
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 SubBei 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
14.11.2022, 09:42
Hallo,
wenn ich dich richtig verstanden habe: For i = 1 To SP
wenn ich dich richtig verstanden habe: For i = 1 To SP
14.11.2022, 09:47
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
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
14.11.2022, 09:59
Hallo,
lade doch bitte eine Beispieldatei hoch, oder schreibe mir, in welchen Beitrag ich das finden kann, falls es schon eine gibt.
lade doch bitte eine Beispieldatei hoch, oder schreibe mir, in welchen Beitrag ich das finden kann, falls es schon eine gibt.
14.11.2022, 10:04
ist eh genau in diesem Beitrag
ich habe sie nochmals hochgeladen
ich habe sie nochmals hochgeladen
14.11.2022, 10:19
gelöscht
14.11.2022, 10:21
funktioniert nicht, siehe Screenshot
hast du eh die Datei genommen, die ich in meinem letzten Post mit angehängt habe?
hast du eh die Datei genommen, die ich in meinem letzten Post mit angehängt habe?
15.11.2022, 06:53
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.
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.
15.11.2022, 08:16
Hallöchen,
also eventuell im Prinzip
wenn die Liste der Werte die Werte > 0 nach der in der Zelle genannten Zahl hat, sollte das Prinzip passen.
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