Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellinhalte mit Formatierung kopieren

Zellinhalte mit Formatierung kopieren
25.07.2014 22:11:21
Jani
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.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nur Fett übernehmen, ...
25.07.2014 22:19:59
Luc:-?
…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 :-?

Anzeige
AW: mit Copy ...
26.07.2014 07:56:58
Jani
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige