Zeilenumbruch in MsgBox

Jürgen · 2008-01-29T22:08:00+00:00

Hallo zusammen, ich habe Problem mit einer MsgBox. Ich habe einen sehr langen Text, der in einer MsgBox erscheint. Ich hätte diesen Text gern in mehrere Absätze unterteilt. Kann ich in einer MsgBox Zeilenumbrüche einfügen? Im Voraus vielen Dank! Jürgen

Leider ist das Problem für mich doch noch nicht ganz behogen...
Wie bereits beschrieben soll in die MsgBox ein wirklich langer Text.
Ich nutze dafür folgenden Sub:


Sub RG_SZ()
Dim Mldg, Stil, Titel, Antwort
Mldg = "(1) Für Beiträge und Beit..."                     'MsgBox Text
Stil = vbOKOnly                                                     'MsgBox Schaltflächen
Titel = "Hinweis"                                                   'MsgBox Titel
Antwort = MsgBox(Mldg, Stil, Titel)

Weil der Mldg-Text jetzt allerdings soo extrem lang geworden ist, passt er in VBA nicht mehr in eine Zeile. Einen Zeilenumbruch in der MsgBox erzeuge ich an den nötigen Stellen mit "& vbLf & " im Text. Meine Frage ist nun, wie ich in VBA einen Zeilenumbruch hinbekommen, damit ich nicht den ganzen Text in eine Zeile schreiben muss, wo er ja mittlerweile auch nicht mehr rein passt.
Bin um jede Hilfe dankbar.
Beste Grüße
Jürgen

Hallo Jürgen,
einen Zeilenumbruch im VBE erzeugst du so.
Mldg = "blabla blablabla" & _
    "blabla bla blabla" & _
    "blablabla."

Bei langen Texten ist es jedoch sinnvoller und praktischer weil leichter zu pflegen, diese in einer externen Textdatei zu hinterlegen und einzulesen.
Sub RG_SZ()
Dim Mldg As String, Stil As Long, Titel As String, Antwort As Integer

Mldg = TextReadAll("F:\Office\test.txt") 'MsgBox Text
Stil = vbOKOnly 'MsgBox Schaltflächen
Titel = "Hinweis" 'MsgBox Titel
Antwort = MsgBox(Mldg, Stil, Titel)

End Sub

Private Function TextReadAll(ByVal strFile As String) As String
Dim fF As Integer
Dim strText As String

If Dir(strFile) <> "" Then

    fF = FreeFile
    Open strFile For Binary As #fF
    strText = Space$(LOF(fF))
    Get #fF, , strText
    Close #fF

    TextReadAll = strText
Else
    TextReadAll = "File Not Found!"
End If
End Function

Zu beachten ist bei einer MsgBox noch, das die, je nach Systemschrift, nur ca. 1024 Zeichen dargestellt werden können.

Gruß Sepp

Forumthread: Zeilenumbruch in MsgBox

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial