Originale Zellengröße wiederherstellen
25.11.2007 17:53:00
Fred_
Ich habe Folgendes Problem. Ich möchte wenn ich auf den Togglebuton klicke das sich die Zelle c5 auf ein bestimmtes Maß einstellt und den Inhalt der Textbox 1 dann dort hinein schreibt und die textbox 1 ausblendet.. beim 2ten klick soll dann die Textbox 1 wieder eingebländet werden und der Inhalt aus zelle c5 wieder gelöscht werden.
Leider Funktioniert mein Code nich so perfeckt, da er die Zelle c3 nicht wieder auf Standartgröße zurücksetzt und wenn zuviel in der Textbox steht, kann ich auch nicht alles lesen, obwohl ich textumbruch aktiviert habe.
Ist es möglich die Zellenhöhe automatisch an den Inhalt anzupassen?
wenn ja wie.
Hier mal mein Code der mal verfeinert werden müsste.
Private Sub ToggleButton4_Click()
If ToggleButton4.Value = True Then
TextBox1.Visible = False
ToggleButton4.Caption = "ohne"
Columns("C:C").ColumnWidth = 124.43
Range("C5").Value = TextBox1.Text
Else
TextBox1.Visible = True
ToggleButton4.Caption = "mit"
Range("C5").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.ClearContents
End If
ToggleButton4.Value = -ToggleButton4.Value
End Sub
viele Grüße und Danke im vorraus