ich möchte gerne einen Bereich in Array Textboxen aufteilen.
Das Auslesen der Textboxen in die Zellen funktioniert, aber wie ist es anders herum?
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/150270.xlsm
Private Sub CommandButton2_Click()
'Daten zurückschreiben
Dim arrZ As Variant
Dim arrTx As Variant
Dim i As Integer
arrTx = Array("tDat", "tZa1", "tZa2", "tZa3", "twert1")
With Tabelle1
arrZ = .Range(.Cells(2, 1), .Cells(2, 5))
End With
For i = 1 To UBound(arrZ, 2)
Controls(arrTx(i - 1)) = arrZ(1, i)
Next i
End Sub
Bis später