Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen wenn nicht Wert entspricht

Zeilen löschen wenn nicht Wert entspricht
19.12.2018 09:47:01
Lucky
Hallo,
ich habe mal eine Tabelle angehängt. Im Grunde ist in Spalte A die Nummerierung von 1-6 und diese kommt x mal vor. Es geht darum wenn in Spalte A eine 1 steht dann soll in Spalte D in der gleichen Zeile dann mit "KEG" anfangen. Wenn das Wahr ist, dann soll 1-6 bleiben. Dann gehts zur nächsten 1. Wieder überprüfen ob es mit "KEG" anfängt. Wenn nicht, dann lösche 1-6 der betroffenen Zeile. Ich hoffe ich konnte es gut erklären.
https://www.herber.de/bbs/user/126206.xlsx

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen wenn nicht Wert entspricht
19.12.2018 10:06:58
UweD
Hallo
Füge eine Überschrift ein
setze die Filtern auf B und D
B auf "=1"
D auf "beginnt nicht mit" KEG
Dann die angezeigten Zeilen löschen
Oder soll das per VBA geschehen?
LG UweD
AW: Zeilen löschen wenn nicht Wert entspricht
19.12.2018 10:13:01
Lucky
Soll per VBA geschehen bitte.
AW: Zeilen löschen wenn nicht Wert entspricht
19.12.2018 10:50:08
Bernd
Servus Lucky,
teste mal: 

Sub test()
Dim i As Integer
Dim intLZ As Integer
Dim j As Integer
With ActiveSheet
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
For i = intLZ To 1 Step -1
If .Cells(i, 1).Value = 1 And InStr(1, .Cells(i, 4).Value, "KEG", vbTextCompare) > 0  _
Then
For j = 0 To 5
.Rows(i).EntireRow.Delete
Next j
End If
Next i
End With
End Sub
Grüße, Bernd
Anzeige
AW: Zeilen löschen wenn nicht Wert entspricht
19.12.2018 10:52:25
Bernd
Servus Lucky,
sorry, genau andersherum: 

Sub test()
Dim i As Integer
Dim intLZ As Integer
Dim j As Integer
With ActiveSheet
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row
For i = intLZ To 1 Step -1
If .Cells(i, 1).Value = 1 And InStr(1, .Cells(i, 4).Value, "KEG", vbTextCompare) = 0  _
Then
For j = 0 To 5
.Rows(i).EntireRow.Delete
Next j
End If
Next i
End With
End Sub
Grüße, Bernd
AW: Zeilen löschen wenn nicht Wert entspricht
19.12.2018 11:15:49
Lucky
Vielen Dank die Lösung ist korrekt. Läuft auch flüssig :)
AW: Zeilen löschen wenn nicht Wert entspricht
19.12.2018 11:53:27
UweD
Hallo nochmal
Ohne Schleife, durch Nutzung Formel und Duplikate entfernen
Sub KEG()
    With ActiveSheet
        .Rows(1).Insert
        With .Cells(1, 7).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)
            .FormulaR1C1 = _
                "=IF((RC[-6]<>1)*(RC[-6]<>"""")+(RC[-6]=1)*(LEFT(RC[-3],3)=""KEG""),ROW(),""x"")"
        End With
        .Cells.RemoveDuplicates Columns:=7, Header:=xlNo
        .Columns(7).ClearContents
        .Rows(1).Delete
    End With
End Sub

LG UweD
Anzeige
AW: Zeilen löschen wenn nicht Wert entspricht
19.12.2018 13:51:53
Daniel
Hi
Zeilen löschen mit Bedingung geht am besten immer mit einem Makro nach diesem Schema (hier passend für dein Problem):
Sub ZeilenLöschen()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
With .Offset(1, 0).Resize(.Rows.Count - 1)
.FormulaR1C1 = "=IF(RC1=1,IF(Left(RC4,3)=""KEG"",row(),0),if(R[-1]C=0,0,Row()))"
End With
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
End Sub

da allerdings diese Methode prinzipbedingt immer mindestens eine Zeile stehen lassen muss, solltest du vorher noch eine Überschriftenzeile einfügen (diese sollte nicht leer sein, sondern Texte enthalten)
Gruß Daniel
Anzeige

320 Forumthreads zu ähnlichen Themen

gleiche Zahlen nicht gleich in VBA?
Christian

Guten Tag,
ich habe hier zwei Zahlen, die meiner Meinung nach gleich sind, aber laut VBA dann doch wieder nicht.....
Ein Vergleich im Tabellenblatt mit folgender Formel zeigt mir, das die Zahlen gleich sind:
=WENN(C5'zahlen alt'!C5;"nicht gleich";"gleich")
Per Makro sind die gle...
26.01.2009 17:09:00
Thread-ID: 1043950
3 Beiträge
Anzeige
Zählenwenn mit 2 Bedingungen, aber Text | Herbers Excel-Forum
Jack
Hallo zusammen,
ich habe da ein Problem, was für die Profis unter euch sicherlich leicht zu lösen ist, mir aber seit gestern Abend Kopfzerbrechen bereitet:
Wie in der Überschrift beschrieben, möchte ich, dass in einem definiertem Feld ein Zählung vorgenommen wird, sofern die Kombination 2 b...
12.01.2010 10:43:11
Thread-ID: 1129091
4 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Anzeige
zählenwenn geht nicht
ray

Hallo,
ich möchte zählen, wieviel zellen leer sind:
So geht es nicht:
=ZÄHLENWENN(Q3:Q1295;"=""")
ergebnis ist "0". Es gibt aber in dem Bereich Zellen, wo nix drin steht.
Was mach ich falsch?
Viele Grüße aus dem sonnigen Hamburg bei 17,5 Grad
Ray
01.06.2010 14:56:55
Thread-ID: 1159844
6 Beiträge
Wenn bzw. Zählenwenn mit drei Werten
Stefan

Hallo,
ich habe jetzt schon einige Stunden hier im Forum verbracht und bin auch schon fast am Ziel. Aber eben nur fast. Mein Problem:
Ich habe eine CSV Datei, in Zelle D2 soll einer von drei Werten stehen. Geprüft werden soll die Zelle P2
D2 P2
15-08-13 Mu...
04.08.2010 22:15:33
Thread-ID: 1170532
5 Beiträge
Zählenwenn (aus nicht miteinan. verb. Zellen)
Joerschi

Hallo liebe Community,
wahrscheinlich habe ich grad einen kleinen Blackout :-(
Ich möchte aus mehreren Zellen (die nicht direkt miteinander verbunden sind/nebeneinander liegen) mit der Zählenwenn-Formel einen Wert zählen lassen. Irgendwie bekomme ich aber die Formel nicht hin...
Bsp...
07.08.2010 10:18:20
Thread-ID: 1171013
7 Beiträge
Zählen Wenn Datum und Feld nen Wert hat
anton

Hallo Zusammen,
ich möchte ein Fehlzeitenliste machen.
In einer Zeile stehen die Wochentage eines halben Jahres.
In der darunter eventuell eine Eintragung wenn jemand gefehlt hat.
Da er aus verschiedenen Gründen gefehlt haben kann, wird dort ein Kürzel eingetragen.
v für ve...
02.09.2010 22:13:32
Thread-ID: 1175547
3 Beiträge
Zählenwenn und "MittelwertWenn"
Dietmar

Hallo allerseits,
suche bisher erfolglos zwei Formeln zur berechnung von diversen Spalten (hier im Beispiel nur eine)
Einmal für die Zählung der Häufigkeit (also Anzahl2) und
einmal für die Berechnung eines Mittelwertes ... jedesmal wenn zwei Bedingungen erfüllt sind.
Rahmenbedi...
03.11.2010 16:38:30
Thread-ID: 1185025
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
3
10
3
5
4
6
2
4
5
3
3
14
4
4
4
4
4
4
3
2
5
4
2