Daten in UF wiedergeben
07.01.2006 01:05:07
Merlin
Ist es möglich das man die Daten die man in die UF eingetragen hat beim nächsten Öffnen der UF(TextBoxen) sichtbar zu machen damit man sie von Hand in der UF ändern kann ? Bei dem Code wo ich habe werden die Daten nur übernommen und beim nächsten aufrufen der UF sind die TextBoxen Leer. Kann man da was machen ?
Gruß Merlin
Hier der Code:
Private Sub CommandButton1_Click()
With Worksheets("Tkl-Rück")
.Cells(42, 1) = TextBox1.Value
.Cells(42, 16) = TextBox1.Value
.Cells(42, 31) = TextBox1.Value
.Cells(42, 46) = TextBox1.Value
.Cells(42, 5) = TextBox2.Value
.Cells(42, 20) = TextBox2.Value
.Cells(42, 35) = TextBox2.Value
.Cells(42, 50) = TextBox2.Value
.Cells(42, 10) = TextBox3.Value
.Cells(42, 25) = TextBox3.Value
.Cells(42, 40) = TextBox3.Value
.Cells(42, 55) = TextBox3.Value
.Cells(46, 1) = TextBox4.Value
.Cells(46, 16) = TextBox4.Value
.Cells(46, 31) = TextBox4.Value
.Cells(46, 46) = TextBox4.Value
.Cells(46, 8) = TextBox5.Value
.Cells(46, 23) = TextBox5.Value
.Cells(46, 38) = TextBox5.Value
.Cells(46, 53) = TextBox5.Value
.Cells(38, 9) = TextBox6.Value
End
Unload UserForm1
End With
End Sub