habe hier ein kleines Problem.
Ich habe eine UserForm mit 14 Eingabefelden (TextBox). Über eine ComboBox suche ich den Index und lese vorhandene Daten ein. Nach Änderung sollen sie in die Zeile übernommen werden. Nur will ich nicht dauern schreiben
Ich möchte hier eine Schleife zur EIntragung verwenden, habe aber damit Probleme.
Mein Versuch bisher:
~begin~
Private Sub Daten_uebertragen()
Dim i%
Dim tb As Object
Dim r&
If ComboBox1.ListIndex = - 1 Then
r = Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
r = ComboBox.ListIndex = + 3
End If
For Each tb in UserForm1.Controls
For i = 1 to 14
If TypeName(tb) = "TextBox" Then tb.Text = Cells(r, i)
Next i
Next tb
End
~end~
Was mache ich falsch? Beim Debuggen wird in der 'If-Schleife' nur von 'IF... bis "TextBox"' gelesen und der Rest nicht beachtet!?
Bitte um Hilfe
Danke
Michael