Daten an ComboBox übergeben
30.03.2015 19:03:59
M
ich durchsuche schon seit längerem für meine Masterarbeit hier dieses Forum (hat schon zahlreiche nützliche Hinweise geliefert ;) ), jedoch bin ich an einem Punkt angekommen, an dem ich nicht mehr weiter komme :/
Ich habe diesen Code gefunden um die 2te ComboBox in Abhängigkeit von der Ersten zu füllen. (http://home.arcor.de/excelseite/UserForms/combinabh.html)
Die beiden ComboBoxen sind in einer UserForm A mit noch anderen TextBoxen. Die ausgewählten und eingetragenen Werte werden dann in einem Tabellenblatt gespeichert. Um die zuvor gespeicherten Daten bearbeiten zu können, will ich diese an eine 2te UserForm B übergeben. Und jetzt kommt mein Problem. Die erste ComboBox (Risikokategorie) von der die Zweite (Risikogruppe) abhängt übernimmt die Werte aus der Tabelle, bei der 2ten ComboBox bekomme ich folgenden Fehler: Laufzeitfehler '380' Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.
Das ist der Code für die ComboBoxen:
Private Sub UserForm_Activate()
ComboBox_Risikokategorie_bearbeiten.List = Worksheets("Risikokategorie-gruppe")_
.Range("A4", "A" & Worksheets("Risikokategorie-gruppe")_
.Range("A65536").End(xlUp).Row).Value
End Sub
Private Sub ComboBox_Risikokategorie_bearbeiten_Change()
Dim iSpalte As Intege
Dim iZiel As Integer
Dim rng As String
iSpalte = ComboBox_Risikokategorie_bearbeiten.ListIndex + 2
rng = Chr(iSpalte + 64) & "65536"
iZiel = Worksheets("Risikokategorie-gruppe").Range(rng).End(xlUp).Row
ComboBox_Risikogruppe_bearbeiten.Clear
ComboBox_Risikogruppe_bearbeiten.List = Range(Worksheets("Risikokategorie-gruppe")_
.Cells(4, iSpalte),Worksheets("Risikokategorie-gruppe").Cells(iZiel, iSpalte)).Value
End Sub
RMS_Risiko_bearbeiten.ComboBox_Risikokategorie_bearbeiten.Value =_
Worksheets("Risiken").Rows(i_bearbeiten).Cells(4)
RMS_Risiko_bearbeiten.ComboBox_Risikogruppe_bearbeiten.Value =_
Worksheets("Risiken").Rows(i_bearbeiten).Cells(5)
Vielen Dank schon einmal im Voraus!
lg