Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Format kopieren"
Datumsformatkonvertierung (von Heinrich Stuerzl) Eingabeerleichterung bei Zeitformaten
Verhinderung der Formatumwandlung durch Excel Export von Diagrammen im Grafikformat
Automatische Datumformatierung unterdrücken Zahlenformatierung mit Punkt nach der 1. Ziffer
Formatvorlagen löschen Spalten bedingt summieren und Zellen formatieren
Zählen formatierter Zellen Mehrfachauswahl im Hoch- und Querformat drucken