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 | ||||||
|