Tipps & Tricks 01.03.2004, 12:00 Uhr

Farbigen Zellen eine Zahl zuweisen

Ich habe zwei Fragen betreffend Hintergrundfarben in Excel. 1: Wie kann ich in einer Zeile die mit Farbe markierten Zellen zählen? 2: Wie kann ich den mit Hintergrundfarbe markierten Zellen eine Zahl zuweisen?
Zur ersten Frage finden Sie bereits einige Antworten in unserem Kummerkasten.
Schauen Sie sich Texte unter den Webcodes 20392, 23230 und 24058 an.
Für Ihr zweites Anliegen ist die Lösung ziemlich ähnlich. Es gibt hier 2 Varianten. Entweder, Sie lassen immer dieselbe Zahl in eine farbige Zelle schreiben, egal welche Hintergrundfarbe die Zelle hat. Hierfür können Sie das erste Makro verwenden
Sie ereichen damit folgendes Ergebnis
Die zweite Variante könnte folgendermassen aussehen: Sie tragen pro Farbe eine Zahl oder einen Text in die farbigen Zellen ein. Dies macht das folgende Makro
Den Bereich, der das Makro berücksichtigen soll, müssen Sie natürlich Ihrem eigenen Tabellenblatt anpassen. Sie können also auch eine einzelne Spalte oder Zeile angeben.
------------------------------------------
MAKROs ZUM KOPIEREN:
------------------------------------------
Sub AlleFarben()
Dim zelle As Object
'Bereich Markieren
[A3:Z20].Select
For Each zelle In Selection
If zelle.Interior.Pattern = xlSolid Then zelle.Formula = 3
Next
[A1].Select
End Sub
------------------------------------------
Sub SpezifischeFarben()
Dim zelle As Object
'Bereich Markieren
[A3:Z20].Select
For Each zelle In Selection
If zelle.Interior.ColorIndex = 3 Then zelle.Formula = "rot"
If zelle.Interior.ColorIndex = 6 Then zelle.Formula = "gelb"
If zelle.Interior.ColorIndex = 4 Then zelle.Formula = "grün"
Next
[A1].Select
End Sub
------------------------------------------



Kommentare
Es sind keine Kommentare vorhanden.