Hallo M.O.
Wegen Schriftgröße.habe die Makros von VBA kopiert siehe unten. Die Schriftgröße ändert sich in den Zellen B11 bis D50 nicht in den Zellen die Zellen die ich wollte.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lngSpalteA As Long
Dim lngSpalteE As Long
Dim rngZelle As Range
Dim lngSpieler As Long
If Not Intersect(Target, Range("B11:D50")) Is Nothing Then
'Nummer des Spielers abfragen und 1 abziehen
lngSpieler = Range("H3").Value - 1
'1. Spalte des Spielers festlegen
lngSpalteB = 6 + 3 * lngSpieler
'letzte Spalte des Spielers festlegen
lngSpalteE = lngSpalteB + 0
'Nun Ergebnis-Spalten durchlaufen und nächste freie Zelle suchen
For Each rngZelle In Range(Cells(9, lngSpalteB), Cells(82, lngSpalteE))
If rngZelle = "" Then
rngZelle.Value = Target.Value
Exit Sub
End If
Next rngZelle
End If
Das ist das zweite Makro das angepasst werden soll, in den Zellen steht zB.= AM2
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("s11:s18,w11:w18,aa11:aa18,v21:v28,x21:x28")) Is Nothing Then
If Target.Value > 1 Then
Target.Font.Size = 16 'Schriftgröße bei Wert größer 1
Else
Target.Font.Size = 11 'Schriftgräße bei Wert kleiner 1
End If
End If
https://filehorst.de/d/cHioezsl