namen finden und komplette zeile löschen
08.05.2006 15:17:13
selo
habe da dieses makro gefunden
Private Sub cmdNameSearch_Click()
Dim Zelle As Range
Dim Name As String
Name = InputBox("Bitte Namen eingeben!")
If Name = "" Then Exit Sub
ActiveSheet.Range("A15:b65536").Select
For Each Zelle In Selection
If Zelle = Name Then
Zelle.Select
Zelle.Interior.ColorIndex = 3
Exit Sub
End If
Next Zelle
MsgBox "Name nicht vorhanden!"
End Sub
mein problem ist ich nicht weiß wie ich es ändern muß damit es bis zur letzten gefüllten zelle in spalte a (ab a15) den namen sucht und die komplette Zeile in der der name vorkommt gelöscht wird.
mfg
Selo