Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro verkürzen ?

Makro verkürzen ?
10.02.2008 13:20:14
Walter
Guten Tag,
habe im Makro dies eingebunden, da ich es vorher aufgezeichnet habe.
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Select
Application.CutCopyMode = False
Selection.Font.Bold = True 'Fett
ich möchte also von der aktiven Zelle das Format der darüberliegenden Zelle auf die
aktive u. nächste Zelle kopieren.
Dann bin ich wieder in der aktiven Zelle und die Schrift soll Fett sein.
mfg Walter mg

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

Betreff
Datum
Anwender
Anzeige
AW: Makro verkürzen ?
10.02.2008 13:26:48
Daniel
HI
ich würde das Makro so verkürzen
With ActiveCell
.Offset(-1, 0).Copy
.Resize(2, 1).PasteSpecial xlPasteFormats
.Font.Bold = True
End With
Application.CutCopyMode = False
Gruß, Daniel

DANKE Daniel, funktioniert ! -)
10.02.2008 13:44:00
Walter
Hallo Daniel, danke und einen schönen Sonntag noch,
mfg Walter mg

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige