Listboxsumme in Tabelle eintragen
Berom
Ich habe in Excel 2008 eine Userform erstellt welche mehrere Listboxen hat. In diesen hat es fest definierte werte welche man in jeder listbox auswählen kann.
Nun die Userform funktioniert. Auch das Ausrechnen der einzelnen listbox als Summe sollte gehen. Es gibt keine fehlermeldung aus. Ich habe jetzt nur das Problem das die werte nicht in die Tabelle geschrieben werden.
Die Userform muss jeden Tag ausgefüllt werden und das Resultat in die Tabelle eingetragen. Also hat man ende Monat 31 Einträge. Ist Spalte A sind von A7 bis A37 31 Monatstage definiert. In Spalte B von B7 bis B37 soll nun das Resultat kommen.
Habe bis jetzt folgenden Code verwendet um die Listboxen auszurechnen und einzutragen:
Sub add()
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer, GSumme As Double
GSumme = 0
For i = 1 To 25
GSumme = GSumme + Val(UserForm1.Controls("listbox" & i).Object)
Next i
End Sub
Sub Ausgabe()
Dim i As Long
Dim LetzteZeile As Integer
LetzteZeile = 0
If LetzteZeile Kann mir jemand weiter helfen ?
Danke
Anzeige