Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format kopieren

Format kopieren
05.04.2005 00: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
Anzeige
AW: Format kopieren
05.04.2005 03: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 09: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 09: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
Anzeige
AW: Format kopieren
05.04.2005 10:36:43
Tinu
Hallo CS
Klappt bestens. Hab vielen Dank!
Gruss
Tinu

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige