11.02.2018, 19:26
Hallo zusammen,
ich bin nach einiger Bastelei zu dem Entschluss gekommen mein Problem mit Euch zu teilen, da ich damit nicht weiterkomme.
Ich möchte wie der Betreff schon vermuten lässt, ein Kombinationsfeld (über ActiveX-Steuerelemente) erstellen, dass mir zwei Ausgabewerte ausspuckt. Das Prinzip der Kombinationsfelder habe ich verstanden, über Einstellungen bekomme ich eigentlich alles was ich möchte. Leider gibt es nur die Möglichkeit eine "LinkedCell" einzustellen. Ich habe dazu mal eine Beispieldatei angehängt. Nach einiger Suche habe ich einen Code im Internet gefunden, der das lösen soll, komme damit aber nicht so wirklich zurecht:
"Private Sub Combobox1_change()
Dim strResult as String
strResult = Combobox1.Value
Select Case strResult
Case "One"
Range("A5").Value = "User"
Range("B5").Value = "chose"
Range("C5").Value = "One"
Case "Two"
Range("A5").Value = "User"
Range("B5").Value = "chose"
Range("C5").Value = "Two"
End Select
End Sub"
Habt ihr dazu noch eine Idee ?
Weiterhin versuche ich herauszufinden, ob es die Möglichkeit gibt, dass die komplette ausgewählte Zeile aus dem Kombinationsfeld auch zu sehen ist, nachdem ich es ausgewählt habe. Denn sonst sieht man nur die erste Zahl der jeweiligen Zeile im Kombinationsfeld.
Ich hoffe das war einigermaßen verständlich. Besten Dank im Voraus und schönen Abend
Dralf
ich bin nach einiger Bastelei zu dem Entschluss gekommen mein Problem mit Euch zu teilen, da ich damit nicht weiterkomme.
Ich möchte wie der Betreff schon vermuten lässt, ein Kombinationsfeld (über ActiveX-Steuerelemente) erstellen, dass mir zwei Ausgabewerte ausspuckt. Das Prinzip der Kombinationsfelder habe ich verstanden, über Einstellungen bekomme ich eigentlich alles was ich möchte. Leider gibt es nur die Möglichkeit eine "LinkedCell" einzustellen. Ich habe dazu mal eine Beispieldatei angehängt. Nach einiger Suche habe ich einen Code im Internet gefunden, der das lösen soll, komme damit aber nicht so wirklich zurecht:
"Private Sub Combobox1_change()
Dim strResult as String
strResult = Combobox1.Value
Select Case strResult
Case "One"
Range("A5").Value = "User"
Range("B5").Value = "chose"
Range("C5").Value = "One"
Case "Two"
Range("A5").Value = "User"
Range("B5").Value = "chose"
Range("C5").Value = "Two"
End Select
End Sub"
Habt ihr dazu noch eine Idee ?
Weiterhin versuche ich herauszufinden, ob es die Möglichkeit gibt, dass die komplette ausgewählte Zeile aus dem Kombinationsfeld auch zu sehen ist, nachdem ich es ausgewählt habe. Denn sonst sieht man nur die erste Zahl der jeweiligen Zeile im Kombinationsfeld.
Ich hoffe das war einigermaßen verständlich. Besten Dank im Voraus und schönen Abend
Dralf