Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbige Zellen Markieren?

Forumthread: Farbige Zellen Markieren?

Farbige Zellen Markieren?
02.07.2004 09:55:11
Klaus
Hallo,
kann man mit einem VBA Code alle z.B. hellblauen Zellen eines Blattes suchen und anschließend markieren lassen?
Habe jede Menge hellblaue Zellen die ich mit VBA schützen und entschützen muß.
Vorab vielen Dank.
mfg
Klaus
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbige Zellen Markieren?
WernerB.
Hallo Klaus,
was hältst Du hiervon?

Sub Klaus()
Dim c As Range, Bereich As Range, ErgBereich As Range
Dim Adr As String
Application.ScreenUpdating = False
Adr = "A1"
On Error Resume Next
Adr = Cells(Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row, _
Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column).Address
On Error GoTo 0
Set Bereich = Range("A1:" & Adr)
For Each c In Bereich
If c.Interior.ColorIndex = 41 Then
Set ErgBereich = c
Exit For
End If
Next c
If ErgBereich Is Nothing Then
MsgBox "Nichts gefunden !", vbOKOnly + vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
Else
For Each c In Bereich
If c.Interior.ColorIndex = 41 Then
Set ErgBereich = Application.Union(ErgBereich, c)
End If
Next c
ErgBereich.Select
Set ErgBereich = Nothing
Set Bereich = Nothing
End If
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Farbige Zellen Markieren?
Worti
Hallo Klaus,
so geht's:


Sub Hellblau()
    Dim c As Range
    
    ActiveSheet.Unprotect
    
    'Entsperren
    For Each c In ActiveSheet.UsedRange
        If c.Interior.ColorIndex = 41 Then
           c.Locked = False
        End If
    Next
    
    'hier deine Aktionen
    
    
    
    'wieder Sperren
    For Each c In ActiveSheet.UsedRange
        If c.Interior.ColorIndex = 41 Then
           c.Locked = True
        End If
    Next
    
    ActiveSheet.Protect
    
End Sub


Worti
Anzeige
Danke!!
Klaus
Hallo WernerB. und Worti,
vielen Dank für eure schnelle Hilfe, der Code von Worti ist perfekt genau das habe ich gesucht... nochmals tausend Dank
mfg
Klaus
;

Forumthreads zu verwandten Themen

Nur in 2 Zellen Nullwerte anzeigen
Heinz

Hallo Leute
Ich habe in einer Tabelle die Nullwerte ausgeblendet.
Nun möchte ich aber in J5 und in J36 die Nullwerte "0,00" angezeigt haben.
Gibt es dazu bitte eine Möglichkeit ?
Gruß Heinz
06.07.2010 18:02:45
Thread-ID: 1165742
3 Beiträge
Alle Zellen mit Kommentaren farblich markieren
Ralph P.

Hallo.
Ich möchte in einer Excel-Tabelle alle Zellen farblich markieren, die einen Komentar enthalten. Mein Ansatzt ist dieser:Sub mark()laRow = Cells(Rows.Count, 1).End(xlUp).Row
laCol = Cells(Columns.Count).End(xlToLeft).Column
For col = 1 To laCol For Row = 1 To laRow
Cell...
29.04.2002 11:46:36
Thread-ID: 117105
4 Beiträge
Alle nicht leeren Zellen der Spalte C markieren
Marco

Hallo,
in der Spalte C befinden sich unter einander weg Zahlenwerte. ich möchte nun alle Zellen dieser Spalte markieren, die nicht leer sind.
Kann mir Jemand helfen?
Vielen Dank im Voraus.
LG Marco
31.07.2014 08:02:24
Thread-ID: 1373282
4 Beiträge
VBA alle gefundenen Zellen markieren
Andreas

Hallo Excelfreunde,
Ich bin hier schon des Öfteren gut geholfen worden.
Ich benötige mal wieder professionelle Hilfe.
folgendes Problem:
In diesem Makro wird in Tabelle 1 ab Zeile 10 nach dem gefundenen Wert in Tabell1!A1 (frei definiert) gesucht. Alle gefundenen Werte werden da...
08.11.2016 08:33:06
Thread-ID: 1523614
6 Beiträge
Anzeige
Nur Zellen mit bestimmten Status anzeigen
Maris

Hallo Leute,
geht das auch ohne VBA?
Ich habe zwei Tabellenblätter. In Tabellenblatt1 sind in den Zeilen verschiedene Status durcheinander abgebildet. In dem Tabellenblatt2 möchte ich aber nur die Zeilen per Formel sehen =Tabellenblatt1!A1 die den Status:
"Gestartet"
und dies u...
08.02.2017 13:09:35
Thread-ID: 1540189
8 Beiträge
Nur aufgefuellte Zellen anzeigen
Marie

Hallo,
ich habe fuer mein Problem eine Beispieldatei erstellt:
https://www.herber.de/bbs/user/120263.xlsx
Es geht darum im zweiten Reiter nur die Felder ohne leere Zeilen aus dem ersten Reiter anzuzeigen.
Danke im Voraus.
07.03.2018 16:20:15
Thread-ID: 1612800
6 Beiträge
Listbox soll nur ausgefüllte Zellen anzeigen
Andre

Hallo zusammen,
ich bin nicht so bewandert mit VBA und brauche mal Hilfe:
In einem Tabellenblatt sind in den Spalten I bis M Typen erfasst - anber nicht alle Felder sind ausgefüllt. D.h. in einer Zeile kann bereits in Spalte I ein Eintrag sein, in einer anderen Zeile aber erst in K.
15.10.2018 17:27:41
Thread-ID: 1651357
6 Beiträge
Alle (nur) Zellen mit Inhalt markieren
Daniel Köchler

Hallo,ich brauche ein Makro, mit dem ich alle Zellen, die einen Inhalt haben, markieren!Daniel
05.11.2002 18:10:01
Thread-ID: 177523
2 Beiträge
Alle Zellen mit Jahr 2004 markieren
Frank
Hallo,

ich möchte alle Zellen der Spalte A markieren, die im Jahr 2004 liegen.
Wobei alle Zellen in Spalte A im Datumformat vorliegen.
Wie krieg ich das hin?

Danke
25.09.2003 12:42:28
Thread-ID: 315067
8 Beiträge
Per Zufallsgenerator nur gefüllte Zellen anzeigen
Mike E.
Hallo zusammen,
ich möchte gern per Zufallsgenerator Zellen (z.B. einer Spalte) mittels MsgBox anzeigen lassen, deren Wert "" ist.
Hat jemand spontan einen Lösungsansatz parat?
Viele nette Grüße und vielen Dank
Mike
13.02.2004 08:46:06
Thread-ID: 381705
2 Beiträge
Alle gelben Zellen markieren
Andreas

Hallo !
Ich moechte gerne ein Makro erstellen, das alle gelben Zellen in einem Tabellenblatt markiert. Hat jemand eine Idee wie das funktioniert? Vielen Dank fuer eure Hilfe.
Viele Gruesse
Andreas
20.07.2004 12:30:09
Thread-ID: 457820
2 Beiträge
Alle Zellen markieren, außer . . .
Martin

Hallo liebe Forums-Besucher,
ich habe in einer meiner Excel-Dateien ein Tabellenblatt mit ca. 3500 Zeilen an Daten. Manche der Felder sind farblich hervorgehoben (Hellgrün = ColorIndex 35). Wie könnte ich es per Makro realisieren, dass alle Zellen markiert werden, außer den farblich hervorg...
13.09.2004 11:14:12
Thread-ID: 483916
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige