ich benutze folgenden Code um in meiner Arbeitsmappe die Schriftgröße bei einer bestimmten Bedingung zu ändern:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
For Each objCell In Target
If Not Intersect(objCell, Range("A1:COD150")) Is Nothing Then
With objCell
Select Case .Value
Case 99 To 999
.Font.Name = "Calibri"
.Font.Size = 7
.Font.Bold = False
End Select
End With
End If
Next
End Sub
Dies funktioniert auch ganz gut. Nur ich möchte jetzt, dass diese ganze Funktion erst bei Klick auf einen Commandbutton ausgelöst wird. Also ich möchte den Code in einen Commandbutton integrieren. Leider steh ich total auf dem Schlauch wie ich das bewerkstelligen kann.
Könnt ihr mir da weiterhelfen?
Grüße