Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1036to1040
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
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wertzuweisung ComboBox

Wertzuweisung ComboBox
14.01.2009 01:04:00
Farin
Schönen Guten Abend liebe Excel Gemeinde!
Ich stehe vor folgendem Rätsel:
Ich habe eine ComboBox erstellt mit drei Einträgen "ankaufen", "verkaufen", "halten". Diese werden über ListFillRange eingelesen aus Tabelle2!B1:B3. Ich habe den Einträgen jeweils mehrere Werte zugewiesen, diese stehen u.a. in Tabelle2!C1:C3.
Wie kann ich jetzt auf einen Click in die ComboBox, z.B. auf verkaufen, den zugehörigen Wert Tabelle2!C2 in die Tabelle1!B2 zuweisen, bei Click auf ankaufen, den Wert Tabelle2!C1 ebenfalls in die Tabelle!B2 usw.
Mit dem jeweils angeklickten Wert kann ich dann mit einer einfachen Formel auf Tabelle1 weiterrechnen.
Vielen Dank für Eure Hilfe im voraus!
MFG, Farin

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

Betreff
Datum
Anwender
Anzeige
AW: Wertzuweisung ComboBox
14.01.2009 08:58:00
Tino
Hallo,
dies geht z. Bsp. so
Private Sub ComboBox1_Change()
Dim WerteBereich As Range
'Wertebereich festlegen (Bsp. ListFillRange = Tabelle2!B1:B3) 
Set WerteBereich = Range(ComboBox1.ListFillRange).Offset(0, 1)
'Wert in Tabelle1!B2 schreiben 
Sheets("Tabelle1").Range("B2") = WerteBereich(ComboBox1.ListIndex + 1)

End Sub


Gruß Tino

Anzeige
AW: Wertzuweisung ComboBox
14.01.2009 15:11:22
Dave
Hi Tino,
vielen Dank für deine Hilfe,
wenn ich den Code ablaufen lassen, meckert der Compiler in Zeile:
Set WerteBereich = Range(ComboBox1.ListFillRange).Offset(0, 1)
Vielen Dank für deine Hilfe soweit,
Grüße Farin
AW: Wertzuweisung ComboBox
14.01.2009 19:06:00
Tino
Hallo,
was steht bei Dir in der ComboBox1 unter ListFillRange?
Nach Deinen Angaben müsste dort
Tabelle2!B1:B3
stehen
Hättest Du eine Beispieldatei?
Gruß Tino
AW: Wertzuweisung ComboBox
15.01.2009 00:17:58
Farin
Hi Tino!
Ich hatte mich mit ListFillRange vertan ;) Jetzt klappts!
Ich danke Dir vielmals!
Viele Grüße,
Farin

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige