Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
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
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile löschen wenn bestimmter Wert in Spalte

Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 13:11:48
Simon
Hallo,
für euch hier wahrscheinlich ein Leichtes....
Ich habe eine Tabelle, bestehend aus 5 Spalten und 20 Zeilen.
Wenn nun in der 4. Spalte ein Wert "A" oder "B" in einer Zelle vorkommt, so soll die entsprechend zugehörige Zeile komplett gelöscht werden.
Kleine Herausforderung dabei: Die 1. Spalte enthält Positionsnummern von 1 - 20. Diese sollen natürlich erhalten bleiben. Also wenn z. B. wegen o. g. Sache die Zeile 7 gelöscht wird, so sollen die dahinter liegenden Zeilen (abgesehen von der 1. Spalte wegen der Positionsnummern) eine Ebene höher springen.
Ich hoffe, es ist verständlich!?
Excel-Version 2016.
Vielen Dank im Voraus, Simon.

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 13:55:35
UweD
Hallo
so?
Option Explicit

Sub Zeile20()
    Dim i As Integer, SP As Integer, M As Integer
    
    SP = 1 'Spalte A 
    M = 20
    
    'Nummerierung per Formel 
    Cells(1, 1).Resize(M, 1).FormulaR1C1 = "=row()"
        
    For i = M To 1 Step -1 'Rückwärts 
        Select Case Cells(i, SP).Offset(0, 3)
            Case "A", "B"
                'Zeile löschen 
                Rows(i).Delete xlUp
            Case Else
                'Nichts 
        End Select
    Next
    
    'Nummerierung: Formel in Wert 
    With Cells(1, 1).Resize(M, 1)
        .Value = .Value
    End With

End Sub

LG UweD
Anzeige
AW: Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 17:35:21
Simon
Hallo.
Erstmal danke. Ich habe von VBA fast keine Ahnung. Den Code habe ich nun unter dem VBAProject, Tabelle 1 eingefügt. Es passiert aber nichts. Muss der Code noch irgendwie "aktiviert" werden?
AW: Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 17:40:06
UweD
Hi
Er sollte in ein normales Modul.
Lege dir einen Button ab und weise dann das Makro zu.
LG UweD
AW: Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 18:48:45
Günther
Moin,
es geht auch recht gut mit "ohne VBA" ... ;-)
* Daten in Power Query importieren
* 1. Spalte löschen
* 4. Spalte entsprechend filtern
* Neue Spalte mit 1-basiertem Index erstellen
* Diese Spalte an den Anfang verschieben und bei Bedarf umbenennen
Gruß
Günther
Anzeige
AW: Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 20:23:10
Simon
Auf dem PC ist zum einen eine Installation von Power Query nicht möglich, zum anderen kenne ich mich damit rein gar nicht aus.....
AW: Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 20:30:29
Günther
Im Club "Excel-User mit Scheuklappen" bist du gewiss herzlich willkommen !
Natürlich lässt es sich nicht installieren, denn in 2016 ist es bereits integriert.
Und in der heutigen Zeit, wo es im Netz alles zum Nulltarif gibt ist es natürlich überflüssig, sich selber neues Wissen anzueignen. Das strengt ja auch an ...
Mit traurigem Kopfschütteln
Günther
AW: Zeile löschen wenn bestimmter Wert in Spalte
25.04.2019 18:36:50
Simon
Na das nenne ich mal eine freundliche Antwort...
Zum einen bin ich ein ziemlicher Laie - weswegen ich überhaupt dieses Forum aufsuche. Zum anderen habe ich sehr wohl versucht mich zu informieren, bin aber recht schnell an der Stelle angekommen, dass man das Add-In angeblich installieren muss. Woher soll ich denn wissen, dass dies Info falsch ist und Excel 2016 es bereits enthält?
Na ja, dann schimpf ich mich eben "Excel-User mit Scheuklappen".
Anzeige
Code läuft bei mir-ansonsten siehe Günther-owT
24.04.2019 20:36:48
robert
AW: Zeile löschen wenn bestimmter Wert in Spalte
24.04.2019 20:21:45
Simon
Hab ich gemacht. Nun sagt er mir bei Betätigung des Buttons: Fehler beim Kompilieren. Innerhalb einer Prozedur ungültig.
AW: Zeile löschen wenn bestimmter Wert in Spalte
25.04.2019 08:51:36
UweD
Dann lad mal eine Musterdatei hoch.
AW: Zeile löschen wenn bestimmter Wert in Spalte
25.04.2019 17:22:54
Hajo_Zi
lasse den Fragesteller entscheiden ob offen.
Es ist heute nicht mehr üblich eine Rückmeldung zu geben und so ist der Beitrag über 6 Tage offen.

AW: Zeile löschen wenn bestimmter Wert in Spalte
25.04.2019 19:05:40
Simon
Entschuldige bitte die Verspätung. Vermutlich hab ich beim Button schon was falsch gemacht!?
https://www.herber.de/bbs/user/129396.xlsm
AW: Zeile löschen wenn bestimmter Wert in Spalte
26.04.2019 08:43:16
UweD
Hallo
- Du hast eine Sub in eine Sub eingeschlossen..
- Ausserdem ist es jetzt eine andere Spalte
- Die Formel hab ich auch noch angepasst =WENN(B1&lt&gt"";ZEILE();"")
so muss es sein.
Microsoft Excel Objekt Tabelle1 
Option Explicit 
Private Sub CommandButton1_Click() 
    Dim i As Integer, SP As Integer, M As Integer 
     
    SP = 1 'Spalte A 
    M = 20 
     
    'Nummerierung per Formel 
    Cells(1, 1).Resize(M, 1).FormulaR1C1 = "=IF(RC[1]<>"""",ROW(),"""")" 
         
    For i = M To 1 Step -1 'Rückwärts 
        Select Case Cells(i, SP).Offset(0, 4) 
            Case "a", "b" 
                'Zeile löschen 
                Rows(i).Delete xlUp 
            Case Else 
                'Nichts 
        End Select 
    Next 
     
    'Nummerierung: Formel in Wert 
    With Cells(1, 1).Resize(M, 1) 
        .Value = .Value 
    End With 
 
 
End Sub

LG UweD
Anzeige
AW: Zeile löschen wenn bestimmter Wert in Spalte
26.04.2019 09:45:48
Simon
Funktioniert jetzt.
Super - vielen lieben Dank!!!
Prima! Danke für die Rückmeldung. owT
26.04.2019 10:28:48
UweD

13 Forumthreads zu ähnlichen Themen

Alles bis auf jede 4. Zeile löschen
markus

für meine diplomarbeit habe ich hier eine addressliste mit 14550 einträgen, die von A (Name Besitzer) bis H (Telefonnummer) reicht, und der fragebogen den ich erstellt habe soll nun an jede 4. person geschickt werden.
sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jed...
02.06.2010 01:18:00
Thread-ID: 1159952
3 Beiträge
Anzeige
Summe bilden und Zeilen löschen
Holger

Guten Tag, ich bitte um Hilfe.
In Spalte A stehen Nummern, eine Nummer kann einmal oder auch mehrmals vorkommen. In Spalte E stehen die dazugehörigen Summen. Ich möchte realisieren, dass bei doppelt oder mehr gleicher Nummern, die Summe dieser gleichen, der ersten dieser Nr. zugeschrieben w...
17.03.2011 13:07:18
Thread-ID: 1206098
5 Beiträge
Zellen verknüpfen wenn bestimmter Wert
Olly

Hallo Leute,

ich möchte wenn z.B. in Tabelle1 in Zelle A1 eine Name oder Zahl/Kundennummer steht in Bezug darauf aus Tabelle2/Adressdatei die dazugehörige Adresse in Tabelle 3 in den Zellen A2, B2 und C2 erscheinen lassen. Wie muß ich vorgehen?
Danke für Eure Hilfe
Oli
25.05.2002 19:31:23
Thread-ID: 123700
7 Beiträge
Anzeige
Farbige Zeilen nicht löschen
Andi

Hi Leute, ich werd grad wahnsinnig - ich habe eine Tabelle, in der leider nur ca. jede 5. Zeile einen Wert enthält (Buchstaben)
Ich habe die Werte mit bedingter Formatierung eingefärbt und wollte jetzt einfach die leeren Zeilen dazwischen entweder löschen oder ausblenden, damit ich eine du...
26.04.2013 18:38:26
Thread-ID: 1310690
5 Beiträge
Makro: Zeilen mit bestimmten Inhalt löschen
Markus Gerhartz

Hallo nochmal,also es wäre wirklich ziemlich wichtig für mich. Ich benötige ein Makro zum löschen von Zeilen mit bestimmten unterschiedlichen Inhalten.Z. B.Anzahl: Name:
33 Cvs
3423 images
664 jsuswIch möchte nun zum Beispiele alle Zeilen mit dem Inh...
18.07.2002 13:02:28
Thread-ID: 137905
11 Beiträge
Sverweis per Makro bis Zeile x löschen
Manu

Hallo Zusammen,
ich habe eine Tabelle mit 3 Spalten (siehe Anhang). Wenn ich in Spalte A eine Artikelnummer eingebe zieht sich Excel in Spalte B und C Informationen per Sverweis rein. Diese Informationen sind in der gleichen Mappe in Tabelle 2 hinterlegt. Das funktioniert soweit gut.
Me...
26.03.2015 12:48:18
Thread-ID: 1417271
4 Beiträge
Zeile löschen, wenn nicht bestimmter Wert vorhande
Gavri

Hallo zusammen,
ich habe eine Tabelle mit ca. 58 - 63 Tsd Zeilen. Es sollen alle Zeilen gelöscht werden, die nicht "FRA" in Spalte S stehen haben.
Ich habe folgenden Code im Internet gefunden, damit dauert es sehr lange. Kann man diesen beschleunigen?
Dim i As Long
Dim letzteZei...
11.11.2015 13:42:33
Thread-ID: 1457636
11 Beiträge
Zelle löschen wenn bestimmter Wert gleich ist
Jan

Hallo,
ich habe ein Problem mit einer Programmierung in Excel.
Ich habe eine Eingabe Zelle wo ich einen Namen eintragen möchte (K5) der in einer Tabelle (Tab_1) auf dem selben Blatt wo dieser Name vorkommt und den möchte ich dann gelöscht haben wenn er in Zelle K5 steht.
Kann mir da...
22.04.2019 15:38:27
Thread-ID: 1688461
11 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
2
4
6
9
4
10
3
10
10
5
6
24