Guten Tag zusammen,

in meiner Programmierung benutze ich einen Umfangreichen Code mit mehreren Unterprogrammen. Nun habe ich festgestellt, dass bspw. eine Kopie, mit Formatierung doch hilfreicher ist. Dabei kann in der Tabelle die Zell-, Schriftfarbe und "durchgestrichener" Text enhalten sein. Bsp.:

Inhalt Zelle xy: 

"1. Das ist ein Test

2. der Test wurde bestanden"

Wie kann ich die zelle genau so übernehmen? Hier mein Code:

PS.: Wichtig in dem Fall ist die Schriftfarbe und falls es durchgestrichenen Text gibt, diesen "durchgestrichen " zu übertragen

Sub übertragung()

    Dim Geoeffnet_DAT As Workbook
    Dim Letztespalte, Zaehler, i, n, spaltenzahl As Integer
    Dim Letztezeile, DatLetztezeile, Dateiname, Endzelle, Buchstabe, spaltenbuchstabe As String
                                                                        
    Dateiname = Tabelle6.Cells(1, 28)                                   'Dateiname in Zelle auslesen
    Application.ScreenUpdating = False                                  'Datei nicht anzeigen/ Bildschirm nicht updaten
        
        Workbooks.Open Dateiname                                        'Datei Öffnen
        Set Geoeffnet_DAT = ActiveWorkbook                              'geöffnete Datei als Aktiv setzen
        
    Application.Wait (Now + TimeValue("00:00:01"))                       'Zeit verstreichen lassen
                
    Range("A24:W9999").SpecialCells(xlCellTypeVisible).Copy              'gefilterten Bereich kopieren

    
    ThisWorkbook.Activate                                                'Ursprungs-Excel datei anwählen
    Geoeffnet_DAT.Close                                                  'schließen
            
            Application.Wait (Now + TimeValue("00:00:01"))                'Zeit verstreichen lassen
    
    Tabelle2.Range("a1").PasteSpecial                                      'zu kopierender Bereich (Zielzelle)

    Application.ScreenUpdating = True

End Sub