Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Rahmen und nur Füllfarbe kopieren

Forumthread: Nur Rahmen und nur Füllfarbe kopieren

Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 12:02:31
Lutz
Hallo Excel-Profis,
nach langer Zeit mal wieder ein Problem bei dem ich auch mit Google nicht weiterkomme.
Ich muss in einer bestehenden Datei viele Bereiche kopieren und anpassen.
Nun muss ich einmal nur die vorhandenen Rahmen kopieren (kein Inhalt, keine weiteren Formatierungen – nur die Rahmeneinstellung).
Und dann muss ich einmal nur die vorhandene Füllfarbe kopieren – nichts weiter nur die Füllfarbe.
Ich habe ein Makro im Einsatz mit dem ich nur die Formeln kopiere:
Sub copy_Formula()
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
End Sub
Kann man das mit den Rahmen und der Füllfarbe auch in der Form machen?
Ich würde gerne einen Bereich markieren und mit strg+c kopieren und dann auf den Zielbereich gehen und das Makro ausführen welches mir dann mit Makro1 nur den Rahmen und mit Makro2 nur die Füllfarbe kopiert.
Vielen Dank für Eure Hilfe und ein schönes Wochenende
Viele Grüße Lutz

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 12:42:36
yummi
Hallo Lutz,
einmal mit Testaufruf dazu

Option Explicit
Function Set_BordersAndColor(rngSource As Range, rngdest As Range)
Dim i As Integer
For i = 7 To 10
With rngdest.Borders(i)
.LineStyle = rngSource.Borders(i).LineStyle
.Weight = rngSource.Borders(i).Weight
.Color = rngSource.Borders(i).Color
End With
rngdest.Interior.Color = rngSource.Interior.Color
Next
End Function
Sub test()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveSheet.Cells(3, 2)
Set rng2 = ActiveSheet.Cells(3, 5)
Call Set_BordersAndColor(rng1, rng2)
End Sub
Gruß
yummi

Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 13:55:04
Lutz
Hallo Yummi,
vielen Dank, er überträgt von B3 nach E3 die Füllfarbe. Das ist aber eine recht limitierte Sache - ich müßte ja immer in den Code schreiben von wo nach wo.
Vielleicht bekommt man es aus dem Zwischenspeicher nicht hin, dann muß man vielleicht 2 Makros nehmen:
1. In dem Bereich aus dem die Füllfarbe kommen soll
2. Bereich markieren in das die Füllfarbe rein soll
Damit kann man ja auch leben aber ich weiß nicht wie man das in VBA macht - Du?
Vielen Dank und viele Grüße Lutz
Geht das bei den Rahmen auch auf diesem Wege?

Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 14:06:23
yummi
Hallo Lutz,
ich hab dir doch die funktion genau dafür gegeben.
du übergibst an die funktion den Bereich von wo du kopieren willst rngSource
und wohin du kopieren willst rngdest
Den Rest macht die Funktion
In Sub Test kannst Du sehen wie Du das aufrufen kannst, am Beispiel von B3 nach E3, du kannst das aber auch mit jedem anderen Bereich machen.
Oder wolltest Du das über Formeln lösen (wenn das überhaupt geht)
Gruß
yummi

Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 14:51:54
Lutz
Hallo Yummi,
sorry vielleicht verstehe ich das nicht richtig:
Das Makro von Dir kopiert von Zelle B3 nach E3 die Farbe und den Rahmen?!
(Die Farbe geht, ich habe es mal in B3 mit gelber Füllung und nur mit einem Rahmen unten versucht - die Farbe überträgt er aber er zieht dann in E3 einen kompletten Rahmen um die Zelle).
Für meine Fälle müsste man das etwas neutraler halten: ich kopiere eine Zelle mit einer Formatierung (erstes Makros - die Funktion liest das aus); dann markiere ich eine 2te Zelle/Bereich und aktiviere das 2te Makro das dann das gemerkte Format.
Viele Grüße Lutz

Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 15:06:43
yummi
Hallo Lutz,
jetzt passt der Rahmen

Function Set_BordersAndColor(rngSource As Range, rngdest As Range)
Dim i As Integer
For i = 7 To 10
With rngdest.Borders(i)
If rngSource.Borders(i).LineStyle  xlNone Then
.LineStyle = rngSource.Borders(i).LineStyle
.Weight = rngSource.Borders(i).Weight
.Color = rngSource.Borders(i).Color
End If
End With
rngdest.Interior.Color = rngSource.Interior.Color
Next
End Function
Sub test()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveSheet.Cells(3, 2)
Set rng2 = ActiveSheet.Cells(3, 5)
Call Set_BordersAndColor(rng1, rng2)
End Sub
Die aufrufe wann du was kopieren willst kannst du doch ganz variabel gestalten.
Gruß
yummi

Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 15:28:16
Lutz
Hallo Yummi,
vielen Dank - das mit dem Rahmen geht, aber nur wenn in der Zielzelle noch kein Rahmen ist. Wenn die Quellezelle nur einen Rahmen unten hat und die Zielzelle bisher einen kompletten Rahmen dann bleibt es bei einem kompletten Rahmen. Hatte die Zielelle noch keinen Rahmen wird auch nur der Rahmen unten übernommen.
Mein Problem ist ja dass ich micht nicht mit VBA auskenne - sonst würde ich mir das selber schreiben. Wie würde denn die Trennung in Wegspeichern und Übertragen gehen?
Vielen Dank für Deine Geduld und viele Grüße Lutz

Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 17:13:47
yummi
Hallo Lutz,

Function Set_BordersAndColor(rngSource As Range, rngdest As Range)
Dim i As Integer
For i = 7 To 10
With rngdest.Borders(i)
.LineStyle  = xlNone    'hier löscht Du den Rahmen der Zielzelle erst ab
If rngSource.Borders(i).LineStyle  xlNone Then
.LineStyle = rngSource.Borders(i).LineStyle
.Weight = rngSource.Borders(i).Weight
.Color = rngSource.Borders(i).Color
End If
End With
rngdest.Interior.Color = rngSource.Interior.Color
Next
End Function
Sub test()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveSheet.Cells(3, 2)
Set rng2 = ActiveSheet.Cells(3, 5)
Call Set_BordersAndColor(rng1, rng2)    'so einen Aufruf mit den Zellen die Du benötigst  _
baust Du in dein Makro ein.
End Sub
Gruß
yummi

Anzeige
AW: Nur Rahmen und nur Füllfarbe kopieren
12.09.2014 19:20:22
Lutz
Hallo Yummi,
vielen lieben Dank, ich habe es jetzt so gelöst:
Function Set_BordersAndColor(rngSource As Range, rngdest As Range)
Dim i As Integer
For i = 7 To 10
With rngdest.Borders(i)
.LineStyle = xlNone     'hier löscht Du den Rahmen der Zielzelle erst ab
If rngSource.Borders(i).LineStyle  xlNone Then
.LineStyle = rngSource.Borders(i).LineStyle
.Weight = rngSource.Borders(i).Weight
.Color = rngSource.Borders(i).Color
End If
End With
rngdest.Interior.Color = rngSource.Interior.Color
Next
End Function



Function Set_Borders(rngSource As Range, rngdest As Range)
Dim i As Integer
For i = 7 To 10
With rngdest.Borders(i)
.LineStyle = xlNone     'hier löscht Du den Rahmen der Zielzelle erst ab
If rngSource.Borders(i).LineStyle  xlNone Then
.LineStyle = rngSource.Borders(i).LineStyle
.Weight = rngSource.Borders(i).Weight
.Color = rngSource.Borders(i).Color
End If
End With
Next
End Function



Function Set_Color(rngSource As Range, rngdest As Range)
rngdest.Interior.Color = rngSource.Interior.Color
End Function



Sub test()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveSheet.Cells(3, 2)
Set rng2 = ActiveSheet.Cells(3, 5)
Call Set_BordersAndColor(rng1, rng2)    'so einen Aufruf mit den Zellen die Du benötigst  _
baust Du in dein Makro ein.
End Sub

Sub AtestBaC()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveCell
Set rng2 = Application.InputBox("Select a range", "Get Range", Type:=8)
Call Set_BordersAndColor(rng1, rng2)
End Sub

Sub AtestB()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveCell
Set rng2 = Application.InputBox("Select a range", "Get Range", Type:=8)
Call Set_Borders(rng1, rng2)
End Sub

Sub AtestC()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveCell
Set rng2 = Application.InputBox("Select a range", "Get Range", Type:=8)
Call Set_Color(rng1, rng2)
End Sub
Man steht dann schon in der Quellzelle und wählt den Zielbereich aus.
Und ich habe mal getrennt in Rahmen und Farbe, nur Farbe und Rahmen.
Also vielen lieben Dank und noch ein schönes Wochenende,
viele Grüße Lutz
Anzeige

Forumthreads zu verwandten Themen

Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Datum aus 2 Zellen in 1 Zelle übernehmen
gerhard

Hallo zusammen,
Bitte um VBA Hilfe!
In meiner Tabelle stehen in der Spalte H ein Datum im Format z.B in der Zelle H50 29.07.2008 in der Spalte I steht ebenfalls ein Datum im Format z.B in der Zelle I50 06.10.2008
Jetzt soll in der Spalte G in Zelle G50 automatisch folgender Eintrag...
11.09.2009 07:40:30
Thread-ID: 1101896
3 Beiträge
Anzeige
Zeilenhöhe aus Zelle bestimmter Sp übernehmen
Peter

Guten Tag
Ich habe eine Tabelle, in der in Spalte G ab Zeile 1 bis x steht, wieviel die Zeilenhöhe betragen soll. Nun möchte ich diese Zeilenhöhen mit Makro zuweisen und zwar zuerst die letzte Zeile mit Inhalt anwählen und dann rückwärts bis Zeile 1 abarbeiten.
Mit nachstehendem Code bi...
26.10.2009 14:49:49
Thread-ID: 1112247
3 Beiträge
Färben von Zellen | Herbers Excel-Forum
philipp schiess
Hallo Zusammen,
Ich bin an einer Jahresplanung am erstellen. Jetzt würde ich gerne mit einfachen befehlen die Zellen einfärben sobald ich die entsprechende Formel/Aufgabe eingebe.
Also wenn bsp t1 geschrieben wird=zelle rot; t2=zelle grün usw.
Ich hoffe Ihr könnt mir helfen
mit freu...
13.01.2010 06:54:04
Thread-ID: 1129308
3 Beiträge
Numerischen Teilstring aus Zelle übernehmen | Herbers Excel-Forum
RalfTh
Hilfe
Ich bin ein absoluter Anfänger und hatte schon die Lösung aber leider ist mir das Excel abgeraucht.
Ich finde die eingesetzte Funktion aber nicht mehr, es ist zum verzweifeln.
Hier also mein Problem:
Ich habe in einer Zelle einen String stehen der einen in "()" gefassten nume...
14.01.2010 13:41:47
Thread-ID: 1129897
7 Beiträge
Zellfarbe und Fontfarbe in ander Zelle übernehmen
Matthias.G.

Nabend Excelaner/inenn,
hab an Euch mal 2 Fragen,
ich übenehme mit :
If rc.Value = Cells(6, lx).Value Then
rc.Interior.ColorIndex = Cells(6, lx).Interior.ColorIndex
rc.Font.ColorIndex = Cells(6, lx).Font.ColorIndex
bSet = True
die Zellfarbe und Schriftfarbe , funzt j...
07.04.2010 00:45:45
Thread-ID: 1150382
2 Beiträge
Anzeige
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Anzeige
Zahlenformat aus Quellzelle übernehmen
Thomas

Hallo Excel-Spezialisten!
Habe folgendes Problem:
In Tabelle 1 - Spalte A - stehen lauter Zahlen, einmal mit Mengeneinheit "Stk.", einmal mit "KG", einmal mit "LT", ....
In Tabelle 2 greife ich nun per Formel auf die Spalte A von Tabelle 1 zu. Ist es möglich, neben dem Wert auch das...
20.11.2010 15:25:21
Thread-ID: 1187937
5 Beiträge
Wert aus letzter Zelle einer Spalte übernehmen
A.

Moin zusammen !
ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. In die ersten Blätter werden Werte aus immer wieder ändernden CSV Dateien eingelesen. Die Werte in den CSV sollen per Diagramm analysiert werden. Die Übernahme der Werte und das Diagramm funktionieren. Bloss werden die...
09.12.2010 10:14:19
Thread-ID: 1190753
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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