Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox

Combobox
22.10.2008 13:45:07
John
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox
22.10.2008 14:04:32
Chris
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

AW: kleine Nachbesserung
22.10.2008 14:27:00
Chris
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

Anzeige
AW: kleine Nachbesserung
22.10.2008 14:51:50
John
Hallo Chris,
funktioniert einwandfrei !
Vielen Dank
John

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige