Format übertragen bei Excel

Question

Hallo,

ich möchte immer wieder das Format einer Zelle, das heißt die Farbfüllung und das Schriftformat in der Zelle. Wenn ich bisher die "Format übertragen"-Funktion wähle, dann wird immer die Größe der Zelle mitverändert. Wie kann ich ausschließen, dass sich auch die Größe der Zelle ändert ?

Gruß, mainze

Answer 1

Dies gilt aber nicht bei jeder kleinen Änderung, sofern die Höhe und Breite der Zelle noch genug Spielraum hat.

Betrachten wir bitte einen solchen Fall. Ist es dann möglich, nur die Schrift- und Zellenfarbe zu ändern ?

a) Da kannst Du Dir so denken, Excel funktioniert aber so nicht.

b) Die Farben kannst Du mit VBA übertragen ohne das sich die Zeilenhöhe ändert. Über die UI gibt es keine Möglichkeit.

Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"
Klick im Menü auf Einfügen \ Modul
Füge den folgenden Code ein
Schließe den VBA-Editor
Drücke Alt-F8
Wähle das Makro aus
Klick auf Ausführen

Andreas.

Option Explicit

Dim FontColor, InteriorColor

Sub MyCopy()
With ActiveCell
FontColor = .Font.Color
InteriorColor = .Interior.Color
End With
End Sub

Sub MyPaste()
With Selection
.Font.Color = FontColor
.Interior.Color = InteriorColor
End With
End Sub

Answer 2

Hallo Andreas,

danke für deine Antwort. Du hast recht. Wenn sich die Schriftgröße ändert, dann muss sich ab einer bestimmten Größe auch die Zellenhöhe und -breite ändern. Dies gilt aber nicht bei jeder kleinen Änderung, sofern die Höhe und Breite der Zelle noch genug Spielraum hat.

Betrachten wir bitte einen solchen Fall. Ist es dann möglich, nur die Schrift- und Zellenfarbe zu ändern ?

Gruß, mainze

Answer 3

Kannst Du nicht.

Wenn ich in einer neuen Datei A1 mit "qwe" auf Schriftgröße 48 ändere, dann macht Excel die Zeile höher damit das "qwe" zu lesen ist.

Beim Übertragen des Formates wird auch immer die Zeilenhöhe mit übertragen.

Selbst wenn Du nur die Schriftgröße via VBA überträgst ändert das die Zeilenhöhe.

Andreas.

Sub Test()

Range("A2").Font.Size = Range("A1").Font.Size
End Sub