Office: (Office 2013) Problem bei Excel - VBA Makro SVERWEIS funktioniert nicht!

Hallo Zusammen,
vielleicht kann mir jemand bei meinem Problem helfen.
Ich bin in der VBA Programmierung nicht so fit.
Ich habe es mit einer Makroaufzeichnung versucht und bekam dieses Ergebnis:

' SVERWEIS_Rückstand holen()
Range("K5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-10],Rückstand_ab2016.xls!C1:C2,2,)"
Range("K5").Select

Ich habe zwei Dateien:
1) Produktionszahlen_ab2016.xlsm
2) Rückstand_ab2016.xls

Ziel soll es sein in die Spalte K der Datei Produktionszahlen die Werte aus der Datei Rückstand aus der entsprechenden Spalte B zu holen. In Spalte A der Datei Rückstand stehen die Daten der Spalte A Produktionszahlen für den SVERWEIS.
Den Anhang VBA_Fehler.docx betrachten Den Anhang VBA_SVERWEIS.docx betrachten

Gruß
Michaela

 

Hi Michaela,

ich erhalte zwar mit Excel2013 keine Fehlermeldung, aber m.E. ist deine Formel falsch: SVERWEIS verlangt als 1. Parameter das Suchkriterium, und das kann keine ganz Spalte sein. Ich schätze mal, deine Formel für K5 sollte so aussehen =SVERWEIS(A5;Rückstand_ab2016.xls!$A:$B;2, ) - oder irre ich mich? Um diese Formel per VBA in K5 einzutragen müsste der Code so lauten

Code:

Range("K5").Formula = "=VLOOKUP(A5,Rückstand_ab2016.xls!$A:$B,2,)"

Bis später,
Karin

 

Hallo Karin,

leider funktioniert es immer noch nicht. Es erscheint die gleiche Fehlermeldung.
Laufzeitfehler !1004!
Gruß
Michaela

 

Hi Michaela,

wie schon geschrieben - ich kann das bei mir nicht nachvollziehen.
Gibt es einen Fehler, wenn du die Formel von Hand einträgst?

Bis später,
Karin

 

Wenn ich in die Zelle die Formel schreibe, ist das kein Problem. Aber mit dem Makro schon.
Ich habe mal versucht in zwei Testdateien ein Makro zu erstellen, das funktioniert auch.
Also wird es wohl ein Problem geben mit dem kompletten Makro.

Das sieht so aus:

Sub Rückstand()
'
' Textzahlen_in_Zahlen_wandeln3()
Workbooks.Open ("V:\Datenbanken\Rückstand_ab2016.xls")
With Range("A:A")
.NumberFormat = "Standard"
.Value = .Value
End With

Windows("Produktionszahlen_ab2016.xlsm").Activate
Range("K5:K312").Select
Selection.ClearContents

' SVERWEIS_Rückstand holen()
Range("K5").Formula = "=VLOOKUP(A5,Rückstand_ab2016.xls!A1:B500,2,False)"
Range("K5").Select
Selection.AutoFill Destination:=Range("K5:K312"), Type:=xlFillDefault
Range("K5:K312").Select

End Sub

 

Mal ganz davon abgesehen, dass du ein Problem beim Eintragen der Formel hast, welches ich absolut nicht nachvollziehen kann, eine Frage: im Bereich K5:K312 steht die SVERWEIS-Formel - weshalb muss diese überhaupt erst gelöscht werden, wenn sie anschließend wieder eingetragen wird? Das ist doch ein wenig sinnlos - oder? :)

Bis später,
Karin

 

Die Zahlen ändern sich täglich. Nachdem die aktuellen Zahlen per SVERWEIS geholt werden, wäre der nächste Schritt aus den Formeln feste Werte zu machen und #Wert durch Null zu ersetzen. Vielleicht kann man das auch anders lösen?

 

Wenn sich die Zahlen täglich ändern - willst du nicht mit den aktuellen sondern veralteten Zahlen arbeiten, da du sie in Werte umwandeln willst?

Bis später,
Karin

 

Wenn ich die Formeln stehen lasse, dann bekomme ich bei einigen Zellen #Wert! und das möchte ich nicht. Dafür soll dann 0 stehen.
Dies kann ich jedoch nur bei festen Werten ersetzen. Mit einem Makro wäre das ja auch kein Problem.
Wenn es denn funktionieren würde ;-(

 

Das zu unterdrücken ist seit Excel2007 doch ganz einfach: benutze WENNFEHLER um die SVERWEIS-Formeln herum: WENNFEHLER(SVERWEIS(.....);0)

Bis später,
Karin