Werte aus Tabelle in Textbox einlesen
13.03.2008 18:11:00
Fredd
Hallo zusammen
Ich habe da ein Problem was ich nicht lösen kann. Ich habe eine UF in der eine Textbox ist, über die ich Werte an eine Tabelle übergebe. Ich möchte jetzt gerne über einen Button die Unten stehende Funktion aktivieren. Also Button klic und dann soll en die Werte in der TextBox1 eingelesen werden. Wenn ich den Code unter UF aktivate schreibe Funktioniert er. Aber Leider benötige ich diese Funktion nur ab und zu zur Kontrolle und nicht ständig. Kann mir jemand helfen.
Private Sub UserForm_Activate()
Dim lngRow As Long
Dim strTxt As String
lngRow = 4
Do Until IsEmpty(Cells(lngRow, 7))
strTxt = strTxt & Cells(lngRow, 7) & vbLf
lngRow = lngRow + 1
Loop
On Error Resume Next
TextBox1 = Left(strTxt, Len(strTxt) - 1)
End Sub
Noch optimaler wäre es wenn nur der letzte Wert in Salte G angezeigt würde. das kriege ich leider auch nicht hin
Grüße Fredd
Anzeige