Msgbox
22.05.2006 12:34:49
Ulf
Ich lese über eine For Next Schleife Daten in ein Array ein um es dann in eine Msgbox auszugeben.
Wenn nun zuviel Daten in dem Array stehen reicht der Platz in der Msgbox nicht aus.
Gibt es eine Möglichkeit die Länge des Array zu messen um dann vieleicht die Daten auf 2 Msgboxen aufzuteilen.
Bsp.:
For i = 6 To Sheets(Tbb).Cells(Rows.Count, 4).End(xlUp).Row
If Sheets(Tbb).Cells(i, 5) = 32 Then
MyText = MyText & Format(Sheets(Tbb).Cells(i, 12), "hh:nn")
End If
Next i
if mytext 'Länge>256 then
MsgBox "zu lang"
else
Msgbox MyText
end if
im voraus vielen Dank
mfg Ulf