Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Listboxen ausgabe Werte Formatieren

Listboxen ausgabe Werte Formatieren
Pascal
Hallo liebes Forum,
ich bin mal wieder. Ich hab da so ein Probleme mit einer Listbox.
Ich lade In der Listbox 1 die Artikelbezeichnung aus dem Tabellenblatt "Artikel" hoch. Dann markiere ich die Werte die ich gerne in mein Blatt "Blanko" hätte. Ich werden immer eine unterschiedlich Anzahl von Werten markiert. Los gehts ab zelle A25. Wie kann ich folgende Dinge lösen

- Wie bekomme ich die markierten Werte in meine Blatt. (Variabel Anzahl)
- Die beschriebene Zelle A soll mit der Zelle B und c verbunden werde
- Die Zelle E und F sollen auch mit einander verbunden werden
- In Zelle D soll dann die Formel: =WENNFEHLER(SVERWEIS(A25;Artikel!$A$1:$B$1001;2;FALSCH);"")
Nur die Zelle A25 muss dann auch variabel sein,
- In Zelle G soll dann die Formel: =WENNFEHLER((D25*E25);"")
Auch hier müssen die zellen variabel sein.
- Außerdem soll die Gesamtsumme aller Teilergebnisse, von Spalte G, ermittelt werden
Außerdem soll der beschriebene Bereich wie folgt formatiert sein:
- Schriftgrösse 8
- Jede Zelle soll umrahmt werden.

Schwer ist halt das alle eintragungen und formatierungen variabel sein müssen. Je nachdem wieviele Werte in der Listbox1 markiert sind.
Puhh das ist ne menge. Ich hoffe ihr versteht was ich meine.
Danke schonmal..
Pascal

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Listboxen ausgabe Werte Formatieren
03.07.2011 20:51:32
jowe
Hallo Pascal,
Deine Frage:
Wie bekomme ich die markierten Werte in meine Blatt. (Variabel Anzahl)
Private Sub CommandButton1_Click()
Dim i, zeile As Long
For i = 0 To ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
'zeile ist die Zeile in der die markierten Werte
'aus der Listbox untereinander eingetragen werden
zeile = zeile + 1
Cells(zeile, 1) = Me.ListBox1.List(i)
End If
Next
End Sub
Der Rest Deiner Fragen läßt sich mit dem Makrorekorder aufzeichnen
und mit ein wenig Nacharbeit Deinen Erfordernissen anpassen
Gruß
Jochen
-Rückmeldung wäre nett-
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige