Office: (Office 2010) Werte in Combobox einlesen und in Variablen speichern

Hallo,

ich habe eine Userform erstellt.
In dieser werden diverse Werte eingelesen und in Variablen gespeichert und auch berechnet und in der Userform angezeigt.

Nun möchte ich gerne weitere Eingabemöglichkeiten erstellen.

Da hier jedoch sehr viele Möglichkeiten vorhanden seien können möchte ich diese Eingabe gerne mit Comboboxen ermöglichen.

Die Werte befinden sich wie in der Beispieldatei dargestellt zum Teil in verschiedenen Pages und der Inhalt in verschiedenen Tabellen.

Wie bekomme ich es hin, das der Textwert des gewünschten Tabellenbereiches in der Combobox mit dem dazugehörigen Zahlenwert (Preis) aus der Nachbarspalte angezeigt und bei der Auswahl in jeweils einer Variable gespeichert werden.

Ich habe das wichtige für diese Frage einmal in einer Beispieldatei dargestellt.
Die Beispielmappe wurde in Excel 365 erstellt.
Soll aber auch mit Excel 2010 funktionieren.

Vielleicht kann mir hier ja jemand weiter helfen.

Vielen Dank schon einmal hierfür.


Gruß

Superpuk

:)

 

Hallo Superpuk,

die Comboboxen kannst du mit füllen, wenn du deine UserForm startest / initialisierst.

Ich habe mal hier die Combobox mit den 2 Spalten gefüllt, innerhalb der UserForm_Initialize :

PHP:

         Private Sub UserForm_Initialize()

Dim lngRow As Long
lngRow = Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row

With ComboBox1
.ColumnCount = 2
.List = Worksheets(2).Range("B2:c" & lngRow).Value
.Value = .List(0, 1)
End With

End Sub


 

Danke,

das einlesen Klappt soweit ganz okay.

Könnte ich bei dem zweiten Wert noch ein "€" Zeichen in der Anzeige darstellen?


Wie werden die Werte jetzt in eine Variable gespeichert?
Und vor allem, bei dem Umschalten aktualisiert?


Vielen Dank

Gruß

 

Hallo Superpuk,

hier mal der neue angepasste Code:

PHP:

         Private Sub UserForm_Initialize()

Dim lngRow As Integer
Dim N As Integer

With ComboBox1
For lngRow = 2 To Sheets(2).Range("B65536").End(xlUp).Row
.ColumnCount = 2
.AddItem
N = .ListCount - 1
.List(N, 0) = Sheets(2).Cells(lngRow, 2)
.List(N, 1) = Format(Sheets(2).Cells(lngRow, 3), "#,##0.00 €")
Next
End With

End Sub