Format kopieren

Forumthread: Format kopieren

Format kopieren

05.04.2005 02:30:33

Tinu

Liebe Excel Gemeinde
In Excel 2003 (vielleicht auch schon früher) gibt es eine Funktion "Kopieren" / "Inhalte Einfügen", "alles ausser Rahmen". Ich möchte nun aber genau das Gegenteil; nämlich nur die Rahmen einfügen. Lässt sich das eventuell mittels VBA bewerkstelligen?
Gruss aus der Schweiz
Tinu

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Format kopieren

05.04.2005 05:06:06

Ulf
AW: Format kopieren

05.04.2005 11:23:04

Tinu
AW: Format kopieren

05.04.2005 11:47:29

ceyser
AW: Format kopieren

05.04.2005 12:36:43

Tinu

AW: Format kopieren

05.04.2005 05:06:06

Ulf

Hallo Tinu
Nehme doch einfach den Makro-recorder.
Bei mir sieht das so aus
Option Explicit


Sub Format_kopieren()
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

mfg Ulf

AW: Format kopieren

05.04.2005 11:23:04

Tinu

Hallo Ulf
Danke für Deine Antwort. Leider hilft sie mir aber nicht wirklich weiter, denn ich möcht wirklich nur die Rahmen kopieren und nicht das ganze Format.
Gruss
Tinu

AW: Format kopieren

05.04.2005 11:47:29

ceyser

Hi Ulf,
folgender Code kopiert nur den Rahmen (Oben, Unten, Links, Rechts):

Sub Rahmen_kopieren()
Dim rngQuelle As Range
Dim rngZiel As Range
Set rngQuelle = Range("A1")
Set rngZiel = Range("B1")
With rngZiel.Borders(xlEdgeBottom)
    .LineStyle = rngQuelle.Borders(xlEdgeBottom).LineStyle
    .Weight = rngQuelle.Borders(xlEdgeBottom).Weight
    .ColorIndex = rngQuelle.Borders(xlEdgeBottom).ColorIndex
End With
With rngZiel.Borders(xlEdgeLeft)
    .LineStyle = rngQuelle.Borders(xlEdgeLeft).LineStyle
    .Weight = rngQuelle.Borders(xlEdgeLeft).Weight
    .ColorIndex = rngQuelle.Borders(xlEdgeLeft).ColorIndex
End With
With rngZiel.Borders(xlEdgeTop)
    .LineStyle = rngQuelle.Borders(xlEdgeTop).LineStyle
    .Weight = rngQuelle.Borders(xlEdgeTop).Weight
    .ColorIndex = rngQuelle.Borders(xlEdgeTop).ColorIndex
End With
With rngZiel.Borders(xlEdgeRight)
    .LineStyle = rngQuelle.Borders(xlEdgeRight).LineStyle
    .Weight = rngQuelle.Borders(xlEdgeRight).Weight
    .ColorIndex = rngQuelle.Borders(xlEdgeRight).ColorIndex
End With
End Sub

Gruß
CS

AW: Format kopieren

05.04.2005 12:36:43

Tinu

Hallo CS
Klappt bestens. Hab vielen Dank!
Gruss
Tinu

Forumthread: Format kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread