Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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.

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 :-?

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige