AW: tabellenbereich in UF darstellen
23.10.2005 12:52:45
Poseidon
hallo nochmal,
@hajo: mit dem scherzen biste ja schnell, aber auf nachfrage um hilfe gibt es keine antwort mehr.
habe es so versucht:
Private Sub UserForm_Initialize()
TextBox1 = Format(Worksheets("tabelle1").Range("a5"), "DD.MM.YYYY")
TextBox2 = Format(Worksheets("tabelle1").Range("b5"), "##,#0.00")
TextBox3 = Format(Worksheets("tabelle1").Range("c5"), "##,#0.00")
TextBox4 = Format(Worksheets("tabelle1").Range("d5"), "##,#0.00")
TextBox5 = Format(Worksheets("tabelle1").Range("e5"), "##,#0.00")
TextBox6 = Worksheets("tabelle1").Range("f5")
TextBox7 = Format(Worksheets("tabelle1").Range("g5"), "##,#0.00")
TextBox8 = Format(Worksheets("tabelle1").Range("h5"), "##,#0.00")
TextBox9 = Format(Worksheets("tabelle1").Range("i5"), "##,#0.00")
TextBox10 = Format(Worksheets("tabelle1").Range("j5"), "##,#0.00")
End Sub
nun möchte ich die daten bis zelle j24 darstellen.
das sind 200 textboxen die ich initialisieren muss.
gibt es da nicht was einfacheres?
gruss Poseidon