Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Zellinhalte mit Formatierung kopieren

Betrifft: Zellinhalte mit Formatierung kopieren von: Jani
Geschrieben am: 25.07.2014 22:11:21

Hallo zusammen,

ich will den Inhalt einer Zelle gern von einem Tabellenblatt zum nächsten kopieren, dabei soll er aber auch die Schrift in Fett mit übernehmen.
Bisher verwende ich diesen Code.

ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = ThisWorkbook.Worksheets("Tabelle2").Range("A1").

Vielen Dank für die Mühe.

  

Betrifft: Nur Fett übernehmen, ... von: Luc:-?
Geschrieben am: 25.07.2014 22:19:59

…Jani,
ginge bspw so:

With ThisWorkbook
    .Worksheets("Tabelle1").Range("A1") = .Worksheets("Tabelle2").Range("A1").Value
    .Worksheets("Tabelle1").Range("A1").Font.Bold = _
        .Worksheets("Tabelle2").Range("A1").Font.Bold
End With
Gruß, Luc :-?


  

Betrifft: mit Copy ... von: Matthias L
Geschrieben am: 25.07.2014 22:24:33

Hallo

Das ist ja auch kein Kopieren!

Ich hab Dir mal ein kleines Beispiel erstellt.

https://www.herber.de/bbs/user/91728.xlsm

Gruß Matthias


  

Betrifft: AW: mit Copy ... von: Jani
Geschrieben am: 26.07.2014 07:56:58

Hallo Matthias,

vielen Dank für das kleine Beispiel. Es funktioniert super.
Ich habe noch eine weitere Herausforderung zu lösen. Ich "kopiere" auch aus einer
Schleife heraus.

If CheckBox1 = True Then
With Sheets("ZW")
lngLR = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

.Cells(lngLR + 1, 1).Resize(3, 2).Value = Sheets("Daten").Range("A4:B6").Value
End With
End If

Auch hier wird die Formatierung nicht übertragen.

Gruß der Jani


 

Beiträge aus den Excel-Beispielen zum Thema "Zellinhalte mit Formatierung kopieren"