Ich auch wegen Userform
06.01.2004 22:22:27
Stefan
ich habe mich schon durch alte Beiträge und das Archiv gesucht, bin aber nicht fündig geworden und bin langsam am verzweifeln.
Ich habe eine UserForm erstellt mit einer ComboBox, TextBox und einem Label. In der ComboBox sollen Einträge aus einer Exceldatei stehen. Der Anwender soll dann zu jedem Eintrag eine Zahl in die TextBox schreiben. Diese soll dann in wieder in eine Exceltabelle geschrieben werden. Im Label sollen die Einträge der TextBox addiert werden.
Hier mal mein bisheriger Versuch:
Public Fondsanzahl As Integer
Static Sub test()
Fondsanzahl = 16
If MsgBox(prompt:="Haben Sie die Anteile schon eingetragen?", Buttons:=vbYesNo) = vbNo Then
Anteile.Show
End If
End Sub
Private Sub Anteile_Initialize()
Anteile.Show
End Sub
Private Sub Fondsliste_Enter()
Dim Matrix() As String
Dim i As Integer
ReDim Matrix(1, Fondsanzahl - 1)
For i = 0 To Fondsanzahl - 1
Matrix(0, i) = Cells(i + 2, 1).Value
Next i
Anteile.Fondsliste.Column() = Matrix
End Sub
Private Sub Fondsanteil_Change()
Dim Summe As Integer
Anteile.Fondsanteil.MaxLength = 2
Cells(i + 1, 2).Value = Val(Anteile.Fondsanteil.Value)
If IsNumeric(Anteile.Fondsanteil.Text) Then
Summe = Summe + Val(Anteile.Fondsanteil.Text)
End If
Anteile.Kontrolle.Caption = Summe
End Sub
Hilfe wäre toll, meine Excel-Datei und mein UserForm stehen unter https://www.herber.de/bbs/user/2790.xls .
Vielen Dank im Voraus
Stefan