Format kopieren

Bild

Betrifft: Format kopieren
von: Tinu
Geschrieben am: 05.04.2005 00:30:33
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

Bild

Betrifft: AW: Format kopieren
von: Ulf M
Geschrieben am: 05.04.2005 03:06:06
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
Bild

Betrifft: AW: Format kopieren
von: Tinu
Geschrieben am: 05.04.2005 09:23:04
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
Bild

Betrifft: AW: Format kopieren
von: ceyser soze
Geschrieben am: 05.04.2005 09:47:29
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
 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
CS
Bild

Betrifft: AW: Format kopieren
von: Tinu
Geschrieben am: 05.04.2005 10:36:43
Hallo CS
Klappt bestens. Hab vielen Dank!
Gruss
Tinu
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Format kopieren"