Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rechnen mit ausgewählten ComboBoxen

Rechnen mit ausgewählten ComboBoxen
14.04.2015 09:29:21
Mat
Hallo zusammen,
ich hoffe Ihr könnt mir weiterhelfen.
Ich habe eine Userform mit 6 Comboboxen. In jeder Combobox stehen verschiedenen Eigenschaften. Jeder Eigenschaft sind verschiedene Faktoren zugeordnet.
Durch Auswahl der Comboboxen sollen die Faktoren miteinander multipliziert werden. Das Problem ist, dass der Code im Moment immer nur mit den Faktoren in der nachfolgenden Spalte rechnet.
Wählt man zB vierlagig in der ersten ComboBox, so sollte das Programm allerdings mit den FAktoren der Spalten E, J , O usw rechnen.
Ich hoffe, dass ich einigermaßen verständlich erklärt habe und mir jemand helfen kann.
Im Anhang meine Beispieldatei.
https://www.herber.de/bbs/user/97068.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rechnen mit ausgewählten ComboBoxen
14.04.2015 16:41:47
fcs
Hallo Mat,
in der Auswertung musst du die Comboboxen in zwei Case_Zeilen behandeln
- Comboboxen, die nur eine Werte Spalte haben
- Comboboxen, die Wertespalten gem. Anzahl Lagen haben.
Gruß
Franz 
Private Function getTotal() As Currency
Dim ctl         As MSForms.Control
Dim curWert     As Currency
Dim curErgebnis As Currency
Dim blnCalc     As Boolean
curErgebnis = 1
For Each ctl In Controls
If TypeOf ctl Is MSForms.ComboBox Then
Select Case ctl.Name
Case "ComboBox1", "ComboBox5", "ComboBox6"
'Comboboxen mit einer Werte-Spalte
If ctl.Value  "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, 2).Value
'                        MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
Case "ComboBox2", "ComboBox3", "ComboBox4"
'Comboboxen mit Werte-Spalte für verschiedene Anzahl Lagen
If ctl.Value  "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, _
Me.ComboBox1.ListIndex + 1).Value
'                        MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
End Select
End If
Next
Set ctl = Nothing
If Not blnCalc Then curErgebnis = 0
getTotal = curErgebnis
End Function

Anzeige
AW: Rechnen mit ausgewählten ComboBoxen
15.04.2015 15:25:58
Mat
Hallo Franz,
vielen Dank für deine Hilfe. Genau so sollte es sein.
Jetzt müsste der €-Wert, der bei Auswahl aller ComboBoxen entsteht, mit einem festen Wert (zb.5) in einem Label multipliziert werden und das Ergebnis in einer zweiten UserForm erscheinen.
Weißt du wie man das bewerkstelligen kann?
Vielen Dank.

AW: Rechnen mit ausgewählten ComboBoxen
16.04.2015 12:47:03
fcs
Hallo Mat,
wenn du im Userform1 eine Schaltfläche ergänzt, dann kann das entsprechende Makro etwa wie folgt aussehen: 
Private Sub CommandButton3_Click()
'Schaltfläche zur Anzeige von userform3
If IsNumeric(Me.Label10.Caption) Then
'berechneten Wert der Textbox1 im Userform3 zuweisen
UserForm3.TextBox1 = Format(VBA.Round(getTotal, 2) _
* CDbl(Me.Label10.Caption), "#,##0.00")
'      Unload Me 'Userform1 aus Arbeitsspeicher löschen
'      Me.Hide 'Userform1 ausblenden - Inhalte im Userform1 bleiben erhalten
UserForm3.Show
Else
MsgBox "Beschriftung für Label10 (Multiplikator für Wert aus " _
& "Comboboxen-Auswahl) ist nicht nummerisch!", _
vbOKOnly, "Anzeige Userform3"
End If
End Sub

Die Aktionen, die man ggf. mit dem Userform1 machen kann/möchte hab ich als Kommentarzeilen eingefügt.
Gruß
Franz

Anzeige
AW: Rechnen mit ausgewählten ComboBoxen
20.04.2015 21:24:46
Mat
Hallo Franz,
wenn du mir noch einmal helfen könntest, wäre ich dir sehr denkbar.
Bis jetzt klappt alles genauso,wie es sein soll.
Wenn man bei Anzahl zb vierlagig und bei Dicke 1,5 auswählt und dann bei Spezial1 auf yes klickt, dann soll der Wert 1,714 bei Label 12 erscheinen. Genauso wie bei Spezial2.
Wird zb achtlagig und Dicke 0,8 ausgewählt und zusätzlich Spezial yes, soll beim Label12 2,002 erscheinen usw.
Ich hab zur besseren Verdeutlichung die Beispieldatei hinzugefügt.
https://www.herber.de/bbs/user/97185.xlsm
Wäre nett, wenn du mir nochmal helfen kannst.
Danke
Anzeige

299 Forumthreads zu ähnlichen Themen

Alle Inhalte in Comboboxen löschen
Frank

Hallo!
Ich habe mehrere Comboboxen in ein Sheet eingebaut. Leider bleibt darin immer die letzte Auswahl stehen. In meiner Userform konnte ich mit "Claer all" alle Eingaben entfernen. gibt es einen solchen Befehl auch für die Comboboxen im Sheet?
Gruß Frank
15.08.2008 11:24:32
Thread-ID: 1002119
2 Beiträge
Anzeige
Spez. Dropdown-Zuordnungen in Comboboxen
Lenhard

Moin Moin Excellianer!!
Alle Ausführungen habe ich auch direkt in meine Beispieldatei reingeschrieben.
Aber hier auch noch mal:
Im Dropdown der ComboBox1 sollen als Liste die Einträge der Zeile 1 von links nach rechts aus der Tabelle1 erscheinen (Kategorie A, Kategorie B, Kategorie...
09.12.2008 11:24:55
Thread-ID: 1031295
5 Beiträge
Comboboxen Spalten Anzahl
gp

Hallo Zusammen,
ist die Anzahl der Spalten von ComboBoxen begrenzt?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
26.01.2009 11:08:00
Thread-ID: 1043791
5 Beiträge
Anzeige
zwei comboboxen auslesen
Dee

Hi Ihr,
Ich habe zwei Kategorien mit ComboBoxen (Deutschland, Amerika), welche bei unregelmäßige Nummer tragen
Deutschland (ComboBox 2/6/7/10/13)
Amerika (ComboBox 5/8/9/11/12)
Beide können jeweils mit yes und no belegt sein. Ich möchte mir jetzt die einzelnen Fälle in einem Te...
22.04.2009 19:14:52
Thread-ID: 1070463
8 Beiträge
Comboboxen Kuriositäten
Volti

Hallo zusammen,
habe schwere Probleme mit den Comboboxen aus der Toolbox, die wie mir scheint, nach jedem Update immer schlimmer werden.
1. Resizingprobleme: Es kommt verstärkt vor, dass der angezeigte Inhalt im Auswahlfeld nach Verlassen der Seite (z.B. kurzzeitig anderes Programm wie...
02.06.2009 10:45:10
Thread-ID: 1078566
3 Beiträge
Comboboxen formatieren
Ludicla

Hey Profis,
wie müßte ein Code aussehen der mehrere Comboboxen formatiert?
ich hab an die 100 Stück - sicher es geht auch einzelen
ich schaff keinen einfachen Code und mach alles einzeln.
Gruss Ludicla.
04.06.2009 14:58:16
Thread-ID: 1079162
7 Beiträge
Comboboxen für abhängige Auswahlen?
Claudia

Liebes Forum,
ich habe eine Tabelle mit drei Spalten. Die darin enthaltenen Infos werden von Spalte 1 zu 3 immer feiner. Z.B. steht in Spalte 1 "Wilde Tiere" und "Zahme Tiere". In Spalte 2 dann die jeweils zugehörigen Einträge "Tiger" (natürlich Wilde Tiere) und "Hase" (Zahme Tiere). Und in...
19.06.2009 09:53:10
Thread-ID: 1082797
6 Beiträge
ComboBoxen deaktivieren
Micha

Hallo zusammen,
ich habe folgende Herausforderung:
Teil 1:
In einem Tabellenblatt (Tabelle1) habe ich mehrere Comboboxen.
Wenn in der ComboBox_1 der Eintrag „ Name?“ gewählt wurde, müssen die …
ComboBox_2
ComboBox_3
ComboBox_4 … deaktiviert werden. Bei allen anderen...
19.06.2009 10:20:18
Thread-ID: 1082808
7 Beiträge
Anzeige

Links zu Excel-Dialogen

Label TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
4
4
16
7
2
6
5
6
18
2
13
13
4
6
2
6
1
4
6
14
1
4
3