Zeile löschen wenn Bedingung erfüllt

Hallo zusammen,
ich würde eine Änderung an meinem Makro haben. Leider habe ich keine Ahnung wie ich das machen soll.
Mit dem Modul mdl_loeschen, was über die Schaltfläche Löschen gestartet wird. werden alle Zeilen gelöscht welche ein Häckchen in Spalte W haben.
Hier der Code:

Sub Loeschen()
Application.ScreenUpdating = False
Dim rngZelle As Range
Dim i As Integer
For i = 1 To 3 '3 Versuche
If InputBox("Das LÖSCHEN der Aufträge ist nur mit Passwort möglich - 24568") = "24568"  _
Then
Dim intBlatt As Integer
Dim lngZeile As Long
For intBlatt = 1 To 1 ' nur in der ersten Tabelle löschen ***
With Sheets(intBlatt)
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp). _
Row, Rows.Count)
For lngZeile = loLetzte To 5 Step -1 ' Löschen in Zeile 5 bis 1000 ***
If .Cells(lngZeile, "W") = "a" Then ' Suchen in Spalte W nach "a" ***
.Rows(lngZeile).Delete
End If
Next
End With
Next
Exit For
Else
MsgBox "Falsches Passwort"
End If
If i = 3 Then Exit Sub
Next
Application.ScreenUpdating = True
End Sub

Neu 1:
Es soll erst gelöscht werden wenn alle Positionen des Auftrags ein Häckchen in Spalte W haben.
Beispiel:
Der Auftrag 10122 darf noch nicht gelöscht werden, weil einige positionen noch keinen Hacken in Spalte W haben. Der Auftrag 11075 darf aber gelöscht werden. Es haben beide Positionen ein Hacken in Spalte W.
Neu 2: (Wenn möglich lieber diese Möglichkeit)
Nach klicken der Schaltfläche muss man die Auftragsnummer eingeben, welche man löschen will. Es muss dann geprüft werden ob alle Positionen einen Hacken in Spalte W haben. Wenn die der Fall ist soll eine Meldeung kommen "Auftrag gelöscht". Wenn nicht alle Positionen ein Hacken in Spalte W haben muss einen Meldung kommen das der Auftrag noch nicht komplett erledigt ist.
Die Musterdatei ist hier:
https://www.herber.de/bbs/user/95138.xlsm
Vielen Dank

Hi
eine Bitte: was du da in Spalte W stehen hast, sind Haken und keine Hacken.
Hacken hasst du an den Füssen oder ggf im Keller bei den Gartengeräten.
ich würde hier in einer Hilfsspalte per Formel die Zellen markieren, die gelöscht werden können.
bei kleineren Datenmengen kommt hierzu in Zelle X5 bis zum Tabellenende:
=WENN(ZÄHLENWENN(B:B;B5)=ZÄHLENWENNS(B:B;B5;W:W;"a");WAHR;0)
bei wenn die Tabelle nach Auftragsnummer sortiert ist, kannst du so den Rechenaufwand reduzieren:
=WENN(B4=B5;X4;WENN(ZÄHLENWENN(B:B;B5)=ZÄHLENWENNS(B:B;B5;W:W;"a");WAHR;0))
beim Löschen kannst du dann alle Zeilen löschen die in Spalte X mit WAHR gekennzeichnet sind.
das geht per Code so:

If Worksheetfunction.CountIf(Range("X:X"), True) > 0 Then
Range("X:X").SpecialCells(xlcelltypeformulas, 4).EntireRow.Delete
End If

wenn die Hilfsspalte beim normalen Umgang mit der Tabelle stört, kannst du sie auch per Code temporär einfügen.
Sieht als GesamtCode dann so aus (Tabelle nach Auftrag sortiert):

Sub LöschenX()
With ActiveSheet.Range("X5:X" & Cells(Rows.Count, 1).End(xlUp).Row)
.FormulaR1C1 = _
"=IF(RC2=R[-1]C2,R[-1]C,IF(CountIf(C2,RC2)=CountIfs(C2,RC2,C[-1],""a""),True,""""))"
.Formula = .Value
If WorksheetFunction.CountIf(.Cells, True) > 0 Then
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End If
.ClearContents
End With
End Sub

gruß Daniel

Zeile löschen wenn Bedingung erfüllt

Forumthread: Zeile löschen wenn Bedingung erfüllt

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial