Makro verkürzen
21.06.2003 17:24:25
Tobias
als Makro-Neuling habe ich folgende Frage:
In einem von mir geschriebenen Marko muss ich 20x die beiden folgenden Zeilen einfügen. Wer kann mir sagen, wie ich das ganze in vielleicht nur zwei Zeilen unterbringe?
Der erste Ausdruck ist
Dim rngInput1 As Range 'Input-Spalte 1
Das geht dann bis
Dim rngInput20 As Range 'Input-Spalte 20
Das gleiche wär's dann mit
Dim rngOutput1 As Range 'Output-Spalte 1
Wie kann ich mir die insgesamt 40 Zeilen sparen und muss nur zwei Zeilen schreiben?
Das Letzte wär dann der Ausdruck
rngInput1.Copy 'Spalte 3 kopieren
rngOutput1.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False 'als Wert einfügen
rngOutput1.PasteSpecial Paste:=xlFormats
Das möchte ich natürlich auch nicht 20x schreiben.
Gruß
Tobias
Anzeige