Herbers Excel/VBA-Archiv

Combobox | Herbers Excel-Forum

• Combobox von John vom 22.10.2008 13:45:07
• AW: Combobox - von Chris am 22.10.2008 14:04:32
  • AW: kleine Nachbesserung - von Chris am 22.10.2008 14:27:28
    • AW: kleine Nachbesserung - von John am 22.10.2008 14:51:50

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

Beiträge aus den Excel-Beispielen zum Thema "Combobox"