Mehrere Werte in einer Textbox ausgeben
29.12.2017 18:56:03
Marco
ich habe vor ein paar Tagen schon mal so einen ähnlichen Beitrag geschrieben diesmal geht es aber nicht um eine MSG sondern um eine Textbox.
Die MSG kommt bei der Ausgabe der Daten an ihre Grenzen daher möchte ich eine MSG verwenden. Die Ausgabe scheint auch zu funktionierten aber alle Werte werden in einer Zeile aufgeführt obwohl vbcrlf verwende. Mit vbLf geht es auch nicht. Was habe ich denn wieder falsch gemacht?
dim strOut as string
For zz= 1 to 50
If mat2 = arr2(nnn) Then
FNr2 = Sheets("test").Cells(zz, 9)
Sp11 = Sheets("test").Cells(zz, 11)
strOut=strOut & dat2 & " // " & FNr2 & " // " & Sp11 & vbcrlf
Cells(z + 1, s).Select
End If
next zz
Meldung.TextBox1.Value = strOut
Meldung.Show
Anzeige