Autofill in VB
10.05.2007 15:48:11
roland000
Hallo Leute,
ich habe folgendes Makro mit Recorder aufgezeichnet:
Sub HPZuordnung()
Range("N2").Select
ActiveCell.FormulaR1C1 = _
"=LOOKUP(RC[-1],Handelspartner.xls!C1,Handelspartner.xls!C2)"
Range("N2").Select
Selection.AutoFill Destination:=Range("N2:N30")
Range("N2:N30").Select
End Sub
Nun haben meine Tabellen unterschiedliche Zeilenanzahlen. Ich möchte aber, dass die Eintragung immer bis zum jeweiligen Ende der vorhandenen Zellen ausgefüllt wird. Quasi Range(N:N). Aber der Eintrag darf erst in N2 beginnen.
Kann mir vielleicht jemand helfen??
Gruß
Roland
P.S. Bin für einige Tage nicht erreichbar, aber bitte hinterlasst mir einen Lösungsvorschlag!! DANKE
Anzeige