Office: (Office 2007) activeRow, Zelle in Textboxen ausgeben

Hallo Zusammen,

ich würde gerne die Zelle F der aktive Zeile in eine Textbox ausgeben ohne jetzt auch in Spalte F zu sein.
Also praktisch ich bin A20 (ActiveCell) dann Ausgabe in Textbox F20.

Wenn es möglich ist auch für 2 Textboxen (TextBox1) soll Spalte F und (TextBox2) Spalte H der aktive Zeile ausgeben.

Vielen Dank schon mal.

Grüße, Peter

 

Hi Peter,

Cells(ActiveCell.Row, 6) bzw. Cells(ActiveCell.Row, 8)

Bis später,
Karin

 

irgendwie bekomme ich das nicht hin

 

ok habe jetzt so und es funktioniert,
aber ich muss es bei jedem Wechsel neu starten damit der Wert übernommen wird?

Private Sub TextBox3_Change()
TextBox3.Value = Cells(ActiveCell.Row, 6)
End Sub

 

Naja, du musst der TextBox schon sagen, was damit gemacht werden soll:

Code:

TextBox1 = Cells(ActiveCell.Row, 6)

Aber weshalb benutzt du das Change-Ereignis der TextBox? Das bedeutet doch, dass du die Änderung, die du von Hand in der TextBox machst, durch den Inhalt der Zelle wieder überschreibst. Benutze stattdessen z.B. das GotFocus-Ereignis (also bei Klick in die TextBox):

Code:

Private Sub TextBox1_GotFocus()
    TextBox1 = Cells(ActiveCell.Row, 6)
End Sub

Das Sinnvollste wäre (aus meiner Sicht) jedoch, du integrierst die Codezeile in dein SelectionChange-Ereignis des Tabellenblattes.

Bis später,
Karin

 

das funktioniert ja jetzt nur macht es kein Autoupdate beim Zeilenwechsel, müsste beim Wechsel löschen und neu einlesen irgendwie denke ich

 

danke ich habe es, den Code einfach mit in SelectionChange rein kopiert und geht.

Besten Dank :-)