If-Funktion

Dim zelle As range For Each zelle In Sheets("flat").range("a4:ag" & Cells(Rows.Count, 1).End(xlUp).Row) If zelle.Interior.ColorIndex = 35 And zelle = "Ist-2009" Then zelle.EntireRow.delete End If Next zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

With Sheets("flat") For Each zelle In .Range("a4:ag" & .Cells(.Rows.Count, 1).End(xlUp).Row) If zelle.Interior.ColorIndex = 35 And .Cells(zelle.Row, 29) = "Ist-2009" Then zelle.EntireRow.Delete End If Next zelle End With

...Code, Rocco,
und bauen darum herum einen Zeilenzyklus und eine Abbruchvariable ein...

Const vorzl As Long = 3, vglsp As Long = 29, anfsp As Long = 1, endsp As Long = 33
Dim bzanz As Long, zz As Long, bereich As Range, zelle As Range
With Sheets("flat")
Set bereich = .Range(.Cells(vorzl + 1, anfsp), _
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, endsp))
bzanz = bereich.Rows.Count
For zz = 1 To bzanz
If zz > bzanz Then Exit For
If .Cells(vorzl + zz, vglsp) = "Ist-2009" Then
For Each zelle In bereich.Rows(zz)
If zelle.Interior.ColorIndex = 35 Then
zelle.Row.EntireRow.Delete: bzanz = bzanz - 1: zz = zz - 1: Exit For
End If
Next zelle
End If
Next zz
End With
Set bereich = Nothing: Set zelle = Nothing

Das ist so notwendig, weil sich der äußere Zyklus nicht selbst korrigiert. Der Wert der Endvariablen bzanz wird nur 1x am Anfang zyklusrelevant festgestellt. Die späteren Verminderungen wdn von der Zyklusregie ignoriert. Deshalb muss der Abbruch am Anfang rein — die Schleife läuft sonst sinnlos weiter bis zz den ursprgl Wert von bzanz erreicht hat. Die Konstanten am Anfang erleichtern evtl spätere Korrekturen. Man muss nicht das ganze Pgm durchsuchen, wenn die sich mal ändern sollten...
Am PgmEnde bzw, wenn sie nicht mehr gebraucht wdn, gibt man Objektvariablen frei. Bei Objekten als Laufvariable in Zyklen wäre das nicht notwendig, wenn der Zyklus zu einem normalen Ende kommt. Da er hier aber idR abgebrochen wird, bleibt die Variable zelle weiter besetzt und muss deshalb auch Nothing gesetzt wdn.
Gruß Luc :-?

'Parameter aktivieren Application.Calculation = xlCalculationManual Application.Interactive = False Application.ScreenUpdating = False Const vorzl As Long = 3, vglsp As Long = 29, anfsp As Long = 1, endsp As Long = 33 Dim bzanz As Long, zz As Long, bereich As range, zelle As range With Sheets("flat") Set bereich = .range(.Cells(vorzl + 1, anfsp), _ .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, endsp)) bzanz = bereich.Rows.Count For zz = 1 To bzanz If zz > bzanz Then Exit For If .Cells(vorzl + zz, vglsp) = "Ist-2009" Then For Each zelle In bereich.Rows(zz) If zelle.Interior.ColorIndex = 35 Then zelle.EntireRow.delete: bzanz = bzanz - 1: zz = zz - 1: Exit For End If Next zelle End If Next zz End With Set bereich = Nothing: Set zelle = Nothing 'Parameter deaktivieren Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.Interactive = True End Sub

...Originalcode gerichtet, Rocco,
würde aber normalerweise Makros, die irgendwas löschen lieber vorher testen. Geht jetzt aber nicht! Muss ich also nochmal durchgehen, da es ja ohnehin ursprgl nicht meinem Pgmierstil entsprach. Üblicherweise lässt man solche Löschschleifen auch von hinten nach vorne durchlaufen (da hat Hajo recht!), also hier von zz = bzanz To 1 Step -1 und braucht dann idR keine Abbruchvariable und keine Zählerverminderung. Wenn das dein Problem lösen sollte, versuch's mal so! Wenn's dann immer noch nicht klappt, müsstest du mal genau sagen, was nicht klappt. Teste dazu mal schrittweise (z.B. Prozedurschritt im Debugger) oder/und setze Haltepkte (Klick auf linken Editorrand bzw Hand-Symbol).
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread