Supportnet / Forum / Tabellenkalkulation
Formate (Farben) verknüpfen
Frage
Hallo zusammen
Wie kann ich Farben von einem Tabellenblatt aufs andere verknüpfen.
MIt anderen Worten die Zelle A5 auf Blatt 1 markiere ich gelb und gleichzeitig wirid die Zelle A9 auf Blatt 2 auch gelb.
Besten Dank für eure Vorschläge!
Antwort 1 von Annan
Hallo,
du meinst wohl eine "Wertübertragung" nur eben mit Zellfarben. So viel ich weiß, geht das wenn überhaupt (mit einer Excelverknüpfung) nur mit Schriftfarben. Über VBA kann man das für deine angesprochenen Zellen so lösen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Tabelle1").Range("A5").Interior.ColorIndex = 6 Then
Sheets("Tabelle2").Range("A9").Interior.ColorIndex = 6
Else
Sheets("Tabelle1").Range("A5").Interior.ColorIndex = General
Sheets("Tabelle2").Range("A9").Interior.ColorIndex = General
End If
End Sub
Diesen Code kopierst du direkt in den Tabellencode von Tabelle 1. Bei jeder Veränderung im Sheet "Tabelle1" (mindestens Cursorbewegung der Maus) wird die obige Bedingung geprüft.
MfG
Annan
du meinst wohl eine "Wertübertragung" nur eben mit Zellfarben. So viel ich weiß, geht das wenn überhaupt (mit einer Excelverknüpfung) nur mit Schriftfarben. Über VBA kann man das für deine angesprochenen Zellen so lösen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Tabelle1").Range("A5").Interior.ColorIndex = 6 Then
Sheets("Tabelle2").Range("A9").Interior.ColorIndex = 6
Else
Sheets("Tabelle1").Range("A5").Interior.ColorIndex = General
Sheets("Tabelle2").Range("A9").Interior.ColorIndex = General
End If
End Sub
Diesen Code kopierst du direkt in den Tabellencode von Tabelle 1. Bei jeder Veränderung im Sheet "Tabelle1" (mindestens Cursorbewegung der Maus) wird die obige Bedingung geprüft.
MfG
Annan