Textbox Bezug weiterschalten

[M.Wichmann]

Hallo,

ich befülle eine Textbox per folgenden Code:

Code:

'TextBoxen füllen
           TextBox1 = Tabelle1.Cells(lZeile, 1).Value
           TextBox3 = Tabelle1.Cells(lZeile, 7).Value

Jetzt möchte ich aber, für TextBox3 die Spalten per Button, oder Drehfeldsteuerung in der geöffneten UF weiterschalten. Wie kann ich das am besten einbauen?

[Steffl]

Hallo Mario,

mal als Ansatz

Code:

'TextBoxen füllen
            TextBox1 = Tabelle1.Cells(lZeile, 1).Value
            TextBox3 = Tabelle1.Cells(lZeile, 7 + SpinButton1.Value).Value

[M.Wichmann]

Hallo,   leider funktioniert das so nicht.

[Steffl]

Hallo Mario,

Gegenfrage: Wieso nicht? Bei meiner Testuserform funktioniert es schon.

[M.Wichmann]

In welcher Routine hast du das drin?   ich hab es in Initia. probiert, und direkt bei den Spinbutton. Da passiert nix, bzw error.

Wenn ich das ins Click Listbox packe gehts, aber dann muss man immer wieder in die Listbox klicken.

[Steffl]

Hallo,

so

Code:

Private Sub SpinButton1_Change()
   TextBox1.Value = Tabelle1.Cells(1, 7 + SpinButton1.Value).Value
End Sub



Private Sub UserForm_Initialize()
   TextBox1.Value = Tabelle1.Cells(1, 7 + SpinButton1.Value).Value
End Sub