Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrzeilige Messagebox

Forumthread: Mehrzeilige Messagebox

Mehrzeilige Messagebox
Uppe
Hallo Experten,
ich habe auf einem Tabellenblatt einen zweizeiligen benannten Bereich (ABC), den ich mit einer Messagbox ausgeben möchte. Wie muß ich das machen?
strMessageBox = Worksheets("Messagebox").Range("MSG_test").Value(1,1)
For i = 2 To Worksheets("Messagebox").Range("MSG_test").Rows.Count
strMessageBox = strMessageBox & "_ " & Chr(10) & Worksheets("Messagebox").Range("MSG_test").Value(i,1)
Next i
MsgBox strMessageBox
funktioniert nicht.
Es werden viele verschiedene Texte unterschiedlicher Länge.
Danke und Gruß
Uppe
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mehrzeilige Messagebox
14.09.2010 16:14:10
xr8k2
Hallo Uppe,

strMessageBox = strMessageBox & "_ " & Chr(10) & _
Worksheets("Messagebox").Range("MSG_test").cells(i,1)
Gruß,
xr8k2
AW: Mehrzeilige Messagebox
14.09.2010 16:50:29
ransi
Hallo
Versuch mal sowas:
Dim Arr As Variant
Arr = Worksheets("Messagebox").Range("Msg_test")
Arr = WorksheetFunction.Transpose(Arr)
MsgBox Join(Arr, vbCrLf)

ransi
Anzeige
AW: Mehrzeilige Messagebox
14.09.2010 17:11:34
Uppe
Hallo ransi,
das ist ja noch einfacher.
Danke!
Gruß Uppe
AW: Mehrzeilige Messagebox
14.09.2010 17:09:14
Uppe
Hallo xr8k2,
vielen Dank, klappt super!
Gruß Uppe
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige