if-Funktion mit do while loop
Rocco
irgendwie komm ich nicht weiter.
Mein Ziel:
Ich möchte alle Werte in Spalte 29 überprüfen und wenn "Ist-2009" drin steht soll die ganze Zeile gelöscht werden, außer in Spalte 28 steht "Mitarbeiter+" oder "Mitarbeiter-".
Meine Tabelle geht erst ab Zelle A4 los (daher auch i = 4, siehe code).
vielleicht kann mir wer bei dem code helfen, weil irgendwie funktioniert der nicht:
Sub Ist2009Del()
Dim i As Integer
Dim txt As Variant
Dim prfg As Variant
Dim prfg2 As Variant
i = 4
txt = Cells(4, 1)
Do While (txt "")
prfg = Cells(i, 29)
If prfg = "Ist-2009" Then
prfg2 = Cells(i, 28)
Select Case (prfg2)
Case "Mitarbeiter+"
i = i + 1
Case "Mitarbeiter-"
i = i + 1
Case Else
Rows(i).delete
End Select
End If
Loop
End Sub
ich hoffe, es kennt sich wer aus und kann mir vielleicht aus meiner Misere helfen.
Vielen lieben Dank und schönen Tag noch
LG
rocco