Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn nach 1 keine 2 kommt dann löschen

Wenn nach 1 keine 2 kommt dann löschen
07.11.2018 14:14:40
Anna
Hallo,
ich habe mal eine Beispiel Datei hochgeladen. Spalte A hat entweder 1.0, ..2 oder ...3 (...3 ist nicht releant hier). Ich möchte wenn unter 1.0 keine ..2 kommt, dass die Zeile mit 1.0 gelöscht wird mit VBA, kann mir da bitte jemand helfen?
https://www.herber.de/bbs/user/125230.xlsx
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachgefragt ...
07.11.2018 14:53:37
Matthias
Hallo
Tabelle1

 AB
11.0Beispiel
21.0Beispiel2
3..2Beispiel3
41.0Beispiel 4
51.0 Beispiel 5
6..2Beispiel 6


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Stehen die Daten wirklich exakt so in den Zellen?
Zeile(5) und (2) sollen lt.Bsp. gelöscht werden?
Gruß Matthias
Anzeige
AW: Nachgefragt ...
07.11.2018 15:02:48
Anna
Ja genau, zelle 5 und 2 sollen gelöscht werden, weil darunter keine ..2 ist.
AW: Nachgefragt ...
07.11.2018 15:16:09
Matthias
Hallo
Für Dein Beiepiel!
Sub RowDelete() Dim X& With Tabelle1 For X = 6 To 2 Step -1 If CStr(.Cells(X, 1).Offset(-1)) = "1.0" And CStr(.Cells(X, 1)) "..2" Then MsgBox "Zeile " & X & " löschen" End If Next End With End Sub Statt der Box löschst Du die Zeile mit:
Rows(X).Delete

Die 6 bei:
For X = 6 To 2 Step -1

bitte anpassen oder Einlesen!
Gruß Matthias
Anzeige
AW: Nachgefragt ...
07.11.2018 15:17:38
Anna
Danke, aber bei mehreren Zeilen, ist da kein loop drin oder wie das heißt ^^
was meinst Du ?
07.11.2018 15:38:44
Matthias
Hallo
Was meinst Du damit,
Bei mehreren Zeilen ...
Gruß Matthias
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige