Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code hile !!

Code hile !!
Lucas
hallo,
habe ein code in dem ich nach bestimmten krieterien abfrage das makro soll nach alle drei kriterien suchen und dann die entsprechende zeilen löschen.
es klappt alles bis auf die kriterien ich muss nach beendigung des erstes laufes des makros nochmal zweimal starten bis er alle entsprechende zeilen gelöscht hat.
könnt Ihr mir sagen wo mein fehler ist
Gruss
Lucas

Sub Makro1()
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
A = LastCell.Row
Do While Application.CountA(Rows(A)) = 0 And A <> 1
A = A - 1
Loop
lzeile = A
For t1% = 1 To lzeile
If Range("a" & t1%) = "summe" And Range("o" & t1%) > 50 Or Range("a" & t1%) = "summe" And Range("q" & t1%) > 0 = "summe" And Range("o" & t1%) < -50 Then
st$ = Range("a" & t1% - 1)
Rows("" & t1% & ":" & t1%).Select
Selection.Delete Shift:=xlUp
lzeile = lzeile - 1
For et% = lzeile To 1 Step -1
If Range("a" & et%) = st$ Then
Rows("" & et% & ":" & et%).Select
Selection.Delete Shift:=xlUp
leile = lzeile - 1
End If
Next et%
End If
Next t1%
Range("a1").Select
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code hile !!
PeterW
Hallo Lucas,
bau eine For-Next Schleife, die rückwärts läuft:
For Zaehlvariable = A to 2 Step - 1
Gruß
Peter
AW: Code hile !!
PeterW
Hallo Lucas,
überprüfe außerdem die Bedingung:
If Range("a" & t1%) = "summe" And Range("o" & t1%) &gt 50 Or Range("a" & t1%) = "summe" And Range("q" & t1%) &gt 0 = "summe" And Range("o" & t1%) &lt -50 Then
Die And und Or stellen wirklich die gewünschten Bedingungen dar? Vielleicht helfen einige Klammern.
Gruß
Peter


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige