Supportnet Computer
Planet of Tech

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

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