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

Formate aus Spaltenbereich übertragen

Forumthread: Formate aus Spaltenbereich übertragen

Formate aus Spaltenbereich übertragen
Peter
Guten Tag
Ich habe einen Spaltenbereich der dem Excel.Range rDestin zugewiesen und diesen jeweils wie folgt abgefüllt:
With rDestin
.NumberFormat = -"#,##0.00;#,##0.00"
.FormulaR1C1 = "=IF ........"
End With
Nun möchte ich das Zahlenformat nicht mehr fix im Code eingeben, sondern von einem anderen Spaltenbereich, den ich der Variable rSource zugewiesen habe und der gleich viele Zellen umfasst wie rDestin, übernehmen.
Wie kann ich das in obigen Codeblock integrieren?
Gruss, Peter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formate aus Spaltenbereich übertragen
11.05.2012 08:55:13
JoWE
Hallo Peter,
so sieht für diesen Zweck die Aufzeichnung des Makros aus: 
Sub Makro1()
Selection.Copy
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Gruß
Jochen
Anzeige
AW: Formate aus Spaltenbereich übertragen
11.05.2012 09:32:05
Peter
Hallo Jochen
Ich danke dir.
Ich habe es jetzt wie folgt gelöst:
rSource.Dopy
With rDestin
.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
.FormulaR1C1 = "=IF ......"
End With
Gruss, Peter
;

Beliebteste Forumthreads (12 Monate)

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