ich habe ein scheinbar sehr einfaches Problem:
Ich suche über ein Userform in Combobox1 einen Wert aus.
Dann möchte ich über einen Commandbutton, dass der Wert im Tabellenblatt "Couponbelegung" Spalte a
gesucht wird und wenn er gefunden wird, soll in der gleichen Zeile die Werte aus Spalte B und C löschen.
Ich habe folgenden Code:
Private Sub CommandButton1_Click()
Dim LoZeile As Long
With Worksheets("Couponbelegung")
For LoZeile = 8 To 52
If LoZeile = ComboBox1.Value Then
Cells(LoZeile, 2).ClearContents
Cells(LoZeile, 3).ClearContents
End If
Next LoZeile
End With
End
End Sub
Nur leider funktioniert der Code nicht.
Weiß jemand von euch warum?
Über eine Antwort würde ich mch sehr freuen.
Viele Grüße,
Jeron