Hallo,
ah ja, Dein Grünton war kein reines Grün:
Option Explicit
Public Sub Erledigte_Grün_löschen()
Dim objCell As Range
For Each objCell In Range(Cells(6, 1), Cells(5000, 1))
If objCell.DisplayFormat.Interior.Color = &H50D092 Then Exit For
Next
If objCell Is Nothing Then
Call MsgBox(Prompt:="Markierung nicht vorhanden, " & _
"Spalte wird nicht gelöscht...!", Buttons:=vbExclamation)
Else
If MsgBox(Prompt:="Markierung gefunden, möchten Sie die Spalte wirklich löschen..?", _
Buttons:=vbQuestion + vbYesNo) = vbYes Then _
Call objCell.EntireColumn.Delete
Set objCell = Nothing
End If
End Sub
...und laß immer schön Option Explicit stehen, wegmachen nix gut, hier mal lesen:
https://www.online-excel.de/excel/singsel_vba.php?f=4
Gruß,
|