Hallo Leute,
ich brauche mal wieder eure Hilfe: Wie schaffe ich es, Zellen zu markieren, die eine bestimmte Farbe haben? Ich habe z.B. mehrere Felder in rot, grün, blau, etc. Auf Knopfdruck möchte ich die jeweiligen Zellen gerne markieren - also einen Knopf für rot, einen für grün, etc.
Weiß da jemand Rat?
Danke mal wieder im Voraus!
ich brauche mal wieder eure Hilfe: Wie schaffe ich es, Zellen
zu markieren, die eine bestimmte Farbe haben? Ich habe z.B.
mehrere Felder in rot, grün, blau, etc. Auf Knopfdruck möchte
ich die jeweiligen Zellen gerne markieren - also einen Knopf
für rot, einen für grün, etc.
Hi Gerritt,
wie wurden die Zellen farbig, bed. Formatierung oder manuell?
Gruß
Reinhard
Hi Reinhard,
habe die Zellen manuell eingefärbt
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Gerrit,
Wie schaffe ich es, Zellen
zu markieren, die eine bestimmte Farbe haben? Ich habe z.B.
mehrere Felder in rot, grün, blau, etc. Auf Knopfdruck möchte
ich die jeweiligen Zellen gerne markieren - also einen Knopf
für rot, einen für grün, etc.
mein Vorschlag: Du färbst in der Tabelle einem zusammenhängenden Zellbereich als Musterfarben die Zellen mit den verwendeten Farben.
Danach kopierst du die folgenden beiden Makros im VBA-Editor in deine Datei. Jetzt kanst du per klick auf eine Musterfarbe die entsprechenden Zellen in der Tabelle markieren.
Das erste Makro fügts du im VBA-Editor unter der Tabelle mit den farbigen Zellen ein und paßt noch den Bereich für die Musterfarben und den Zellberich mit den farbigen Zellen an.
Private Sub Worksheet\_SelectionChange(ByVal Target As Excel.Range)
If Target.Row \>= 1 And Target.Row = 3 And Target.Column
Das zweite makro fügts du in ein Modul der Datei ein
Sub FarbigeZellenMarkieren(Farbe, Bereich As Range)
Dim Auswahl As String, LetzteZelle As String, Text1 As String, Text2 As String
Auswahl = ""
AnzahlMarkierungen = 0
Spalten = Bereich.Column + Bereich.Columns.Count - 1
Zeilen = Bereich.Row + Bereich.Rows.Count - 1
For Spalte = Bereich.Column To Spalten
For Zeile = Bereich.Row To Zeilen
If Cells(Zeile, Spalte).Interior.Color = Farbe Then
Text1 = Cells(Zeile, Spalte).Address
Text2 = ""
Do Until Cells(Zeile + 1, Spalte).Interior.Color Farbe
Zeile = Zeile + 1
Text2 = Cells(Zeile, Spalte).Address
If Zeile = Zeilen Then Exit Do
Loop
If Auswahl = "" Then '1. Farbiger Bereich
If Text2 = "" Then
Auswahl = Text1
Else
Auswahl = Text1 & ":" & Text2
End If
Else
If Text2 = "" Then
Auswahl = Auswahl & "," & Text1
Else
Auswahl = Auswahl & "," & Text1 & ":" & Text2
End If
End If
AnzahlMarkierungen = AnzahlMarkierungen + 1
LetzteZelle = Cells(Zeile, Spalte).Address
End If
If AnzahlMarkierungen = 49 Then Exit For
Next Zeile
If AnzahlMarkierungen = 49 Then Exit For
Next Spalte
If Auswahl "" Then
Range(Auswahl).Select
Range(LetzteZelle).Activate
End If
If AnzahlMarkierungen = 49 Then
MsgBox ("Es wurden 49 Bereiche markiert, mehr Markierungen sind nicht möglich!")
End If
End Sub
Gruß
Franz
Nachfrage
ich brauche mal wieder eure Hilfe: Wie schaffe ich es, Zellen
zu markieren, die eine bestimmte Farbe haben? Ich habe z.B.
mehrere Felder in rot, grün, blau, etc. Auf Knopfdruck möchte
ich die jeweiligen Zellen gerne markieren - also einen Knopf
für rot, einen für grün, etc.
Hi Gerrit,
du hast z,B, alle roten markiert. Was soll passieren wenn du auf Grün drückst? Sollen dann nur die grünen oder die grünen und die roten zellen markiert sein.
Ein Lösungsansatz. Gehe auf Ansicht–Symbollesitesn —SteuerelementToolbox und erstelle dir ein Kombinationsfeld. Dann Rechstklick darauf und Eigenschaften auswählen, dort gibst du in ListFillRange Tabelle2!A1:A5 ein.
In Tabelle2 erstellst du folgende Tabelle:
rot 2
gelb 34
usw
A1:Ax passt du der Anzahl entsprechend an.
Die Farbwerte für die farben erhälst du mit Extras --Makro–Aufzeichnen. Dann vergibst du an beliebige zellen deine Farbe.
Dann Alt+F11, auf Modul1 doppelklicken, im Code erkennst du die Farbwerte , sie stehen hinter Interior=
Gruß
Reihard
Option Explicit
Private Sub ComboBox1_Change()
Dim farbe As Integer
farbe = Application.WorksheetFunction.VLookup(ComboBox1, Worksheets(„Tabelle2“).Range(„A1:B2“), 2, 0)
MsgBox farbe ’ hier fehlt noch die Schleife um alle Zellen mit der farbe farbe auszuwählen, da bastle ich noch dran
End Sub
ich brauche mal wieder eure Hilfe: Wie schaffe ich es, Zellen
zu markieren, die eine bestimmte Farbe haben? Ich habe z.B.
mehrere Felder in rot, grün, blau, etc. Auf Knopfdruck möchte
ich die jeweiligen Zellen gerne markieren - also einen Knopf
für rot, einen für grün, etc.
Hi Gerrit,
im Code musst du A1:B2 entsprechend deiner Tabelle anpassen.
Option Explicit
Private Sub ComboBox1\_Change()
Dim farbe As Integer, R As Range, Zelle As Range
farbe = Application.WorksheetFunction.VLookup(ComboBox1, Worksheets("Tabelle2").Range("A1:B2"), 2, 0)
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Interior.ColorIndex = farbe Then
If R Is Nothing Then
Set R = Zelle
Else
Set R = Union(R, Zelle)
End If
End If
Next Zelle
R.Select
End Sub
Gruß
Reinhard
ps, ich musste woanders nachfragen wie der Befehl, also union , heißt, deshalb Lösung erst jetzt.