farbig formatierte Zeile als leer Zeile definieren
22.09.2016 14:55:42
BigMike
Per Clickbutton lösche ich alle mit "B" markierten Zeilen und verschiebe diese in den Nachbarsheet "GesamtStatistikBER"
Soweit so gut.
Excel hat ja Klasse aussehende Layoutvorlagen, um Tabellen optisch aufzuhübschen. Eine solche Vorlage habe ich gewählt. Diese Formatvorlage färbt die einzelnen Zeilen farblich ein (hellgrün/dunkelgrün, hellgrün/dunkelgrün...usw.)
Nun stelle ich fest, dass mein Makro deshalb nicht korrekt ausgeführt wird, weil Excel die farbliche Ausgestaltung einer Zelle/Zeile nicht als leere, sondern als belegte Zelle/Zeile definiert. Erst dort, wo die farbige Formatvorlage endet, und die übliche weiße, erste leere Zeile einsetzt, fügt das Makro die Datenzeile ein.
Man müsste das Makro also dahingehend anpassen, dass das Makro eine farbig formatierte Zeile/Zelle trotzdem als leer Zeile/Zelle definiert. Ist das möglich? Freue mich über jeden Tipp. Danke vorab...
Sub Bereinigen()
Dim zelle As Range, zeile As Long
For Each zelle In Range("A3:E50")
If zelle = "B" Then
zeile = zelle.Row
Rows(zeile).Copy Destination:=Sheets("GesamtStatistikBER").Cells(Rows.Count, 1).End(xlUp). _
_
Offset(1, 0)
Rows(zeile).Delete
End If
End Sub
Anzeige