prüfen, ob in der listbox ein eintrag selektiert ist.

24/06/2010 - 17:13 von hotzi | Report spam
hallo zusammen,

folg code liest die werte einer listbox aus. was mir noch fehlt, ist
eine vorausgehende prüfung, dass überhaupt ein eintrag selektiert
worden ist.

Private Sub lbxVerfAuslesen()
Dim Start As Long
Dim j As Integer

Start = 15
'MsgBox letzteZeile

For j = 0 To lbxVerf.ListCount - 1
If lbxVerf.Selected(j) = True Then
Cells(Start, Sp1) = lbxVerf.List(j)
Start = Start + 1
End If
Next j
End Sub


freue mich auf eine antwort klaus
 

Lesen sie die antworten

#1 Andreas Killer
24/06/2010 - 18:30 | Warnen spam
Am 24.06.2010 17:13, schrieb hotzi:

folg code liest die werte einer listbox aus. was mir noch fehlt, ist
eine vorausgehende prüfung, dass überhaupt ein eintrag selektiert
worden ist.


Da gibt's nix, das kannst Du nur so machen wie Du es schon hast, bzw.
es in eine Function übertragen.

Andreas.

Function ListBoxItemSelected(ByVal L As MSForms.ListBox) As Boolean
Dim I As Integer
For I = 0 To L.ListCount - 1
If L.Selected(I) Then
ListBoxItemSelected = True
Exit Function
End If
Next
End Function

Ähnliche fragen