VBA-Code vereinfachen
26.08.2015 13:20:54
Pat132
ich möchte in diversen Zellen, die sich innerhalb einer Spalte immer im Abstand von 13 Zeilen befinden, bestimmte Daten mit einem SVerweis auslesen - und das per Knopfdruck. Dafür habe ich ein Makro aufgezeichnet, das den SVerweis in die jeweilige Formel einkopiert (und danach eine Wertkopie durchführt).
Funktioniert zwar, der Code ist aber verdammt lang geworden, da der Arbeitsschritt insgesamt 40 Zellen umfasst:
Range("M9").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC11,Steuertabelle!R5C75:R59C79,2,0),0)"
Range("M9").Select
Selection.Copy
Range("M22").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M35").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M48").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=27
Range("M61").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M74").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M87").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=9
Range("M100").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M113").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Range("M126").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
(...)
Gibt es eine Möglichkeit, diesen Code einfacher und kürzer darzustellen, so dass er später einfacher zu warten ist?Dank und Gruß, Patrik