Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

ListBox - berechnung in Tabelle

Forumthread: ListBox - berechnung in Tabelle

ListBox - berechnung in Tabelle
29.08.2002 00:48:44
mateo
Hallo Teilnehmer des excel-Forums,

auch ich habe eine Frage an Euch!
Wie schaffe ich es, dass ich zu einer Tabelle korrespondierende
ListBox-Einträge, die ausgewählt wurden (Mehrfachauswahl) für Multiplikationen in korrespondierenden Zellen anderer Spalten nutzen kann? Habe mit rowsource die ListBox geladen, möchte die ausgewählten Zellen mit einem Zähler ermitteln und dann, wenn Zellen in Tabelle nicht leer, die Berechnung durchführen.
Vielen Dank,
mateo.

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: ListBox - berechnung in Tabelle
29.08.2002 01:37:15
Nike
HI,
reicht schon das?
For i = 0 To 9
If ListBox1.Selected(i) = True Then
msgbox ListBox1.Selected(i)
End If
Next i

Bye

Nike

Re: ListBox - berechnung in Tabelle
29.08.2002 10:49:40
mateo
Danke an Nike,

Den Zähler hatte ich wohl schon, mein Makro lautet folgender maßen, läuft aber noch nicht so recht.( Für die Multiplikationen in der Tabelle habe ich eine Funktion erstellt.)
Function PM_Anzahl(A)
X = Range("D4").Value
PM_Anzahl = A * X
End Function
Private Sub CommandButton17_Click()
Dim i%
Workbooks.Item(1).Worksheets("Stammdatenblatt").Activate
For i = 0 To ListBox1.ListIndex - 1
If ListBox1.Selected(i) = True And Not IsEmpty(Range(Cells(i + 7, 3), Cells(i + 7, 4))) Then
Range(Cells(i + 7, 3), Cells(i + 7, 4)).Value = PM_Anzahl(Range(Cells(i + 7, 3), Cells(i + 7, 4)).Value)
Unload Me
Else: Beep
End If
Next i
End Sub

Vielen Dank,
mateo.

Anzeige

Forumthreads zu verwandten Themen

Listbox
Klaus

Hallo,
wie kann ich dafür sorgen, dass der Fokus einer Listbox beim öffnen auf dem gleichen Index liegt, wie beim Verlassen?
MfG. Klaus
08.08.2008 21:25:00
Thread-ID: 1000396
4 Beiträge
Komplette ListBox an Tabelle
Chris

Hallo Zusammen,
Ich habe eine Mehrspaltige ListBox in einer UserForm ( 6Spalten) Wie kann ich die komplette ListBox mit allen Spalten an eine Tabelle übergeben?
Gruß
Christian
13.08.2008 09:33:00
Thread-ID: 1001355
3 Beiträge
Mit Multiselect in ListBox Auswahl treffen u......
Josef

Hallo!
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
26.08.2008 15:43:00
Thread-ID: 1004791
4 Beiträge
Anzeige
Daten in Listbox
Henner

Hi,
ich öffne aus einer UF heraus per CommandButton eine zweite UF (UF_CLRMemo), in der sich eine Listbox befindet mit dem Code:
Private Sub CBCLRMemo_Click() For i = 84 To 93 UF_CLRMemo.ListBox1.AddItem Sheets("UF_NeuesProjekt").Cells(i, 1).Value Next UF_CLRMemo.Show End Sub
Wie...
08.09.2008 17:35:00
Thread-ID: 1008180
2 Beiträge
Bestimmte Fonts in ListBox übernehmen
Larsinator

Hallo zusammen,
ich möchte alle mit "C" beginnenden Fonts in eine ListBox schreiben.
Mit der getroffenen Auswahl soll dann Zelle C5 formatiert werden.
Kann mir jemand einen Tipp geben, wie ich mit den Fonts entsprechend umgehen kann?
Danke schon mal...
09.09.2008 20:02:55
Thread-ID: 1008558
1 Beitrag
Anzeige
offset? mit Combo oder Listbox aber wie?
Thomas

Hallo und einen schönen guten Tag
Bitte um Hilfe.
Offset aber wie?
Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
z.B.
A5 oder A6 oder A150 u.s.w.
B5 oder B6 oder B150 u....
16.09.2008 13:37:00
Thread-ID: 1010027
5 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 12:45:00
Thread-ID: 1010647
2 Beiträge
Anzeige
Listbox
Beat

hallo zusammen
das Einlesen eines Tabellenbereichs in eine Listbox klappt problemlos.
Jetzt möchte ich einzelne Zeilen der Listbox editieren.
Ist das möglich?
Wenn nicht, möchte ich einzelne Zeilen in Textboxen ausgeben. Wie kann ich
die einzelne Zeilen übertragen?
Grus...
29.09.2008 17:32:00
Thread-ID: 1013140
9 Beiträge
Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 14:45:47
Thread-ID: 1013354
1 Beitrag
ListBox - Multiselect 1
Josef

Hallo!
In einer UF werden in eine Listbox Daten eingelesen. In der Listbox ist die Eigenschaft MultiSelect auf 1 eingestellt.
1.) Gibt es bitte eine Möglichkeit, mittels eines Befehls in alle Kästchen (CheckBoxen?) gleichzeitig ein Hakerl zu setzen?
2.) Wird ein Hakerl am Anfang des...
02.10.2008 12:39:00
Thread-ID: 1013807
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum