Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1052to1056
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
Fehlermeldung, wenn keine Daten vorhanden
24.02.2009 11:34:13
Josef
Hallo!
Wenn in die ListBox10 Daten eingelesen werden, dann würde der code unten passen.
Wenn jedoch aufgrund nicht vorhandener Daten keine Daten eingelesen werden, dann erhalte ich in der Zeile
Label181.Caption = Label167.Caption - Label168.Caption
eine Fehlermeldung: Typen unverträglich
Wie kann ich bitte diese Fehlermeldung umgehen?
Am Anfang des gesamten Codes habe ich schon On Error Resume Next stehen und bekomme trotzdem diese Fehlermeldung.
Label167.Caption = ListBox10.ListCount
If cboNamen3.Value = True Then
For i = 0 To ListBox10.ListCount - 1
n = n - (Len(ListBox10.List(i, 7)) > 0)
Next i
Label168 = n
Label181.Caption = Label167.Caption - Label168.Caption
Else
If cboNamen3.Value = False Then
Exit Sub
End If
End If
Danke
Josef

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung, wenn keine Daten vorhanden
24.02.2009 11:38:25
Renee
Hi Josef,
Zitat: "Am Anfang des gesamten Codes habe ich schon On Error Resume Next stehen..."
Das ist die wohl tödlichste Art, richtigen Code zu schreiben! Wirf diesen Befehl schnellstens raus und geh den Ursachen auf den Grund! Dazu gibts Debugger, Überwachungsfenster, Direkfenster im VBE.
Versuch es mal so:

Label181.Caption = VAL(Label167.Caption) - VAL(Label168.Caption)


GreetZ Renée

AW: Fehlermeldung, wenn keine Daten vorhanden
24.02.2009 11:58:50
Josef
Hallo Renee!
Danke für Deine Antwort und Deine Hilfe.
Hat mir geholfen.
Schönen Tag noch
Josef
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige