Zellen mit SVERWEIS füllen bis Zeile leer ist
18.02.2009 09:48:00
Raimund
ich habe folgendes Makro aufgezeichnet:
Das Problem ist, daß sich die Anzahl der über SVERWEIS zu füllenden Zellen in Spalte F ändert (hier bis Zeile 35511). D.h. die Spalte F soll nur so lange gefüllt werden, bis eine Zeile leer ist.
Vielen Dank für die Mühe!
---------------------------------------------------------------------------------------------
Sub SVERWEIS()
' SVERWEIS Makro
' Makro am 04.12.2008 von Gruma aufgezeichnet
Windows("schaffel.xls").Activate
Range("F1").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],'Kunden-Rabatt-Liste für SVERWEIS.xls'!R1C1:R177C2,2)"
Selection.AutoFill Destination:=Range("F1:F35511"), Type:=xlFillDefault
Range("F1:F35511").Select
End Sub