Thema: Markieren von festgelegten Bereichen

Home

Gruppe

Allgemein

Problem

Über die Markieren-Schaltfläche sollen die im Data-Blatt festgelegten Bereiche in den jeweilgen Spalten markiert oder demarkiert werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub Markieren()
   Dim iCol As Integer, iRow As Integer
   Dim rng As Range
   iCol = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Column
   iRow = 1
   With Worksheets("Data").Columns(iCol)
      Do Until IsEmpty(.Cells(iRow))
         With Range(.Cells(iRow).Value)
            If .Interior.ColorIndex = 15 Then
               .Interior.ColorIndex = xlColorIndexNone
               .ClearContents
            Else
               .Interior.ColorIndex = 15
               .Value = Worksheets("Grundlagen").Range("B4").Value
            End If
         End With
         iRow = iRow + 1
      Loop
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Markieren

Alle Zellen mit bestimmtem Datum markieren	höchsten Wert markieren
Text vergl. und Untersch. farblich markieren	doppelte Einträge farblich markieren
Markieren	Objekte markieren - ausschalten
Zellen Markieren	Markieren mit variablen
Kontrollkästchen automatisch markieren lassen	Mappe als gespeichert markieren
mehrere Spalten mit Set "markieren"	Diagramm-Schnittfläche markieren
Pop-up-Fensterchen beim Markieren von Zellen	Zellen markieren
Zeilen und Spalten von Bereich markieren	Zelleninhalt prüfen - ggf. farblich markieren
Mehrfach vorkommende Daten markieren	Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank	Gefüllte Zellen markieren und als CSV abspeichern
Bereich markieren mit ....	Bereich per INPUTBOX markieren und auswerten
Alles markieren außer bestimmten Bereich	In der Spalte d letzten Wert markieren u löschen
Spalten markieren, Problem	Zeile/Spalte markieren
Excel 2007 Objekte markieren, gruppieren	Markieren von Zeilen mit gleichem Wert in Spalte B
2 tabellen vergleichen und farbig markieren	Doppelte Datensätze markieren
allgemein	Zeile nacheinander markieren
Zellen mittel VBA markieren	Objekte markieren in Excel 2007
bestimmte Zellen markieren und untereinander...	Bestimmte Zeilen markieren
Zellen mit Zahlen (keine Formel)farblich markieren	Markieren, wenn 0 in Zelle
Zeichnungsobjekte markieren	Ähnliche Werte vergleichen und markieren
Spalten markieren wenn aktuelles Datum	Bereich markieren in Abhängigkeit von Fundstelle
Diagramme auflisten und ein bestimmtes markieren	Markieren einer Zelle über Suchgebriff
Doppelte Werte markieren?	Zeilen über Datum markieren und kopieren
Zellen mit Schutz abfragen und markieren	Bereiche in Formeln markieren
Inhalt Textbox markieren	suchen, markieren, löschen