"Unzlässige Verwendung von Null"
06.07.2004 18:27:07
Franz W.
ich habe in einer UF eine Listbox und einen Button. Nach dem Öffnen der UF ist in der Listbox noch kein Wert ausgewählt. Wenn ich nun den Button mit u.s. Code drücke, ohne eine Wert der Listbox ausgewählt zu haben, kommt bei der Zeile
strName = listAuswahl.Value
die Meldung : "Unzlässige Verwendung von Null"
Versuche jetzt das abzufangen indem ich abfrage, ob ein Wert der Liste angeklickt wurde, weiß aber nicht wie, meine Versuche werden übergangen. Hier der Code:
Sub auswaehlen_markieren()
Dim strName As String
Dim cFound As Range
'''' Alle drei Abfragen sind falsch, sie werden übergangen:
If listAuswahl.Value = Null Then
If listAuswahl.Value = 0 Then
If listAuswahl.Value = ""Then
MsgBox "Keine Auswahl getroffen!"
Exit Sub
End If
strName = listAuswahl.Value
Set cFound = Range(Cells(1, 3), Cells(iRowL, 3)).Find(strName, LookIn:=xlValues)
If Not cFound Is Nothing Then cFound.Select
Unload dlgEinzelrechnung
MsgBox "Soll für [ " & cFound & " ] eine Einzelrechnung geschrieben werden?"
End Sub
Ich bitte euch um eure Hilfe.
Vielen Dank im Voraus
Franz