VBA Werte speichern, wenn Textfeld sichtbar

[Elex]

Dann sollte es doch so funktionieren.

Code:

Private Sub CommandButton1_Click()
Dim i As Integer
Worksheets("Input").Activate
For i = 1 To 12
   If Controls("TextBox" & i).Visible = True Then
       Cells(29 + i, 3).Value = Controls("TextBox" & i).Value
   Else
       Cells(29 + i, 3).Value = ""
   End If
Next
End Sub

und der Teil bleibt wie in #1

Code:

Private Sub TextBox1_Change()
Worksheets("Input").Activate
Range("C30").Value = TextBox1.Value
End Sub

In wie weit das "Worksheets("Input").Activate" nötig ist kann ich ohne genauer Kenntnis deines Projektes nicht einschätzen.