Hallo Adde,
wenn ich das richtig verstanden habe, sollte das folgende Makro für die 4 Runden so funktionieren, wie du dir das wünschst:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZeile As Long
'hier erfolgt eine manuelle Eingabe der gewonnenen Spiele, die unmittelbar Auswirkungen
'auf die Bereiche hat, deren Schriftgröße angepasst werden sollen
'dies sind die Bereiche S11:S18,V21:V28,W11:W18,X21:X28 und AA11:AA18
If Not Intersect(Target, Range("R21:U28")) Is Nothing Then
'hier wird die Zeile festgelegt, in der die Schriftgröße verändert werden soll
lngZeile = Target.Row - 10
'Werte in betreffenden Spalten überprüfen
With Range("S" & lngZeile)
If .Value > 1 Then
.Font.Size = 15 'Schriftgröße bei Wert größer 1
Else
.Font.Size = 11 'Schriftgräße bei Wert kleiner 1
End If
End With
With Range("V" & lngZeile)
If .Value > 1 Then
.Font.Size = 15 'Schriftgröße bei Wert größer 1
Else
.Font.Size = 11 'Schriftgräße bei Wert kleiner 1
End If
End With
With Range("W" & lngZeile)
If .Value > 1 Then
.Font.Size = 15 'Schriftgröße bei Wert größer 1
Else
.Font.Size = 11 'Schriftgräße bei Wert kleiner 1
End If
End With
With Range("X" & lngZeile)
If .Value > 1 Then
.Font.Size = 15 'Schriftgröße bei Wert größer 1
Else
.Font.Size = 11 'Schriftgräße bei Wert kleiner 1
End If
End With
With Range("AA" & lngZeile)
If .Value > 1 Then
.Font.Size = 15 'Schriftgröße bei Wert größer 1
Else
.Font.Size = 11 'Schriftgräße bei Wert kleiner 1
End If
End With
End If
End Sub
Das Makro gehört in das VBA-Projekt des Arbeitsblattes 8 Spieler 8 und 4 Runden. Da die Zahlen aus der Anzahl der gewonnen Runden mittels Formeln ermittelt werden, müssen die Zellen für die Eingabe dieser gewonnen Runden überwacht werden. Danach werden die Ausgabezellen für den betreffenden Spieler durchlaufen und die Werte in diesen Zellen überprüft. Bei Werten über 1 wird die Schrift in diesen Zellen vergrößert.
Gruß
M.O.