|
tun wir mal so, als hättest Du eine Userfform mit drei TextBoxen. Dann liefe das etwa so:
Private Sub UserForm_Initialize()
Dim aRow as long
With ActiveSheet
aRow = ActiveCell.Row
TextBox1.Text = .Cells(aRow, 5)
TextBox2.Text = .Cells(aRow, 7)
TextBox3.Text = .Cells(aRow, 11)
End With
End Sub
Dann wären Deine Textboxen gefüllt mit den Werten aus den Spalten (hier) 5, 7, und 11 (E, G, K) der Zeile, in der die aktive Zelle sitzt.
Severus
|