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