Eigene Funktion für Zellfarbe

Guten Tag
Ich arbeite gerade an einem Excel File, welches die Hintergrundfarbe von anderen Zellen automatisch übernehmen soll. Das bedeutet ich habe eine Spalte A mit folgenden Zellfarben:
- A1 hat die Zellfarbe grün
- A2 hat die Zellfarbe blau
- A3 hat die Zellfarbe rot
- A4 hat die Zellfarbe gelb
- usw.
Nun möchte ich in Spalte B über eine Formel folgende Anweisung setzten:
- Spalte B1 soll Zellfarbe von A4 erhalten
- Spalte B2 soll Zellfarbe von A3 erhalten
- Spalte B1 soll Zellfarbe von A2 erhalten
- Spalte B2 soll Zellfarbe von A1 erhalten
Um dies erreichen dachte ich mit eine Benutzerdefinierte Funktion (z.B. COPYFARBE) zu schreiben damit ich in der Spalte B folgende Formel verwenden könnte:
- Spalte B1 =COPYFARBE(A4)
- Spalte B2 =COPYFARBE(A3)
- Spalte B1 =COPYFARBE(A2)
- Spalte B2 =COPYFARBE(A1)
Ich habe nun aber Probleme die Benutzerdefinitere Funktion zu schreiben da ich wenig VBA Kenntnisse habe. Kann mir daher jemand helfen wie die Function COPYCOLOR() programmiert werden muss? Oder gibt es noch eine bessere, einfacher Lösung?
Besten Dank, Marcel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wird schwierig.
du hast folgende Probleme:
1. Formeln in Zellen dürfen nur einen Wert ausgeben, aber sonst keine Änderungen im Tabellenblatt durchführen. Man kann diese Restriktion zwar austricksen und umgehen, ist aber nicht so ganz einfach
2. Farb- und Formatänderungen lösen in Excel keine Neuberechnung der Zellen aus dh auch wenn du so eine Formel hinbekommst, wird sie icht immer aktuell sein.
vielleicht kannst du dich ja damit anfreunden:
- verwende folgende Funktion, um die zu färbenden Zellen zu kennzeichnen und die Bezugszelle anzugeben:

Function CopyFarbe(Zelle As Range, Optional Anzeige = "")
CopyFarbe = Anzeige
End Function

- als Formel dann in die Zelle B1: =CopyFarbe(A4)
wenn in der Zelle noch was angezeigt werden soll, kannst du dies als zweiten Parameter angeben: =CopyFarbe(A4;"hallo Welt")
- damit die Zellen mit dieser Formel ihre Farbe bekommen, muss dieses Makro ausgeführt werden:

Sub Färben()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If Zelle.Formula Like "*CopyFarbe*" Then
Zelle.Interior.Color = Zelle.DirectPrecedents(1).DisplayFormat.Interior.Color
End If
Next
End Sub

damit das automatisch geht, müssteest du diesen Code über ds SelectionChange-event ausfühen lassen.
gruß daniel

Sub Färben() Dim Zelle As Range For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) If Zelle.Formula Like "*CopyFarbe*" Then Zelle.Interior.Color = Zelle.DirectPrecedents(1).DisplayFormat.Interior.Color End If Next End Sub

Function CopyFarbe(Zelle As Range, Optional Anzeige = "") Dim txt As String With Application .Volatile Evaluate "Umfaerben('" _ & .Caller.Worksheet.Name & "'!" & .Caller.Address & ",'" _ & Zelle.Worksheet.Name & "'!" & Zelle.Address & ")" End With CopyFarbe = Anzeige End Function

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread