Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Anwendungen(Java,C++...)

Anwendungen(Java,C++...)

Fragevon mbrausen vom 19.06.2021, 16:20 Options

Selektierte und unterhalb liegende Spalte löschen

Hallo,

ich suche mit einem if-Befehl mach einem gewissen Textausdruck.
Wenn dieser Textausdruck in der definierten Area gefunden wird soll die komplette Spalte und die darunter liegende Spalte gelöscht werden.
Wie ich die Spalte ansich lösche habe ich schon rausbekommen.
Aber nicht wie ich die darunter liegende auch noch mit weg bekomme.

Hier wie ich meine Spalte bislang lösche:

For Each Zelle In Range("A1:A300")
If Zelle.Value = "PRT" Then Zelle.EntireRow.Delete
Next Zelle

Danke

^{*Threadedit* 19.06.2009, 16:36:23
Admininfo: Führ bitte Threads nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.}

Antwort schreiben

Antwort 1 von kicia vom 25.06.2021, 17:09 Options

Bin kein Excelspezialist, aber da sonst keiner antwortet...
funktionieren würde es so:

    For Each Zelle In Range("A1:A300")
        If Zelle.Value = "PRT" Then
            Zelle.Cells(2).EntireRow.Delete
            Zelle.EntireRow.Delete
        End If
    Next Zelle

oder so:

    Dim rng As Range
    Dim i As Integer
    Set rng = Range("A1:A300")
    
    For i = 1 To rng.Count - 1
        If rng.Cells(i, 1) = "d" Then
            rng.Cells(i + 1, 1).EntireRow.Delete
            rng.Cells(i, 1).EntireRow.Delete
        End If
    Next i

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken