Hallo Werner,
vielen Dank!
jetzt sieht die ganze sache so aus....
For i = 3 To 10
Me.Controls("Textbox" & i) = .Cells(6, i + 2).Text
Me.Controls("Textbox" & i + 13) = .Cells(7, i + 2).Text
Me.Controls("Textbox" & i + 26) = .Cells(8, i + 2).Text
Me.Controls("Textbox" & i + 39) = .Cells(9, i + 2).Text
Me.Controls("Textbox" & i + 52) = .Cells(10, i + 2).Text
Me.Controls("Textbox" & i + 65) = .Cells(11, i + 2).Text
Me.Controls("Textbox" & i + 78) = .Cells(12, i + 2).Text
Me.Controls("Textbox" & i + 91) = .Cells(13, i + 2).Text
Me.Controls("Textbox" & i + 104) = .Cells(14, i + 2).Text
Me.Controls("Textbox" & i + 117) = .Cells(15, i + 2).Text
Me.Controls("Textbox" & i + 130) = .Cells(16, i + 2).Text
Me.Controls("Textbox" & i + 143) = .Cells(17, i + 2).Text
Me.Controls("Textbox" & i + 156) = .Cells(18, i + 2).Text
Me.Controls("Textbox" & i + 169) = .Cells(19, i + 2).Text
Me.Controls("Textbox" & i + 182) = .Cells(20, i + 2).Text
Me.Controls("Textbox" & i + 195) = .Cells(21, i + 2).Text
Me.Controls("Textbox" & i + 208) = .Cells(22, i + 2).Text
Me.Controls("Textbox" & i + 221) = .Cells(23, i + 2).Text
Me.Controls("Textbox" & i + 234) = .Cells(24, i + 2).Text
Me.Controls("Textbox" & i + 247) = .Cells(25, i + 2).Text
Me.Controls("Textbox" & i + 260) = .Cells(26, i + 2).Text
Me.Controls("Textbox" & i + 273) = .Cells(27, i + 2).Text
Me.Controls("Textbox" & i + 286) = .Cells(28, i + 2).Text
Me.Controls("Textbox" & i + 299) = .Cells(29, i + 2).Text
Me.Controls("Textbox" & i + 312) = .Cells(30, i + 2).Text
Me.Controls("Textbox" & i + 325) = .Cells(31, i + 2).Text
Me.Controls("Textbox" & i + 338) = .Cells(32, i + 2).Text
Me.Controls("Textbox" & i + 351) = .Cells(33, i + 2).Text
Me.Controls("Textbox" & i + 364) = .Cells(34, i + 2).Text
Me.Controls("Textbox" & i + 377) = .Cells(35, i + 2).Text
Me.Controls("Textbox" & i + 390) = .Cells(36, i + 2).Text
Next i
|