Microsoft Excel

Herbers Excel/VBA-Archiv

Übernahme aus ComboBox in eine Zelle

Betrifft: Übernahme aus ComboBox in eine Zelle von: Andreas
Geschrieben am: 21.10.2014 12:05:17

Hallo zusammen,

bei der Übernahme aus mehreren ComboBox'en bekomme ich eine Fehlermeldung wenn in diesen nicht eingetragen wurde. Sobald ich in den ComboBox'en was eintrage ist alles in Ordnung.

Cells(xZeile, 17) = CDate(ComboBox2 & "." & ComboBox3 & "." & ComboBox4)

Wie und wo muss ich was ändern?

Gruß Andreas

  

Betrifft: AW: Übernahme aus ComboBox in eine Zelle von: Uwe Küstner
Geschrieben am: 21.10.2014 12:57:17

Hallo Andreas,

  If IsNumeric(ComboBox2) And IsNumeric(ComboBox3) And IsNumeric(ComboBox4) Then
    Cells(xZeile, 17).Value = CDate(ComboBox2 & "." & ComboBox3 & "." & ComboBox4)
  End If
Gruß Uwe


  

Betrifft: AW: Übernahme aus ComboBox in eine Zelle von: fcs
Geschrieben am: 21.10.2014 12:59:31

Hallo Andreas,

If IsDate(ComboBox2 & "." & ComboBox3 & "." & ComboBox4) Then
  Cells(xZeile, 17) = CDate(ComboBox2 & "." & ComboBox3 & "." & ComboBox4)
Else
  Cells(xZeile, 17).ClearContents 'oder Cells(xZeile, 17) = ""
End If
Gruß
Franz


  

Betrifft: Super Dankeschön!!! von: Andreas
Geschrieben am: 21.10.2014 13:28:45

Danke!!!


 

Beiträge aus den Excel-Beispielen zum Thema "Übernahme aus ComboBox in eine Zelle"