Hallo zusammen,
ich habe folgendes Problem:
Das öffnen, Daten als Werte einfügen von Datei B bekomme ich problemlos hin mit:
Sub Öffnen()
Dim loLetzte As Long
'Datei im Hintergrund öffnen
Workbooks.Open "K:\EDV\Filstamm\Filiale_VC_Tour_Fahrer.xls"
'Fil.-Nr. als Zahl einfügen
With Range("A1:A4000")
.NumberFormat = "General"
.Value = .Value
End With
'Datei im Hintegrund wieder schließen
Workbooks("Filiale_VC_Tour_Fahrer.xls").Close savechanges:=False
End Sub
Vor das schließen soll jetzt noch ein Sverweis.
Makrorekorder spuckte das aus:
Sub sve()
'
' sve Makro
'
'
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],Filiale_VC_Tour_Fahrer.xls!R1:R65536,2,FALSE)"
End Sub
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.
|