Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Makro Excel Zeile löschen mit bestimmten wert in Spalte
Frage
Hallo All,
ich hoffe eine(r) von euch im forum kann mir helfen.
Folgendes Problem:
Ich habe mehrere listen in Excel.
Spalten A-P
Zeilen unterschiedlich viele.
In Splate K steht unter anderem in manchen Zellen eine "0"
Zudem gibt es in dieser Spalte Zellen die mit 25%-grau Hintergrund formatiert sind.
Ich benötige ein Makro das mir alle Zeilen löscht, in denen unter Spalte K eine Zelle vorkommt in der eine 0 steht und die keine Hintergrundformatierungseigenschaft hat.
Sprich, alle Zeilen wo in Spalte K eine 0 haben und 25% grau sind sollen nicht gelöscht werden.
gruß
slimer
Antwort 1 von nighty
hi slimer :-)
ein beispiel :-)
gruss nighty
einzufuegen
alt+f11/projektexplorer/DeineTabelle
bei eingabe von 0 ohne hintergrundfarbe wird diese geloescht
ein beispiel :-)
gruss nighty
einzufuegen
alt+f11/projektexplorer/DeineTabelle
bei eingabe von 0 ohne hintergrundfarbe wird diese geloescht
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 And Target.Row > 1 And Cells(Target.Row, Target.Column) = 0 And Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone Then
ActiveSheet.Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp
End If
Application.EnableEvents = True
End Sub
