Betrifft: Combobox
von: John
Geschrieben am: 22.10.2008 13:45:07
Hallo Excel-Freunde,
habe ein Problem:
Ich möchte eine Combobox verwenden, um in eine Zelle bestimmte Zahlen zu übertragen.
Bei der Auswahl einer Zahl wird diese zwar in die "LinkedCell" übertragen,
jedoch in Textformat und nicht als Zahl.
Ist es möglich den übetragenen Wert generell als Zahl zu formatieren ?
Vielen Dank im voraus.
John
Betrifft: AW: Combobox
von: Chris
Geschrieben am: 22.10.2008 14:04:32
Servus,
soweit ich weiß, wird bei LinkedCell immer Text übertragen, deswegen würde ich das per Change-Makro lösen:
Private Sub ComboBox1_Change() If ComboBox1 = "" Then Exit Sub If ComboBox1 = "-" Then If Len(ComboBox1) = 1 Then Exit Sub End If If IsNumeric(ComboBox1) Then Range("A1") = CDbl(ComboBox1) Else Range("A1") = "" ComboBox1 = "" End If End Sub
Das Makro verhindert gleich noch die Eingabe nicht numerischer Werte.
Gruß
Chris
Betrifft: AW: kleine Nachbesserung
von: Chris
Geschrieben am: 22.10.2008 14:27:28
Servus John,
Private Sub ComboBox1_Change() If ComboBox1 = "" Then Range("D1") = "": Exit Sub If ComboBox1 = "-" Then If Len(ComboBox1) = 1 Then Exit Sub End If End If If ComboBox1 Like "*.*" Then ComboBox1 = "": Range("D1") = "" If ComboBox1 Like "*-" Then ComboBox1 = "": Range("D1") = "" If IsNumeric(ComboBox1) Then Range("D1") = CDbl(ComboBox1) Else Range("D1") = "" ComboBox1 = "" End If End Sub
Gruß
Chris
Betrifft: AW: kleine Nachbesserung
von: John
Geschrieben am: 22.10.2008 14:51:50
Hallo Chris,
funktioniert einwandfrei !
Vielen Dank
John