EXCEL Makro; Bestimmte Zeilen such und evtl eine davon löschen

Hi All,

ich habe folgendes Problem:

Ich habe eine Excel-Datei in der immer mal wieder Zeilen auftauchen die 25% Grau unterlegt sind.

Ich suche ein Makro, das mir nach diesen grauen Zeilen sucht und wenn 2mal aufeinander eine graue Zeile kommt, die erste von beiden gelöscht wird.
ich habe bereits verschiedenste Foren durchsucht, aber bis jetzt nichts passendes gefunden.

Die Zeilen sind sozusagen die Überschriften für das was danach kommt. Es kann aber vorkommen, das eine grau zeile keine unterzeilen mehr hat. somit ist die nachfolgende zeile Grau. Ich suche ein makro, das mir nach diesen grauen Zeilen sucht wo mehreren nacheinander vorkommen.

Nehmen wir an:
111111111
22222222
33333333
4
4
4
4
55555555
6
6
6
6

die FETT markierten sind meine grauen Zeilen. in diesem fall möchte ich die 1 und die 2 löschen.

Da ich in diesem Forum bis jetzt immer TOP Infos erhalten habe, setzte ich wieder einmal auf Euch.

Ich hoffe ich habe das alles verständlich rübergebracht.

gruß

 

Kannst Du Dir das nicht aus Deinen letzten beiden Problemen selbst zusammenbasteln?

http://www.pcwelt.de/forum/office-p...el-loeschen-von-zeilen-bestimmter-inhalt.html
http://www.pcwelt.de/forum/office-p...traege-mit-spezieller-bedingung-loeschen.html

Sollte eigentlich schon alles erwähnt sein...

Gruss
Bruno

 

ich bastel ja schon.....das im forum läuft nebenher

gruß

 

Also ich komme da auf keine Lösung. Ich habe auch zu wenig erfahrung mit der Sprache.

Ich wäre dir unendlich dankbar, wenn du einen Lösungsvorschlag hast.

Gruß

 

das müsste die lösung sein:

Code:

Sub löschenvonGrau()
    
    Dim i As Long
    
    zeile = 4
    spalte = 2 ' Spalte B
    Do While zeile <= ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
        If Trim(Cells(zeile, spalte).Interior.ColorIndex = 15) And _
           Trim(Cells(zeile + 1, spalte).Interior.ColorIndex = 15) Then

            'wenn Zelle leer, dann wird Macro beendet
            If ActiveSheet.Cells(zeile, spalte) = "" Then Exit Sub
            'löschen
            ActiveSheet.Rows(zeile).Delete
            zeile = zeile - 1
        End If
        zeile = zeile + 1
    Loop
End Sub

 

Das "Trim()" kannst Du auf jeden Fall weglassen. Trim würde Leerzeichen am Anfang und am Ende eines Strings weglöschen...

Du könntest vor dem "End If" ein "Else" einfügen. Dann schieb die Zeile "zeile=zeile+1" zwischen diese beiden und Du kannst das "zeile=zeile-1" weglassen. ;-)

Und wofür hast Du die Variable i definiert?

Aber grundsätzlich ist alles in Ordnung.

Gruss
Bruno

 

Danke für deine Verbesserungen - werde ich übernehmen. :-)

Das i hatte ich anfangs drin...und vergessen voll zu entfernen

dank und gruß