Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen aller orangenen Zellen in einem definierten Bereich
 19.09.2017 10:44:51 Ekwah
NotSolved
19.09.2017 11:22:57 Gast70117
*****
Solved
19.09.2017 11:28:35 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Ekwah		 Datum:
19.09.2017 10:44:51		 Views:
991		 Rating:
     
Antwort:
  Ja
Thema:
Löschen aller orangenen Zellen in einem definierten Bereich

Hallo,

ich habe ein Problem mit einem Makro. Das Makro soll alle Orangenen Felder mit dem Farbcode 44 löschen, was es auch tut. Leider soll er die Spalte A hierbei aber nicht löschen. Er löscht komplett alles in dieser Farbe. Kann mir jemand weiterhelfen, wie ich dieses Makro so ändern kann, dass er den Bereich der Spalte B bis BG überprüft und die Spalte A unberührt lässt?


Sub makro()
   Dim rng As Range
   Set rng = ActiveSheet.Range("B1:B2500, BG1:BG2500")
   For Each rng In ActiveSheet.UsedRange
      If rng.Interior.ColorIndex = 44 Then
         rng.ClearContents
      End If
   Next rng
End Sub

 

Vielen Dank im Vorraus!

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 orangenen Zellen in einem definierten Bereich
 19.09.2017 10:44:51 Ekwah
NotSolved
19.09.2017 11:22:57 Gast70117
*****
Solved
19.09.2017 11:28:35 Gast70117
NotSolved