nalic

Hallo,

ich bin neu hier und wenig bis keine Vba-Kenntnisse. Ich hoffe auf eure Hilfe.
Ich habe folgendes problem:
Ich habe ein Arbeitsblatt mit zwei Tabellenblättern.
1.Tabellenblatt "Aufgaben"
2.Tabellenblatt "erledigte Aufgaben"
Tabellenblatt "Aufgaben" hat einen Bereich von B6 bis J40, also jede Zeile 8 Zellen.
 In jeder Zeile steht eine  zu erledigende Aufgabe. Wenn eine Aufgabe erledigt ist, soll diese Zeile ausgeschnitten und ins Tabellenblatt "erledigte Aufgaben" eingefügt werden. Voraussetzung dafür soll aber sein, dass alle Zellen aus den Spalten B,C,D , H und I in der Zeile der gewählten Zelle ausgefüllt sein müssen. Wenn dies nicht zutrifft, soll die Meldung "Bitte vollständig ausfüllen" erscheinen. Ich habe folgendes hinbekommen.
Danke für die Hilfe im Voraus.

Sub Ausschneiden_Schadwagen()
    If IsEmpty(ActiveCell.Value) = True Then
    MsgBox ("Bitte eine ausgefüllte Zelle wählen")
    Exit Sub
    End If
    For Each Sheet In ActiveWorkbook.Worksheets
    Next Sheet
    If MsgBox("Willst du die Daten wirklich ins Archiv verschieben?", vbYesNo, "Tages-Sonderaufgaben") = vbYes Then
    Application.ScreenUpdating = False
    For Each Sheet In ActiveWorkbook.Worksheets
    Sheet.Unprotect Password:="k28801"
    Next Sheet
    ActiveCell.EntireRow.Cut
    Sheets("erledigte Schadwagen_Frist").Rows("6:6").Insert Shift:=xlUp
    ActiveCell.EntireRow.Delete
    Rows("40").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B6").Select
    For Each Sheet In ActiveWorkbook.Worksheets
    Sheet.Protect Password:="k28801"
    Next Sheet
    End If
    End Sub