Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel Daten mit Formatierung übernehmen
08.09.2022 16:05:00 Roman
NotSolved
08.09.2022 18:28:31 Gast15772
NotSolved
08.09.2022 18:29:46 Gast15772
NotSolved
09.09.2022 07:16:08 Roman
NotSolved
09.09.2022 13:58:26 Gast15772
NotSolved
19.09.2022 15:41:23 Gast13104
NotSolved
19.09.2022 17:33:13 Gast15772
NotSolved

Ansicht des Beitrags:
Von:
Roman
Datum:
08.09.2022 16:05:00
Views:
330
Rating: Antwort:
  Ja
Thema:
VBA Excel Daten mit Formatierung übernehmen

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel Daten mit Formatierung übernehmen
08.09.2022 16:05:00 Roman
NotSolved
08.09.2022 18:28:31 Gast15772
NotSolved
08.09.2022 18:29:46 Gast15772
NotSolved
09.09.2022 07:16:08 Roman
NotSolved
09.09.2022 13:58:26 Gast15772
NotSolved
19.09.2022 15:41:23 Gast13104
NotSolved
19.09.2022 17:33:13 Gast15772
NotSolved