Löschen nach Farben - Range falsch?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

--------------------------- Microsoft Excel Fehler: 1004 Dies ist bei verbundenen Zellen leider nicht möglich. $AA$5:$AI$6;$AA$9:$AI$12;$H$15:$T$16;$AA$15:$AI$16;$H$22:$T$25;$U$24:$AI$25;$AA$27:$AI$27;$D$29:$G$32;$AH$29:$AI$32;$D$36:$G$39;$J$36:$AI$39;$A$42:$AI$51;$M$53:$N$54;$W$53:$X$54;$H$56:$X$57;$H$59:$X$60 OK

On Error Resume Next For Each objArea In Bereich.Areas With objArea If .Address .Cells(1, 1).MergeArea.Address And Not .Cells(1, 1).MergeArea.Cells(1, 1).HasFormula Then _ Call .Cells(1, 1).MergeArea.ClearContents Call .ClearContents End With Next On Error GoTo 0

Leider hatte ich Deinen Post von 16:00 übersehen, danke nochmal! Ich habe das mit "Zellen mit Formeln ignorieren" noch übernommen. DANKE


For Each zelle In Range(WorkingRange)   'WorkingRange ist der Bereich, in dem Zellen gelöscht werden
If Not zelle.Cells(1, 1).MergeArea.Cells(1, 1).HasFormula Then  'nur Zellen, die keine Formeln enthalten...
Select Case zelle.Interior.Color    'Check die Hintergrundfarbe
Case jbGelb, jbChange, jbInfo   'wenn eine der drei Farben (KOnstanten) dann...
If Bereich Is Nothing Then  'Wenn der zu löschende Bereich noch leer ist
If zelle.CurrentRegion.Count > 1 Then    'wenn Zelle Teil eines verbundenen Bereichs, dann
Set Bereich = zelle.MergeArea       'übergebe den kompletten verbundenen Bereich
Else: Set Bereich = zelle           'ansonsten die einzelne Zelle
End If
Else                                      'wenn der Löschbereich bereits etwas enthält, dann
If zelle.CurrentRegion.Count > 1 Then    'sollte die Zelle zu einem verbundenen Bereich gehören, dann
Set Bereich = Union(Bereich, zelle.MergeArea)   'übergebe den kompletten verbundenen Bereich
Else: Set Bereich = Union(Bereich, zelle)       'ansonsten die einzelne Zelle
End If
End If
Case Else
End Select
End If
Next

For Each zelle In Range(WorkingRange) 'WorkingRange ist der Bereich, in dem Zellen gelöscht werden Select Case zelle.Interior.Color 'Check die Hintergrundfarbe Case jbGelb, jbChange, jbInfo 'wenn eine der drei Farben (KOnstanten) dann... If Bereich Is Nothing Then 'Wenn der zu löschende Bereich noch leer ist If zelle.CurrentRegion.Count > 1 Then 'wenn Zelle Teil eines verbundenen Bereichs, dann Set Bereich = zelle.MergeArea 'übergebe den kompletten verbundenen Bereich Else: Set Bereich = zelle 'ansonsten die einzelne Zelle End If Else 'wenn der Löschbereich bereits etwas enthält, dann If zelle.CurrentRegion.Count > 1 Then 'sollte die Zelle zu einem verbundenen Bereich gehören, dann Set Bereich = Union(Bereich, zelle.MergeArea) 'übergebe den kompletten verbundenen Bereich Else: Set Bereich = Union(Bereich, zelle) 'ansonsten die einzelne Zelle End If End If Case Else End Select Next

Beliebteste Forumthreads (12 Monate)

Löschen nach Farben - Range falsch?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread