Ich habe eine UserForm mit einer ComboBox. Diese wird mit den Werten einer bestimmten Spalte gefüllt. Wenn ich nun einen Wert auswähle und den "Enter" Knopf der UserForm drücke, soll diejenige Zeile gelöscht werden, in der der ausgewählte Wert vorkommt. Dies funktioniert auch, solange es sich um Text handelt. In der entsprechenden Spalte können aber auch Zahlen vorkommen. Wenn ich aber eine Zahl auswähle, dann wird die Zeile nicht gelöscht.
Ist mir noch zu helfen..? ;)
Diesen Code habe ich mir zusammengebastelt:
' Zeile löschen
Worksheets("Sheet1").Select
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match(CStr(ComboBox3), Rows(iRow), 0)
If Not IsError(var) Then
'MsgBox "do you really want to remove WP " & CStr(ComboBox3)
Rows(iRow).Delete
End If
Next iRow
besten Dank für Euere Hilfe
Gruss
Tinu