Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Combobox Wert ... dann mehrere Zellen befülle

Wenn Combobox Wert ... dann mehrere Zellen befülle
19.08.2016 10:22:29
Sebastian
Hallo zusammen,
nach nun längerer Google-Suche muss ich mich nun doch an euch wenden. Ich hoffe mir kann hier, bei dieser wahrscheinlich recht einfachen Frage, geholfen werden. Ich komme einfach nicht auf eine Lösung.
Als Beispiel:
Ich habe ein Formular auf dem sich eine Combobox befindet. die Combobox stellt 5 verschiedene Fahrzeugtypen zur Auswahl:
- Kleinwagen
- untere Mittelklasse
- obere mittelklasse
- Limousine
- SUV
Abhängig von dem ausgewählten fahrzeugtyp sollen auf einem Sheet "diagramme" 3 Zellen mit unterschiedlichen Werten befüllt werden.
- Kleinwagen : Zelle A1=80, A2=20, A3=0
- untere Mittelklasse : Zelle A1=60, A2=30, A3=10
usw.
Denke das ist für euch keine große Sache.
Vielen Dank im Voraus.
Sebastian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Combobox Wert ... dann mehrere Zellen befülle
19.08.2016 10:35:35
Matthias
Hallo
Im Prinzip so:
Option Explicit
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case Is = 0 '1.Eintrag
Worksheets("Diagramme").Cells(1, 1) = 80
Worksheets("Diagramme").Cells(2, 1) = 60
Worksheets("Diagramme").Cells(3, 1) = 0
Case Is = 1 '2.Eintrag
Worksheets("Diagramme").Cells(1, 1) = 60
Worksheets("Diagramme").Cells(2, 1) = 30
Worksheets("Diagramme").Cells(3, 1) = 10
Case Is = 2
Case Is = 3
Case Is = 4
Case Else
Worksheets("Diagramme").Range("A1:A3").ClearContents
End Select
End Sub
2,3 und 4 mußt Du dann selbst eingeben.
Gruß Matthias
Anzeige

392 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige