HERBERS Excel-Forum - die Beispiele

Thema: Markieren von Auswahlbereichen

Home

Gruppe

Allgemein

Problem

Über die Markieren-Schaltfläche sollen Einzel- oder Mehrfachauswahlbereiche in den jeweilgen Spalten markiert oder demarkiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn Schaltflächen zu.
StandardModule: Modul1

Sub Markieren()
   Dim iCol As Integer
   Dim rng As Range
   iCol = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Column
   For Each rng In Selection.Areas
      If rng.Column = iCol Then
         With rng.Interior
            If .ColorIndex = 15 Then
               .ColorIndex = xlColorIndexNone
            Else
               .ColorIndex = 15
            End If
         End With
      End If
   Next rng
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