Ich arbeite mit einem Muster aus der (übrigens ausserordentlich guten) Beispielsammlung auf Herber's CD. (Datei 148001v.xls).
Der untenstehende Code wählt die in der Listbox markierte Zelle an. Ist aber in der List Box nichts markiert, dann stürzt das Programm ab. Ich möchte nun aber statt des Absturzes eine Meldung "bitte eine Zelle auswählen".
Für Euere Hilfe wäre ich sehr dankbar.
Gruss
Tinu
Private Sub cmdAuswahl_Click()
Dim iCounter As Integer
Dim sTxt As String
For iCounter = 0 To lstAuswahl.ListCount - 1
If lstAuswahl.Selected(iCounter) Then
sTxt = sTxt & lstAuswahl.List(iCounter) & ","
End If
Next iCounter
sTxt = Left(sTxt, Len(sTxt) - 1)
Range(sTxt).Select
End Sub