Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilen zwischen best. Werten löschen

Forumthread: VBA Zeilen zwischen best. Werten löschen

VBA Zeilen zwischen best. Werten löschen
02.06.2015 10:52:08
Christian
Hallo zusammen,
ich möchte mir gerne das Auswerten einer Liste einfacher machen.
Verschiedene "Vorformatierungen" habe ich bereits gebastelt und die funktionieren bisher auch. Allerdings komme ich bei folgendem Problem nicht weiter. Ich hoffe ihr könnt mir helfen.
In Spalte D stehen Ausfallzeiten in Spalte E der dazugehörige Ausfallschlüssel.
Mich interessieren aber nur die Ausfallschlüssel mit der Nummer 211 und 214 die werden entweder direkt von einer "131" gefolgt oder zwischen der 211/214 und der 131 stehen noch andere Ausfallschlüssel. Ich versuche zum besseren Verständnis mal ein BSP mit hochzuladen. https://www.herber.de/bbs/user/97983.xls
Ich möchte alle Zeilen, von oben nach unten, zwischen der 131 und der 211/214 löschen ohne das diese mit gelöscht werden. Die Liste kann dabei beliebig lang sein und das Makro sollte sich selbst das Ende suchen um nicht ewig zu laufen. Bitte helft mir ich sitze jedes mal einen Vormittag und sortiere und lösche von Hand.
Vielen Dank im Voraus!
CS

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilen zwischen best. Werten löschen
02.06.2015 12:08:14
Daniel
Hi
probier mal das: 
Sub Löschen()
With ActiveSheet.Cells(3, 1).CurrentRegion
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(ISERROR(MATCH(RC2,{131,211,214},0)),0,ROW())"
.Formula = .Value
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End Sub

läuft aber nicht mit Excel 2003 und früher.
Gruß Daniel

Anzeige
AW: VBA Zeilen zwischen best. Werten löschen
02.06.2015 12:24:27
Christian
Hi Daniel,
erst mal danke für die schnelle Antwort.
Habe es jetzt in meine Tabelle kopiert und ausgeführt, leider löscht es alles, nur die erste Zeile bleibt bestehen.

AW: VBA Zeilen zwischen best. Werten löschen
02.06.2015 12:24:35
Christian
Hi Daniel,
erst mal danke für die schnelle Antwort.
Habe es jetzt in meine Tabelle kopiert und ausgeführt, leider löscht es alles, nur die erste Zeile bleibt bestehen.

Anzeige
AW: VBA Zeilen zwischen best. Werten löschen
02.06.2015 12:45:35
Daniel
Hi
mit welcher Tabelle hast du das ausprobiert?
mit der die du hier hochgeladen hast oder mit einer anderen?
ich habe den Code natürlich für die Datei geschrieben, die du uns hier gezeigt hast und damit funktioniert er auch.
Wenn du den Code auf eine andere Datei anwendest die anders aussieht, musst du ihn natürlich noch anpassen, beispielsweise dann, wenn die Vergleichswerte nicht in Spalte B sondern in einer anderen Spalte stehen, oder wenn noch weitere Überschriftenzeilen hinzukommen usw.
Dabei kann ich dir aber nicht helfen, weil ich deine Echtdatei nicht kenne, sondern nur das, was du uns hier zeigst.
aber das funktionsprinzip des Makros ist relativ einfach:
1. wird in eine Spalte am Tabellenende eine Formel geschrieben, welche alle Zeilen, die gelöscht werden sollen mit 0 kennzeichnet und die die stehenbleiben müssen, mit der aktuellen Zeilennummer.
2. dann wende ich die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an, um die Zeilen mit 0 zu löschen.
das kannst du ja erstmal von Hand ausprobieren, vielleicht kannst du dann ja das Makro selber an deine Datei anpassen.
Gruß Daniel

Anzeige
AW: VBA Zeilen zwischen best. Werten löschen
02.06.2015 14:32:39
Christian
Hi,
geht natürlich in der Tabelle die ich geschickt habe. Ich habe die Spalten der BSP Excel aus einer anderen rauskopiert und dort sind die tatsächlich an einer anderen Stelle, sorry mein Fehler.
In dem Original stehen die Ausfallschlüssel in Spalte E.
Wenn ich das Makro richtig verstehe löscht es alles was nicht 131,211 oder 214 heißt. Es gibt aber Situationen in der Liste wo zwischen 211/214 und 131 Werte stehen die ich noch brauche, deswegen war meine Idee nur Werte zwischen 131 und 211/214 zu löschen. habe nochmal ein Bsp. angehangen. https://www.herber.de/bbs/user/97988.xls

Anzeige
AW: VBA Zeilen zwischen best. Werten löschen
02.06.2015 15:31:59
Daniel
Hi
ja so hatte dich verstanden, bzw die Formel so aufgebaut dass alle Zeilen stehen bleiben, die du rosa und gelb markiert hattest und die weissen gelöscht werden.
wenns so sein soll, dass alles zwischen 211/214 und 131 ebenfalls stehen bleiben soll, dann musst du die Formel so abändern (ich beziehe mich wieder auf die hochgeladene Datei): 
.FormulaR1C1 = "=IF(OR(RC2=211,RC2=214),ROW(),IF(R[-1]C2=131,0,IF(R[-1]C=0,0,ROW())))"

der Rest des makros kann so stehen bleiben.
Das ist ja das schöne an dieser Mehthode zum Löschen der Daten.
du kennzeichnest die Zellen erst mit einer Formel, dh du kannst diese Formel auch von Hand direkt in die Zelle eingeben und ausprobieren, ob sie das richtige Ergebnis liefert und erst dann wenn alles passt, ins Makro übernehmen.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
einfügen von daten in gefilterte Liste
daten

hallo zusammen
ich habe folgendes problem:
ich habe eine gesamtliste, ( mit den Spalten,Kundennr, Kundenname Ansprechpartner im Aussendienst (der gehört zu meiner Firma und betruet den Kunden in dieser Zeile) , briefversand j oder n ) . Diese Liste schicke ich an bspw. an 10 Mitarbeite...
11.02.2010 21:06:51
Thread-ID: 1137726
2 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
Anzeige
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
ausgeblendete Zeilen (Inhalt) löschen
Lorenz

Hallo Excelscheff`s
Für mich wieder mal ein ungelöstes Langzeitproblem.
Mit folgenden Codezeilen wird der Inhalt von ausgeblendeten (Filter-Rest) Zeilen nicht gelöscht.
Wie muß der Code lauten um die "ausgeblendeten Zeilen in den Löschvorgang ein zu beziehen?
LoLetzte = wksDaten...
16.05.2011 13:28:15
Thread-ID: 1214665
3 Beiträge
Alle Leere Zeilen In A Spalte Löschen
Leo

Abend zusammen,
ich hab folgendes Problem !?
Ich habe in der A SPALTE eine Namensliste, mit mehreren tausend Namen, doch leider sind mir beim kopieren in Excel ein paar "ZEILEN Lücken" - ich hoffe ihr versteht mein Problem, kann es nicht besser formulieren - aufgestoßen ...
Meine Fr...
28.09.2011 21:43:27
Thread-ID: 1231905
4 Beiträge
VBA: leere Zeilen löschen
Fritz_W

Hallo Forumsbesucher,
ich bitte um Eure Hilfe:
Mit welchem Code lassen sich alle leere Zeilen der aktiven Spalte (bis zur letzten Zeile mit Inhalt) löschen.
Beispiel: Befindet sich der Cursor in Zelle C6 und ist in Spalte C die letzte Zelle mit Inhalt die Zelle C957 sollten alle lee...
19.10.2011 09:27:12
Thread-ID: 1234458
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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