ich bin verzweifelt am suchen wenn eine UF.Listbox leer ist, dann soll eine Fehler-
Meldung erscheinen.
Habe es mit .value, .text, .Listindex .List probiert geht nicht!
If UF.LSTRG1.AddItem = "" Then
Mldg = MsgBox("Für den Kunden " & Chr(13) & _
UF.CBORG1.Value & Chr(13) & _
"wurde beauftragte Angebote gefunden" & Chr(13) & _
"diese anzeigen?" _
, vbQuestion + vbYesNo, "Angebot beauftragt")
If Mldg = 6 Then GoTo 1
If Mldg = 7 Then
GoTo 2
End If
End If
Danke für Eure Hilfe!
Gruß
Chrissi