Falsche Zusammensetzung in MsgBox

[dertommy]

Hallo Lutz!

Sorry, dass ich erst jetzt antworte. Ich war auf Urlaub.

Das ist nicht ganz korrekt, dass die Auszahlungen nicht dem richtigen Jahr zugeordnet wurden.

Mit folgenden Codestelle macht es das aber schon:

Code:

If Not Suche3 Is Nothing Then
    For i = 180 To 251
        If Worksheets("Auszahlungen").Cells(Suche3.Row, i) = 1 Then
            Inhalt3 = Inhalt3 & Chr(10) & Year(Worksheets("Auszahlungen").Cells(1, i)) & ":  (" & Format(Worksheets("Auszahlungen").Cells(Suche3.Row, i), "0 Auszahlung)")
          
        Else
      
        If Worksheets("Auszahlungen").Cells(Suche3.Row, i) > 1 Then
            Inhalt3 = Inhalt3 & Chr(10) & Year(Worksheets("Auszahlungen").Cells(1, i)) & ":  (" & Format(Worksheets("Auszahlungen").Cells(Suche3.Row, i), "0 Auszahlungen)")
      
        End If
        End If
    Next i
End If

Ich habe lediglich bei dieser Codestelle " Chr(10) & Year(Worksheets("Auszahlungen").Cells(1, i)) & ":" ergänzt, damit auch das Jahr angezeigt wird.

Ich habe die Summe einmal weggelassen und nur die Auszahlungen anzeigen lassen (siehe Screenshot).
Ich hätte eben gerne die Summe und die Anzahl der Auszahlungen eben in einer Zeile dargestellt, so wie ich es ganz oben beschrieben habe.

Sollte es doch erforderlich sein muss, eine Beispiel Datei herzustellen, werde ich das natürlich machen.

[Lutz Fricke]

Hallo dertommy,

Du hast ja bisher auch keine saubere Zuordnung zu den Jahren.
Du hast zu jedem Jahr alle Auszahlungen zu allen Jahren stehen...

Probier mal so (irgendwie habe ich beim Umschreiben die If-Abfrage vergessen):

Code:

If Not Suche3 Is Nothing Then
    For i = 180 To 251
'        If Worksheets("Auszahlungen").Cells(Suche3.Row, i) = 1 Then
'            Inhalt3 = Inhalt3 & "  (" & Format(Worksheets("Auszahlungen").Cells(Suche3.Row, i), "0 Auszahlung)")
'
'        Else
'
'        If Worksheets("Auszahlungen").Cells(Suche3.Row, i) > 1 Then
'            Inhalt3 = Inhalt3 & "  (" & Format(Worksheets("Auszahlungen").Cells(Suche3.Row, i), "0 Auszahlungen)")
'
'        End If
'        End If
       If Worksheets("Auszahlungen").Cells(Suche3.Row, i) >= 1 Then
             intInhalt3 = intInhalt3 + Worksheets("Auszahlungen").Cells(Suche3.Row, i).Value
       End if
    Next i
End If

Grundsätzlich bleibt natürlich das Problem, dass die Lösung des Problems für mich ein Ratespielchen ist, da ich die Datei nicht kenne...

Gruß,
Lutz