Sub HauptModul()

[...]


    strPath="*****"
    Set workbooks2 = Workbooks.Open(strPath)

    Set sheet = workbooks2.Worksheets(1)

    Dim member As auftrag
    Dim number As Integer
    number = 1


    For Each member In members


        If member.GetHours > 0 Then

        RechnungsSumme = (member.GetHours * member.GetStundensatz) + ((member.GetHours * member.GetStundensatz) / 100) * 19

        sheet.Cells(number, "H").Value = member.GetName
        number = number + 1



        End If


    Next member

End Sub
        Sub userformstarten()
   UserForm1.Show
End Sub





Private Sub UserForm_Initialize()
  Dim i As Byte
  Dim currentName As String

  For i = 1 To 10
    '8 = H
    currentName = Cells(i, 8).Value
    UserForm1.Controls("TextBox" & CStr(i)).Text = currentName
  Next
End Sub