Zeile löschen wenn Bedingung erfüllt
21.01.2015 11:41:40
Christian
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
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