Teil einer Zeile Löschen
09.11.2005 07:28:32
egon
Ich habe eine Listbox1 daraus wähle ich einen Eintrag aus.
Mit dem Command Button möchte ich den gefundenen Namen, Vornamen usw. löschen.
Die Einträge befinden sich von B3 bis E80.
Mit diesem Code lösche ich die ganze Zeile, ich möchte aber nur den Inhalt von B bis E löschen. Daneben stehen Werte drin die ich nicht löschen darf.
Private Sub CommandButton1_Click()
'############## Eintrag löschen ######################################
Dim cell
Worksheets("Passworttbl").Unprotect ("m")
For Each cell In Range("B3:E80")
If cell.Text = TextBox1.Text Then
cell.Select
Rows(Selection.Row).Select
End If
Next
Selection.ClearContents
Selection.Delete Shift:=xlUp
'Application.CutCopyMode
Worksheets("Passworttbl").Protect ("m")
End Sub
Vielen Dank im Voraus
Egon