Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen aller gelben Zellen in einem definierten Bereich
 29.08.2017 09:17:10 Darkproxx
Solved
29.08.2017 10:14:52 Gast70958
NotSolved
29.08.2017 21:39:26 Mackie
NotSolved
29.08.2017 21:38:02 Mackie
Solved

Ansicht des Beitrags:
Von:
Darkproxx		 Datum:
29.08.2017 09:17:10		 Views:
1086		 Rating:
     
Antwort:
 Nein
Thema:
Löschen aller gelben Zellen in einem definierten Bereich

Hallo zusammen,

 

ich habe das Problem, dass ich die Zellen mit dem Farbcode 36 leeren möchte. Der unten stehende Code tut dies auch. Nun möchte ich, dass der Bereich hierfür noch eingegrenzt wird, unzwar in Range("C1:C2500, BG1:BG2500"). Leider übersieht er den Bereich und lösch komplett alles. Er Berücksichtigt alle Spalten. Kann mir jemand weiterhefen?

 

Sub test()

   Dim rng As Range

   Set rng = ActiveSheet.Range("C1:C2500, BG1:BG2500")

   For Each rng In ActiveSheet.UsedRange

      If rng.Interior.ColorIndex = 36 Then

         rng.ClearContents

      End If

   Next rng

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen aller gelben Zellen in einem definierten Bereich
 29.08.2017 09:17:10 Darkproxx
Solved
29.08.2017 10:14:52 Gast70958
NotSolved
29.08.2017 21:39:26 Mackie
NotSolved
29.08.2017 21:38:02 Mackie
Solved