Hallo alle zusammen,
ich wollte fragen es ohne großen aufwand möglich ist die Werte die aktuell in einer MSG ausgegeben werden in einer Listbox anzeigen zu lassen?
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