Zellinhalt in ComboBox übernehmen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Zellinhalt in ComboBox übernehmen
von: Jens
Geschrieben am: 05.07.2002 - 20:42:24


Mit folgendem Code will ich den Text aus der spate 2 der aktiven Zelle ab dem sechsten Zeichen per doppelklick in UserForm in ComboBox1 einfügen.Habe schon längere Zeit versucht aber bisher noch nicht zum laufen bekommen. Wo könnte der Fehler liegen?

Leistungstamm.show
Cancel=True
ComboBox1.Text = Right(ActiveCell.Text, len(ActiveCell.Text)-6)

Vielen Dank im voraus Jens


nach oben   nach unten

Re: Zellinhalt in ComboBox übernehmen
von: L.Vira
Geschrieben am: 05.07.2002 - 21:04:02

Option Explicit
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1 = Mid$(ActiveCell, 6, Len(ActiveCell) - 5)
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellinhalt in ComboBox übernehmen"