PDA

Vollständige Version anzeigen : Textbox formatieren in dynamischen Formular


vbanewcomer
20.07.2012, 10:28
Hallo Gemeinde,
wie unter http://www.ms-office-forum.net/forum/showthread.php?p=1458582#post1458582 beschrieben, erstelle ich ein dynamisches Formular unter Verwendung von Arrays.

Aktuell habei ich das Problem, dass die Textboxen dynamisch erzeigt werden und unterschiedliche Werte enthalten.
Es gibt Werte als Betrag, Text, Zahl usw.

Kann man der TExtbox das Format der Tabellenzelle aufzwingen woher die Textbox ihre Daten bekommt?

Im Prinzip möchte ich die Tabellenzelle formatieren und dieses Format soll automatisch auf die Textbox übernommen werden ?!

vielen Dank

Hajo_Zi
20.07.2012, 15:38
Textbox1=Range("a1").text

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm" onclick="window.open(this.href);return false"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

vbanewcomer
20.07.2012, 16:02
ja das hatte ich auch schon probiert,
leider ohne Erfolg.
Ich muss aber auch Range mit cells verwenden
range(cells(i, 2)).text

Da meckert excel aber auch :-(

vbanewcomer
20.07.2012, 16:38
evt. hillft der Codeausschnitt weiter ?!
"links" "breite" und "oben" werden an anderer Stelle definiert

Set oTxtBox = orahmen.Controls.Add("forms.textbox.1")
With oTxtBox
If Gdaten(i, 2) = "" Then .BackColor = RGB(255, 239, 219)
.Left = links
.Top = oben
.Width = breite
.Height = 15
.Text = Range("B" & i).Text
.Value = Gdaten(i, 2)
End With

Hajo_Zi
20.07.2012, 16:41
.text und . Value ist die Anzeige in der Textbox

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Hajo_Zi
20.07.2012, 16:46
bei range(cells(i, 2)).text sthet in cells(i, 2) eine Zelladresse.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

vbanewcomer
20.07.2012, 17:56
aahhhh, jetzt habe ich es .....

oTxtBox = Range("B" & i).Text