Hallo,

Ich möchte zuerst Formatierung (Fett und Kursivschrift) einiger Zellen zurücksetzen, aber später wenn ich neu in diese oder andere Zellen schreibe die Formatierungen anpassen könnnen.

Außerdem möchte ich es auch so lösen, dass ich dieses Formatierungszurücksetzen allgemein halten kann, sodass ich zum Anfang das Sub einfach aufrufe und dann später meine Formatierungen beliebig ändern kannn.

Hab das folgendermaßen probiert: Die Call-Funktion Unformat_Schrift, die die Formatierung (also fette und kursive Schrift) einiger Exceleinträge "zurücksetzt" rufe ich einfach anfangs auf.

Das Problem ist nun, dass dieses Sub auch die Formatierung der Einträge zurücksetzt, die ich am Ende des Sub "Berechnung_n_Rad()" eben entsprechend formatiert ausgeben möchte.

Hier im Anhang mein Code

________________________________________________________________________

Sub Berechnung_n_Rad()

    Call Unformat_Schrift
   
    i = 55   
    n_temp = n_Max/ i
   
    n = Round(n_temp, 1)
   
    Worksheets("Berechner").Range("E11").Value = n
    Worksheets("Berechner").Range("E11").Font.Bold = True
   
End Sub

_______________________________________________________________________________
 

Sub Unformat_Schrift()

    For i = 1 To 10
 
        a = Worksheets("Berechner").Range("E" & i + 4).Font.Bold
        b = Worksheets("Berechner").Range("E" & i + 4).Font.Italic
       
        If a = True Then
       
        Worksheets("Berechner").Range("E" & i + 4).Font.Bold = False
       
        End If
       
        If b = True Then
       
        Worksheets("Berechner").Range("E" & i + 4).Font.Italic = False
       
        End If
       
       
        Next i
               
    End

End Sub