Wie kann ich das Vermeiden bzw. eine ganze Seite mit allen Meldungen aus einmal anzeigen lassen?
Nach erneutem Lesen... wenn du den gesamten Inhalt auf einmal anzeigen möchtest, musst du das natürlich in einem String zusammen fassen.
Dim temp As String
'temp = vbNullString
For Each Title In TitleCountDict.Keys
If temp <> vbNullString Then
temp = temp & vbNewLine & Title & ": " & TitleCountDict(Title)
Else
temp = Title & ": " & TitleCountDict(Title)
End If
Next Title
Debug.Print temp
Call MsgBox(temp)
Grüße
|