Vielen Dank
verwende statt der MsgBox eine UserForm mit einer TextBox und stelle bei deren Eigenschaften Multiline auf TRUE.
hans
kann ich nicht nachvollziehen.
liefert z.B. einen 500stelligen String, der auch in der Messagebox angezeigt wird. Poste doch mal Deinen Code.
Gruß
Martin Beck
Const CriteriaColumn = 2
Const CommentColumn = 3
Sub Send_WatchDog()
Application.Calculate
MsgBox (Watchdog())
End Sub
Function Watchdog() As String
Dim i As Integer
Dim fehler As Boolean
i = 0
fehler = False
Watchdog = "Watchdog: *Wow*, check "
While (Not IsEmpty(Sheets("Watchdog").Cells(3 + i, CriteriaColumn)))
If (Not Sheets("Watchdog").Cells(3 + i, CriteriaColumn).Value = "Error in Criteria!") Then
If (Not Sheets("Watchdog").Cells(3 + i, CriteriaColumn).Value) Then
Watchdog = Watchdog & "criteria (No. " & (i + 3) & "): " & Sheets("Watchdog").Cells(3 + i, CommentColumn) & "," & Chr(10)
fehler = True
End If
End If
i = i + 1
Wend
If Not fehler Then
Watchdog = "WatchDog: *stands still*: Everything is all right"
End If
End Function
ich kann das leider jetzt nicht nachvollziehen, vermute aber, daß das Problem bei Deiner Funktion und nicht bei der MsgBox liegt. Laß das Funktionsergebnis doch mal in eine Zelle eintragen und vergleiche das Ergebnis mit der Ausgabe in der MsgBox.
Gruß
Martin Beck