Office: Spalten löschen nach Farbe

Hallo
Ich möchte in meiner Excel 2016 Jahrestabelle alle Spalten mit der Farbe Blau löschen, geht das?

 

Hi,

ja das geht - mit VBA. Welche Zeile soll als Referenz für das Löschen genommen werden?

---

 

Hallo Beverli also es beginnt mit Spalte I+J, Q+R, Y+Z..... diese sind blau markiert. Referenzzeile 3

 

Hi,

ich nehme an, in Zeile 3 steht außerdem irgendetwas in den Zellen, sodass man die letzte belegte Spalte daran erkennen kann? Falls nicht, musst du Rows(3) im Code entsprechend anpassen. Da ich nicht weiß, welchen Blauton du verwendest, muss das erst ermittelt werden - setze also vor dem Start des Makros den Cursor in eine Zelle mit der betreffenden Farbe.

Code:

Sub SpaltenLoeschen()
    Dim intSpalte As Integer
    Dim lngFarbe As Long
    ' Farbton Blau ermitteln
    lngFarbe = Selection.Interior.Color
    ' Schleife von letzter belegte Spalte in Zeile 3 bis Spalte 9 in 2er Schritten
    For intSpalte = Rows(3).Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column To 9 Step -8
        ' Zelle in Zeile 3 hat den richtigen Farbton
        If Cells(3, intSpalte).Interior.Color = lngFarbe Then
            ' laufende Spalte und Spalte links daneben löschen
            Range(Cells(3, intSpalte), Cells(3, intSpalte - 1)).EntireColumn.Delete
        End If
    Next intSpalte
End Sub

---