UserForm statt MessageBox (2)
Marc
ich verwende momentan folgenden Code zur Erstellung einer MessageBox.
Kann mir jemand sagen, was ich hier ändern muss, damit der Text statt in einer MessageBox in einer UserForm (UserForm2, TextBox2) erscheint ?
Sub About_Msg()
Dim strMldg As String
strMldg = strMldg & "TEXT1" & vbLf
strMldg = strMldg & "" & vbLf
strMldg = strMldg & "TEXT2" & Worksheets(2).Range("I3") & vbLf
strMldg = strMldg & "" & vbLf
strMldg = strMldg & "TEXT3" & vbLf
strMldg = strMldg & "TEXT3a" & Format(Worksheets(2).Range("I7"), "#,##0") & vbLf
strMldg = strMldg & "TEXT3b" & Format(Worksheets(2).Range("I8"), "#,##0") & vbLf
strMldg = strMldg & "TEXT3c" & Format(Worksheets(2).Range("I9"), "#,##0") & vbLf
strMldg = strMldg & "TEXT3d" & Format(Worksheets(2).Range("I10"), "#,##0") & vbLf
strMldg = strMldg & "" & vbLf
strMldg = strMldg & "TEXT4" & vbLf
strMldg = strMldg & " - TEXT5" & vbLf
strMldg = strMldg & " - TEXT6" & vbLf
strMldg = strMldg & "" & vbLf
strMldg = strMldg & "TEXT7" & Worksheets(2).Range("I4") & " TEXT8"
MsgBox strMldg, vbOKOnly, "About"
End Sub
Marc
Anzeige