ich habe folgenden Syntax:
=MAX(B20:B49)&" Chargen" Die Daten habe ich fett formatiert! Wie bekomme ich das "Chargen" in nicht fett und den Max-Wert soll dann in fett bleiben!
gruß
Sub Macro1()
With Range("X1") 'hier!
.Font.Bold = True 'alles fett
.FormulaR1C1 = "=MAX(R[12]C[-10]:R[41]C[-10])& "" Chargen""" 'Formel
.Value = .Value 'durch Werte ersetzen
With .Characters(Start:=InStr(.Value, " "), Length:=8).Font 'Leerzeichen finden, ab da
.FontStyle = "Regular" 'nicht mehr fett
End With
End With
End Sub
| B | C | D | |
| 20 | 1 | 12 | Chargen |
| 21 | 2 | ||
| 22 | 3 | ||
| 23 | 12 | ||
| 24 |
| Formeln der Tabelle | ||||||
|