Hallo zusammen,

ich bin relativ neu in VB und habe mittels einer For Schleife dieverse Textboxen erstellt.

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

   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 :
1
2
3
4
5

        ' Teiledaten mappen
        x = 14
        For i = 1 To 12
            objSheet.Cells(x, 2).Value = Me.Controls("lfd_nr" & i).Text
        Next i

Gruß, Oliver