Wert 0
Peter
ist schon spät aber ich hät noch was
Mit einen Makro befülle ich eine Userform, die mir eine kleine Grafik in der Userform erstellt.
Mit Comboxen wähle ich aus einer Tabelle Werte aus.
Jetzt das Problem wenn der Wert 0 ist bekomme ich eine Daten angezeigt sondern mein Makro läuft auf Fehler
Ob man hier eine Prüfung einbauen kann "Wenn Wert=0 Dann gehe weiter und zeichne das Diagramm oder so
Kann leider die ganzed datei nicht hochladen (datenschutz) umbau zu groß
Hier der Makroauszug:
Private Sub ComboBox2_Change()
Call FuellLabel
Label10.ForeColor = &HFFFFFF
Label11.ForeColor = &HFFFFFF
Label12.ForeColor = &HFFFFFF
ab dieser Zeile steht das Makro, weil wert =O
If IsNumeric(Label5) And Label5 "" And Label6 "" Then
Label7.Caption = Format(CDbl(Label6) / CDbl(Label5), "0.00%")
If CDbl(Label6) / CDbl(Label5) >= 1 Then Label12.ForeColor = &HFF00&
If CDbl(Label6) / CDbl(Label5) = 0.98 Then Label10. _
ForeColor = &HFFFF&
If CDbl(Label6) / CDbl(Label5) Gruß Peter