Recorder-Makro minimieren
15.07.2017 19:15:46
Gisela
ich habe einen Makro mit dem Recorder aufgenommen. Das funktioniert auch alles.
Um den Vorgang aber in 10 Spalten laufen zu lassen, habe ich den Makro 10x untereinander geschrieben.
Gibt es eine elegantere Lösung?
Hier der Makro (die ersten 2):
Range("Q9").AutoFill Destination:=Range("Q9:Q301"), Type:=xlFillDefault
Range("Q9:Q301").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("S9").Select
Application.CutCopyMode = False
Range("S9").AutoFill Destination:=Range("S9:S301"), Type:=xlFillDefault
Range("S9:S301").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U9").Select
Application.CutCopyMode = False
usw.
Vorab schon mal herzlichen Dank für jede Hilfe.
Grüße
Gisela