Hallo Leute,
ich möchte folgendes realisieren:
Wenn in Zelle A5 die Schriftfarbe rot ist, dann soll die Schriftfarbe in Zelle E5 auch rot sein. Das gilt für den Bereich A1:A80 und E1:E80.
Anschließend sollen alle Zahlen in der Spalte E, deren Schriftfarbe rot ist, addiert werden.
Wie kann ich das realisieren?
Danke und Grüße
Bert
das geht mit einer angepassten Funktion oder auch mit einem Makro in VBA…
Aber bevor ich mich da ran setze erst noch ein paar Fragen
Hallo,
also der Einsatz von VBA ist gewollt, dass macht mir nix aus.
In der Spalte A steht nur Text in den restlichen Spalten B - E stehen nur Preise. Formeln stehen in keiner Zelle drin. Das ist das ganz normale rot in der Symbolleiste, um die Schriftfarbe von schwarz auf rot zu ändern.
Hoffe, ich konnte dir eingermaßen erklären, worum es geht.
Grüße
Bert
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
also ich hab mal ein mini-makro geschrieben…
Sub faerben()
Application.ScreenUpdating = False
For loop1 = 0 To 80
Range("E1").Offset(loop1, 0).Font.ColorIndex = Range("A1").Offset(loop1, 0).Font.ColorIndex
Next loop1
Application.ScreenUpdating = True
End Sub
Das Makro übernimmt für die Spalte E die gleichen Schriftfarben wie in Spalte A eingetragen.
Du solltest das Makro evtl halt per button startbar machen oder über ein
Sub Worksheet_Change
aufrufen (mit „application.run „faerben““)
HTH
Munich
Funktioniert perfekt. Vielen Dank!