<strong>
Sub
Öffnen()
Dim
loLetzte
As
Long
Workbooks.Open
"K:\EDV\Filstamm\Filiale_VC_Tour_Fahrer.xls"
With
Range(
"A1:A4000"
)
.NumberFormat =
"General"
.Value = .Value
End
With
Workbooks(
"Filiale_VC_Tour_Fahrer.xls"
).Close savechanges:=
False
End
Sub
</strong>
Vor das schließen soll jetzt noch ein Sverweis.
Makrorekorder spuckte das aus:
<strong>
Sub
sve()
Application.CutCopyMode =
False
Application.CutCopyMode =
False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],Filiale_VC_Tour_Fahrer.xls!R1:R65536,2,FALSE)"
End
Sub
</strong>
Mein Problem ist, dass ich
a) beides nicht zusammen bekomme und b) das aufgezeichnete zweite Makro nichts tut und natürlich laufen soll bis in Spalte A kein Wert mehr steht.
Ich hoffe mein Problem ist verständlich.