Microsoft Excel

Herbers Excel/VBA-Archiv

Fehlermeldung in Zelle


Betrifft: Fehlermeldung in Zelle von: Thomas
Geschrieben am: 11.07.2017 12:09:19

Hallo

Ich schreibe via VBA Code einen Wert in eine zelle.
Jedoch bekomme ich in der Zelle einen fehler bzw. eine grüne Markierung.
mit der Option, Wert in Zahl umwandeln funktionieren auch dann die Makros auf den anderen Tabellenblättern.

Woran liegt das?

Danke für die Hilfe.

gruß
Thomas

Hier mal die VBA Codes

Private Sub Combobox18_Change()

Worksheets("Tabelle2").Range("H28").Value = Me.ComboBox18

End Sub

und als Auswahl:

ComboBox18.AddItem ("5.000")
ComboBox18.AddItem ("10.000")
ComboBox18.AddItem ("15.000")
ComboBox18.AddItem ("20.000")
ComboBox18.AddItem ("25.000")
ComboBox18.AddItem ("30.000")
ComboBox18.AddItem ("35.000")
ComboBox18.AddItem ("40.000")
ComboBox18.AddItem ("45.000")
ComboBox18.AddItem ("50.000")
ComboBox18.AddItem ("55.000")
ComboBox18.AddItem ("60.000")
ComboBox18.AddItem ("65.000")
ComboBox18.AddItem ("70.000")
ComboBox18.AddItem ("75.000")
ComboBox18.AddItem ("80.000")
ComboBox18.AddItem ("85.000")
ComboBox18.AddItem ("90.000")
ComboBox18.AddItem ("95.000")
ComboBox18.AddItem ("100.000")
ComboBox18.AddItem ("110.000")
ComboBox18.AddItem ("120.000")
ComboBox18.AddItem ("130.000")
ComboBox18.AddItem ("140.000")
ComboBox18.AddItem ("150.000")
ComboBox18.AddItem ("160.000")
ComboBox18.AddItem ("170.000")
ComboBox18.AddItem ("180.000")
ComboBox18.AddItem ("190.000")

  

Betrifft: AW: Fehlermeldung in Zelle... von: hary
Geschrieben am: 11.07.2017 12:30:38

Moin Thomas
...weil du Text uebergibst.
Mach 'ne Zahl draus.

 = Clng(Me.ComboBox18)

sollte helfen.
gruss hary


  

Betrifft: AW: Fehlermeldung in Zelle... von: Thomas
Geschrieben am: 11.07.2017 12:52:11

Prima.
Danke schön.


Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung in Zelle "