Oliver Engelstadt
Grünschnabel
Hallo zusammen,
ich bin relativ neu in VB und habe mittels einer For Schleife dieverse Textboxen erstellt.
jetzt meine Frage, wie kann ich diese Textboxen (zb: betrag1, betrag2, usw.) wieder mit einer For Schleife auslesen, da ich diese an ein Excel-Sheet weitergeben möchte:
So klappt es leider nicht:
Gruß, Oliver
ich bin relativ neu in VB und habe mittels einer For Schleife dieverse Textboxen erstellt.
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim y As Integer
Dim z As Integer 'tabindex
Dim lfd_nr As TextBox
Dim bezeichnung As TextBox
Dim betrag As TextBox
Dim altteil As CheckBox
y = 45
z = 14
For i = 1 To 12
lfd_nr = New TextBox
lfd_nr.Name = "lfd_nr" & i
lfd_nr.Left = 13
lfd_nr.Top = y
lfd_nr.TabIndex = z
lfd_nr.Size = New System.Drawing.Size(30, 20)
Me.teiledaten.Controls.Add(lfd_nr)
bezeichnung = New TextBox
bezeichnung.Name = "bezeichnung" & i
bezeichnung.Left = 55
bezeichnung.Top = y
bezeichnung.TabIndex = z
bezeichnung.Size = New System.Drawing.Size(650, 20)
Me.teiledaten.Controls.Add(bezeichnung)
betrag = New TextBox
betrag.Name = "betrag" & i
betrag.Left = 718
betrag.Top = y
betrag.TabIndex = z
betrag.Size = New System.Drawing.Size(50, 20)
Me.teiledaten.Controls.Add(betrag)
altteil = New CheckBox
altteil.Name = "altteil" & i
altteil.Left = 780
altteil.Top = y
altteil.TabIndex = z
Me.teiledaten.Controls.Add(altteil)
y = y + 20
z = z + 1
Next
End Sub
jetzt meine Frage, wie kann ich diese Textboxen (zb: betrag1, betrag2, usw.) wieder mit einer For Schleife auslesen, da ich diese an ein Excel-Sheet weitergeben möchte:
So klappt es leider nicht:
Code:
' Teiledaten mappen
x = 14
For i = 1 To 12
objSheet.Cells(x, 2).Value = Me.Controls("lfd_nr" & i).Text
Next i
Gruß, Oliver