Änderung Code gefragt!!!
18.01.2009 16:55:48
Joachim
Folgender Code soll dahingehend geändert werden, dass nicht der User den Zeilenkopf mit dem Bezugsfehler anklickt und löscht, wozu er durch eine MsgBox aufgefordert wird, sondern es
soll automatisch die Zeile gelöscht werden, die einen Bezugsfehler aufweist.
Kann mir jemand den Code anpassen, wäre eine Superache.
Danke Jo.
Public Sub Mitarbeiter_löschen()
Dim TabName As String
TabName = InputBox("Geben Sie den zu löschenden Blattnamen ein:", "Mitarbeiter löschen")
Index2 = 0: For Index = 5 To Worksheets.Count - 2
If Worksheets(Index).Name = TabName Then Index2 = 1
Next
If Index2 = 0 Then TabName = MsgBox("Blattname nicht vorhanden", vbCritical + vbOKOnly): _
Exit Sub
Application.ScreenUpdating = False: ThisWorkbook.Unprotect Password:=Kennwort
Worksheets(TabName).Unprotect Kennwort: Worksheets(TabName).Delete
Worksheets("Listen").Activate
Index2 = MsgBox("Löschen Sie die Zeile mit den Bezugsfehlern !", vbExclamation + vbOKOnly)
End Sub