Herbers Excel/VBA-Archiv

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

Zellinhalte mit Formatierung kopieren

• Zellinhalte mit Formatierung kopieren von Jani vom 25.07.2014 22:11:21
• Nur Fett übernehmen, ... - von Luc:-? am 25.07.2014 22:19:59
• mit Copy ... - von Matthias L am 25.07.2014 22:24:33
  • AW: mit Copy ... - von Jani am 26.07.2014 07:56:58

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"