Fehlermeldung
24.08.2007 15:56:34
Birgit
Ich habe gleich noch eine 2. Baustelle _ Fehlermeldung "End With ohne With". Kann mir bitte jemand diese Fehlermeldung erklären?
Der Code soll folgendes bewirken: über verschiedene Optionbuttens kann eine Kategorie ausgewählt werden. Danach sollen alle zu dieser Kategorie gehörenden Artikel in der Listbox angezeigt werden. Anscheinend habe ich mich irgendwo "verdaddelt". Im Moment verstehe ich jedenfalls absolut nicht, was der Compiler von mir will.... Hilfe!
Gruß Birgit
Hier ist der Code:
Private Sub cmdArtGruppeSuchen_Click()
'Suchen nach Artikeln einer Artikelgruppe
Dim s As String
Dim i As Integer
With UserFormSuchen
.ListBox1.Clear
If OptionButton1.Caption = True Then
s = OptionButton1.Caption
If OptionButton2.Caption = True Then
s = OptionButton2.Caption
If OptionButton3.Caption = True Then
s = OptionButton3.Caption
If OptionButton4.Caption = True Then
s = OptionButton4.Caption
If OptionButton5.Caption = True Then
s = OptionButton5.Caption
If OptionButton6.Caption = True Then
s = OptionButton6.Caption
If OptionButton7.Caption = True Then
s = OptionButton7.Caption
If OptionButton8.Caption = True Then
s = OptionButton8.Caption
If OptionButton9.Caption = True Then
s = OptionButton9.Caption
If OptionButton10.Caption = True Then
s = OptionButton10.Caption
End If
Sheets("Artikel-DB_VKF").Activate
Range("E9").Select
i = 0
Do Until ActiveCell.Value = ""
If InStr(ActiveCell.Value, s) > 0 Then
.ListBox1.AddItem ActiveCell.Value
.ListBox1.Column(1, i) = ActiveCell.Offset(0, -1).Value
.ListBox1.Column(2, i) = ActiveCell.Offset(0, 2).Value
.ListBox1.Column(3, i) = ActiveCell.Offset(0, 3).Value
.ListBox1.Column(4, i) = ActiveCell.Offset(0, 4).Value
.ListBox1.Column(5, i) = ActiveCell.Offset(0, 8).Value
.ListBox1.Column(6, i) = ActiveCell.Offset(0, 9).Value
.ListBox1.Column(6, i) = ActiveCell.Offset(0, 10).Value
i = i + 1
Else
End If
ActiveCell.Offset(1, 0).Select
Loop
End With
End Sub