Hallo,

ich möchte, das sich die Zellen Ihrem Inhalt anpassen.

Ist das irgendwie möglich?

Gruß

Freundlicher Nachbar

ich weiß nicht, ob du schon was gefunden hast, aber ein kollege von mir hat das auch grad für sein proggie gebraucht...

hier der code:

Public Sub OptimaleSpaltenbreite(frm As Form, FG As MSFlexGrid)

Dim i As Integer 'Zeilen

Dim k As Integer 'Spalten

Dim Zeile As Integer 'Merkt sich die breiteste Zeile

Dim Breite As Double 'Merkt sich die Breite

k = 0

Do While k < FG.Cols

Breite = 0

Zeile = 0

i = 0

Do While i < FG.Rows

If frm.TextWidth(FG.TextMatrix(i, k)) > Breite Then

Breite = frm.TextWidth(FG.TextMatrix(i, k))

Zeile = i

End If

i = i + 1

Loop

FG.ColWidth(k) = frm.TextWidth(FG.TextMatrix(Zeile, k)) + 150

k = k + 1

Loop

End Sub

ich hoffe, es ist dir noch eine hilfe!! (O:

c ya

Thias

Habe noch nichts gefunden!

Vielen Dank für den Code!

Hat mir sehr geholfen!

Gruß

Freundlicher Nachbar