Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1260to1264
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
Inhaltsverzeichnis

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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige