Datenauslesen und verändern mit UserForm
01.02.2006 12:30:57
Bulli
habe mir eine Eingabemaske gebastelt, mit der die Einträge aus der Spalte A meiner Exceltabelle ausgelesen und manipuliert werden können. Dazu verwende ich den jeweiligen Index der momentan 30 Textboxen. Funktioniert auch tadellos. Jetzt würde ich aber gerne auch noch Einträge in Spalte B und C generieren, so dass ich mit dem Index der Textboxen nicht weiterkomme, hat jemand einen Vorschlag?
Private Sub userform_initialize()
Dim i As Integer
For i = 1 To 30
Me.Controls("TextBox" & i).Value = Cells(i, 1).Value
Next i
End Sub
______
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 30
Cells(i, 1) = Me.Controls("Textbox" & i).Value
Next i
Unload Me
End Sub
Viele Grüße,
Bulli