Listbox in Userform mit Berechnung füllen

[Stefan87]

Hallo zusammen

Ich hätte da eine kleine Frage, welche mir sicher beantwortet werden kann.

Ich möchte in einer Userform die Übersicht einer Spalte als Summe in einer Listbox anzeigen lassen.
Bsp. Anstelle im Excel in einer Zelle wo =Summe(D1;D30) steht, möchte ich das der Wert in der Listbox in der Userform angezeigt wird.

Wer kann mir helfen?

Gruss Stefan

[Storax]

http://office-loesung.de/p/viewtopic.php?f=166&t=796404
Wäre nett, wenn Du darauf hingewiesen hättest, dass Du hier schon gepostet hast.

Es scheint so, dass Du nicht verstehst, was Du tust, denn in Deinem Screenshot sehe ich keine Listbox.
Da hilft kein Crossposting.

Außerdem wäre eine Beispieldatei hilfreich gewesen.

[Stefan87]

Die Kleinen Vierecke sind Listboxen, einfach verkleinert.

Anbei die Datei. Leider funktioniert der Code welche ich erhalten haben eben nicht, darum habe ich gedacht ich frage hier mal.

[Storax]

Ach so, ich vergass zu erwähnen: CP kommen bei mir in die Ignorehölle.

[Klaus-Dieter]

Hallo,

wozu verwendest du da ein Listenfeld. Die sind zur Darstellung vieler Daten gedacht.

[Stefan87]

Was würdest du denn empfehlen, das ich meine Idee verwirklichen kann?

[Klaus-Dieter]

Hallo Stefan,

verwende Textfelder. Die hat allerdings kein Click-Ereignis nur dblClick. (Doppelklick)

[Stefan87]

Hallo Klaus-Dieter

Ich habe jetzt den Code

Code:

TextBox1.Value = WorksheetFunction.Sum(Worksheets(2).Range("D1:D30"))

so eingefügt in das Textfeld, aber es wird erst die Zahl angezeigt, wenn ich ins Feld klicke und dort eine Zahl oder einen Buchstabe drücke.
Woran liegt das?

[Klaus-Dieter]

Hallo Stefan,

ich würde das so lösen:

Code:

Private Sub UserForm_Initialize()
   TextBox1.Value = WorksheetFunction.Sum(Worksheets(2).Range("D4:D30"))
   ' hier folgen die weiteren Textboxen mit ihren Wertzuweisungen.
End Sub