Nachfolgende Zeilen löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Loeschen() Dim LoLetzte As Long Dim Loi As Long Dim LoJ As Long LoJ = 2 LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _ Count) For Loi = 2 To LoLetzte If Cells(Loi, 1) = "" Then Rows(Loi).Delete If Cells(Loi, 1) = Cells(Loi - 1, 1) Then Rows(Loi).Delete Loi = Loi - 1 LoJ = LoJ + 1 If LoJ > LoLetzte Then Exit For End If Next Loi End Sub

Sub EntferneDoppel() Dim intClose As Integer Dim intOpen As Integer Dim intMax As Integer intRow = 1 intMax = Cells(Rows.Count, 1).End(xlUp).Row For intRow = 1 To intMax If Cells(intRow, 1) = "open" Then intOpen = intOpen + 1 intClose = 0 End If If Cells(intRow, 1) = "close" Then intClose = intClose + 1 intOpen = 0 End If If intClose > 1 Or intOpen > 1 Then Rows(intRow).ClearContents Next intRow End Sub

Hallo Markus, Hallo Hajo,
vielen Dank für eure zügigen Antworten. Leider tun die auch noch nicht ganz das, was sie sollen, da jeweils die ganze Zeiile gelöscht wird. Ich hab mich aber auch ein wenig schlecht ausgedrückt in meinem ersten Post, daher hänge ich einfach mal ein Sheet an.
Variante 1: es werden die nicht benötigten open/close, also die Zellen, gelöscht
Variante 2: es wird eine neue Spalte geöffnet, in welcher dann die relevanten open(close via VBA eingetragen werden.
Im Sheet ist Spalte M die Ursprungsspalte und Spalte N, so wie es später aussehen sollte.
Kurz zum Grundgedanken: Sobald das erste open erscheint ist das "System" aktiv. Auf dieses open kann nur ein close folgen, da alle späteren open irrelevant wären. Kommt dann das close, wie in Zeile 20 beginnt das System von vorn. Hier ist es ähnlich. Nach einem close kann nur wieder ein open kommen, da alles nachfolgenden close irrelevant wären. AB hier beginnt das System wieder von vorn und wartet auf das erste open.
Das Hauptproblem ist, sobald eine Leereile kommt, kann ich keine normale Wenn-Formel mehr anwenden (siehe Zeile 15). Ansonsten könnte ich einfach definieren: Wenn(M2=M1;"";M2). Dies führt aber zu Fehlsignalen, sobald ebendiese leer Zeile kommt.
Ich werde mir dennoch mal eure Codes anschauen, vielleicht kann ich die ja doch mit ein wenig Basteln nutzen.
Vielen dank nochmal und viele Grüße,
Martin
Anbei das Sheet: https://www.herber.de/bbs/user/83351.xlsx

Sub open_close() For Zeile = 2 To 32 If Cells(Zeile, 13) = "open" Then Trade_open = True If Cells(Zeile, 13) = "close" Then Trade_close = True If Trade_open = True And Trade_close = False Then Cells(Zeile + 1, 14) = "" Cells(Zeile, 14) = "open" End If Next Zeile End Sub

Sub Doppelte_weg() Dim intClose As Integer Dim intOpen As Integer Dim intMax As Integer intRow = 1 intMax = Cells(Rows.Count, 1).End(xlUp).Row For intRow = 1 To intMax If Cells(intRow, 13) = "open" Then intOpen = intOpen + 1 intClose = 0 End If If Cells(intRow, 13) = "close" Then intClose = intClose + 1 intOpen = 0 End If If intClose > 1 Or intOpen > 1 Then Cells(intRow, 13).ClearContents Next intRow End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread