brauche bitte einen Input von Euch.
Mit nachfolgendem Makro trage ich 2 verschiedene Texte in die Zelle ein. Das funktioniert auch, aber die Formatierung vom ursprünglichen Text fehlt. Der Text liegt formatiert in einer Zelle.
Vielen Dank für die Hilfe.
VG Eisi :-)
Sub KlasseChecken()
If Sheets("Kalkulation_2").Range("A59").Value = "B" Then
Sheets("Kalkulation_2!A60") = "Klasse_B_kopieren"
Else
Sheets("Kalkulation_2!A60") = "Klasse_D_kopieren"
End If
End Sub