Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert 0

Forumthread: Wert 0

Wert 0
Peter
Hallo Forum
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)
Vielleicht hat jemand eine Idee ich mach Feierabend Danke Euch schon mal vorab
Gruß Peter
Anzeige

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

Betreff
Benutzer
Anzeige
versuch es so:
15.04.2010 01:26:36
Oberschlumpf
Hi Peter
If IsNumeric(Label5) And Label5  ""  And Label5 > 0 And Label6  "" Then
Hilfts?
Ciao
Thorsten
AW: Wert 0
15.04.2010 01:34:18
fcs
Hallo Peter,
etwas in dieser Art. 
If IsNumeric(Label5) And Label5  "" And Label6  "" Then
If CDbl(Label5.Caption) = 0 Then
MsgBox "Label15 hat Wert 0"
Label7.Caption = "DIV/0"
Else
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ß
Franz
Anzeige
AW: Wert 0
15.04.2010 22:45:36
Peter
Hallo,
vielen Dank genau sollte es sein
Gruß Peter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige