Registriert seit: 21.09.2018
Version(en): 2016
Guten Morgen,
ich verwende die Formel:
="Banane 1,2 mm ["&SUMME(C4:R4)&"]"
besteht die Möglichkeit die Summe in einer anderen Farbe auszugeben, wenn ja wie müsste ich die Formel anpassen?
Vielen Dank
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hallo,
1. Zellen mit andersfarbigem Schriftformat formatieren
2. bedingte Formatierung
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 21.09.2018
Version(en): 2016
Verstehe ich nicht...
Ich will nur die errechnete Summe in einer anderen Farbe darstellen als den Text "Banane 1,2 mm"
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
Moin!
Ich bin der Meinung, dass dies nur mit Klimmzügen und VBA geht.
Das Formel-Ergebnis soll doch wohl so aussehen:
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
nur die Summe alleine kannst du nicht per Formel ändern. Ob das mit mit einem Makro möglich ist, müssen dir die VBA-Spezies sagen.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
Nachfrage:
Wird der Bereich C4:R4 manuell ausgefüllt?
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 21.09.2018
Version(en): 2016
Hallo,
ja der Bereich C4:R4 wird manuell gefüllt.
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
22.09.2018, 09:07
(Dieser Beitrag wurde zuletzt bearbeitet: 22.09.2018, 09:08 von RPP63.)
Ins Modul der Tabelle
(Rechtsklick auf Tabellenregister, Code anzeigen)
Ausgabe in A4
Microsoft Excel Objekt Tabelle2Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Result$
If Not Intersect(Range("C4:R4"), Target) Is Nothing Then
Result = WorksheetFunction.Sum(Range("C4:R4"))
With Range("A4")
.Value = "Banane 1,2 mm [" & Result & "]"
.Characters(16, Len(Result)).Font.Color = vbRed
End With
End If
End Sub
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
22.09.2018, 09:13
(Dieser Beitrag wurde zuletzt bearbeitet: 22.09.2018, 09:13 von RPP63.)
Ich würde so etwas aber IMMER mit drei Zellen regeln:
links: Banane 1,2 mm [
mitte: Summe
rechts: ]
Spaltenbreiten anpassen, Gitternetzlinien ausblenden, mit Gesamtrahmen arbeiten.
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 21.09.2018
Version(en): 2016
Hallo,
erst mal vielen Dank für den Code!
Warum würdest du es bevorzugt auf 3 Spalten aufteilen, arbeitet der Code nicht zuverlässig?