title image


Smiley Und es geht doch Dank an effeff
Ohne deinen Rat effeff hätte ich das nie hinbekommen .Darum einen besonderen Dank für den Tip.I'am happy !!



Dim A$

Dim BE

MSFlexGrid1.AddItem ("")

MSFlexGrid1.Row = MSFlexGrid1.Rows - 1

MSFlexGrid1.MergeCells = 1

MSFlexGrid1.RowHeight(MSFlexGrid1.Row) = 2000

MSFlexGrid1.WordWrap = True

For i = 1 To Len(NotizBL0.Text)

BE = Mid(NotizBL0.Text, i, 1)

If BE = Chr$(13) Or BE = Chr$(10) Then

Print

Else

A$ = A$ + BE

End If

Next i



For J = 0 To 4



MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, J) = A$ & Chr$(13) & Chr$(10)

'MSFlexGrid1.Text = A$ & Chr$(13) & Chr$(10)

Next J

MSFlexGrid1.MergeRow(MSFlexGrid1.Rows - 1) = True

geschrieben von

Anhang
Bild 13165 zu Artikel 606110

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: