AW: Welches Makro?
13.02.2006 13:17:13
WernerB.
Hallo Hans,
wie gefällt Dir das (ungetestet)?
Sub Hans()
Dim acR As Long
acR = ActiveCell.Row
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-3],Ausstehende_Offerte!C[-3]:C[-1],2,FALSE)"
ActiveCell.Offset(0, 1).FormulaR1C1 = _
"=CONCATENATE(VLOOKUP(RC[-4],Ausstehende_Offerte!C[-4]:C[3],7,FALSE),"" "",VLOOKUP(RC[-4],Ausstehende_Offerte!C[-4]:C[3],8,FALSE))"
ActiveCell.Offset(0, 2).FormulaR1C1 = "=VLOOKUP(RC[-5],Ausstehende_Offerte!C[-5]:C,6,FALSE)"
ActiveCell.Offset(0, 10).FormulaR1C1 = _
"=CONCATENATE(VLOOKUP(RC[-13],Ausstehende_Offerte!C[-13]:C[-3],11,FALSE),"" "",VLOOKUP(RC[-13],Ausstehende_Offerte!C[-13]:C[-1],13,FALSE))"
Range("B" & acR & ":N" & acR).Copy
Range("B" & acR & ":N" & acR).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A" & acR).Select
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !