Listbox füllen

Forumthread: Listbox füllen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Listbox füllen

Listbox füllen

02.09.2006 21:29:10

Christian

Hallo,
ich muss für die Schule ein Programm schreiben und habe ein Problem. Ich möchte in der Userform eine Listbox mit Werten füllen, die ich vorher berechnet habe. Nun weiss ich aber nicht was für eine Eigenschaft der Box zuweisen soll?
"frm_Abzahlungsdarlehen.lst_ausgabe"
Hier nach soll der Wert eingetragen werden, dieser hat die Bezeichnung "ausgabe".

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox füllen

02.09.2006 21:47:22

Josef
AW: Listbox füllen

03.09.2006 01:04:24

Christian
AW: Listbox füllen

03.09.2006 01:07:46

Josef

AW: Listbox füllen

02.09.2006 21:47:22

Josef

Hallo Christian!
Das geht mit


frm_Abzahlungsdarlehen.lst_ausgabe.AddItem ausgabe

vorausgesetzt bei "ausgabe" handelt es sich um eine Variable

Gruß Sepp

AW: Listbox füllen

03.09.2006 01:04:24

Christian

Ich bekomme jett zwar den Wert rein, aber es wird alles hintereinander geschrieben.
Eigentlich soll eine Liste ausgegeben werden. Der volle Code ist:
Public


Sub Abzahlungsdarlehensberechnung()
'Deklaration
Dim K As Double, p As Double, n As Integer, T As Double, unten As Double, i As Double, ausgabe As String
'EVA
K = frm_Abzahlungsdarlehen.txt_Kapital
p = frm_Abzahlungsdarlehen.txt_Zinssatz
n = frm_Abzahlungsdarlehen.txt_Laufzeit
T = K / n
unten = 6
Do While K > 0
i = i + 1
K = K - (T + K * p / 100)
If K < 0 Then
K = K - K
End If
ausgabe = ausgabe & i & "." & Chr(9) & Format(K, "currency") & Chr(13)
Loop
frm_Abzahlungsdarlehen.lst_ausgabe.AddItem ausgabe
End Sub

AW: Listbox füllen

03.09.2006 01:07:46

Josef

Hallo Christian!

Sub Abzahlungsdarlehensberechnung()

'Deklaration
Dim K As Double, p As Double, n As Integer, T As Double, unten As Double, i As Double, ausgabe As String

'EVA
K = frm_Abzahlungsdarlehen.txt_Kapital
p = frm_Abzahlungsdarlehen.txt_Zinssatz
n = frm_Abzahlungsdarlehen.txt_Laufzeit
T = K / n
unten = 6

Do While K > 0
  i = i + 1
  K = K - (T + K * p / 100)
  If K < 0 Then
    K = K - K
  End If
  frm_Abzahlungsdarlehen.lst_ausgabe.AddItem i & "." & Chr(9) & Format(K, "currency")
Loop

End Sub

Gruß Sepp

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!