Hallo nochmal.
Ich habe eine Combobox und möchte bei einer auswahl, das die Zellen daneben ebenfalls mit übertragen werden.
Beispiel:
Ich wähle in der combobox (Suchwert C10:C20) den Wert „Tor“ an
Jetzt überträgt mir die Combobox den Wert in Zelle A1. (Suchwert stand z.B. in Zelle C15)
Ich möchte jetzt aber, das im Zuge dieses gleich die beiden Zellen daneben (in diesem Fall C16 und C17) in A2 und A3 übertragen werden.
Ist dies machbar?
Danke
Ich wähle in der combobox (Suchwert C10:C20) den Wert „Tor“ an
Jetzt überträgt mir die Combobox den Wert in Zelle A1.
(Suchwert stand z.B. in Zelle C15)
Ich möchte jetzt aber, das im Zuge dieses gleich die beiden
Zellen daneben (in diesem Fall C16 und C17) in A2 und A3
übertragen werden.
Hallo Anton,
nutze das Change-Ereignis des Tabellenblattes und werte aus ob target=A1 ist.
Oder das Change-Ereignis der Combobox.
Aus dem Index des gewählten Eintrages in der Combobox kannnst du ja die Zeilennummern in C berechnen die du für A2 und A3 brauchst.
Kommste damit hin?
Gruß
Reinhard
Hallo Reinhard.
Danke für deine Hilfe.
Aber leider weiß ich (überhaupt) nicht, wie ich deinen Tipp umsetzen kann.
Kannst du es mir etwas näher erklären?
Währe dir sehr dankbar dafür.
Mfg KA
Aber leider weiß ich (überhaupt) nicht, wie ich deinen Tipp
umsetzen kann.
Hallo Anton,
versuch mal bitte Codes die du bekommst zu verstehen.
Dazu zerleg die Codes
Bau in den Code ein
msgbox Range(„A2“)
msgbox Range(„A2“).Value
msgbox Range(„A2“).Address
msgbox Range(„A2“).text
Das Gleiche für listindex:
msgbox ComboBox1.ListIndex
und
msgbox Range(„C10“).Offset(5, 0)
msgbox Range(„C10“).Offset(5, 0).text
msgbox Range(„C10“).Offset(5, 0).address
usw.
Anstatt msgbox kannst du auch debug.print nehmen und dich im Editor mit dem Direktfenster und auch lokalfenster anfreunden.
Setze ggfs. dazu in der obersten Codezeile einen haltepunkt, dann geh den Code mit F8 durch.
Und versuche zu verstehen warum bei einigen Zeilen Fehler auftreten.
Private Sub ComboBox1_Change()
Range(„A2“) = Range(„C10“).Offset(ComboBox1.ListIndex + 1, 0)
Range(„A3“) = Range(„C10“).Offset(ComboBox1.ListIndex + 2, 0)
End Sub
Gruß
Reinhard
Danke
Hallo Reinhard.
Danke für dein Hilfe.
Genau diese Tips habe ich benötigt.
Msgbox range(„B10“).offset(0, 2)
Ich weiß, das auf dich immer Verlass ist
(Du hilfst mir immer wieder weiter, und dafür danke ich dir sehr)