Werte übergeben
Heino
ich habe mir eine UF mit Textboxen erstellt. In diese werden mit folgendem Code Werte aus einer _ Tabelle eingelesen.
Private Sub TextBox1_Change()
Dim varRow
Dim rZellen As Range
Dim i As Integer
If TextBox1 "" Then
With Sheets("Einsatzgewichte")
varRow = Application.Match(TextBox1, .Columns(1), 0)
If IsNumeric(varRow) Then
i = 1
For Each rZellen In .Cells(varRow, 2).Resize(, 25)
i = i + 1 'Zähler für TextBo2 bis TextBox26
Me("TextBox" & i) = rZellen
Next rZellen
End If
End With
End If
If i Nun möchte ich gerne in den Textboxen die Werte ändern und diese über ein CMD button an die entsprechende Zelle zurückgeben. Kann mir hier einer eine Lösung geben. Bin in VBA noch nicht so fit.