Mithilfe einer Schleife einen SVERWEIS programmieren, war:VBA - HILFE!

[Bernd_Stromberg]

Guten Morgen zusammen,

ich stehe auf dem Schlauch. Ich möchte über VBA ein S-Verweis mit einer Schleife programmieren und bekomme folgende Fehlermeldung. "Laufzeitfehler 9: Indexfehler außerhalb des gültigen Bereichs" - kann hier jemand helfen?
Der Fehler tritt in der gelb markierten Zeile auf.

Sub 123aktualisieren()

Dim i As Long

Workbooks.Open Filename:= _
        "Y:\123_Bewertung.xls"

i = 39

For i = 39 To 500

Cells(i, 12) = Application.WorksheetFunction.VLookup(Cells(i, 1), Workbooks("123_Bewertung.xls").Sheets("XY!").Range("B2:M10000"), 9, False)

Next i


Über Hilfe wäre ich super dankbar.

Beste Grüße,
Bernd_Stromberg

[Klaus-Dieter]

Hallo,

dann gibt es eines der in der Zeile angesprochenen Objekte nicht. Schreibfehler?

Dann noch ein Hinweis: du brauchst der Variable i keinen Wert zuweisen, das passiert in der Schleife ohnehin.

[RPP63]

Moin!
Ich nehme mal einfach an, dass das Sheet XY und nicht XY! heißt.
Das ! gehört in Formeln, aber nicht zur Name-Eigenschaft des Sheet-Objekts.

Gruß Ralf

[RPP63]

Und noch ein Gedicht:
Formeln schreibt man nicht per Schleife in einen Bereich (viel zu langsam), sondern gleich in den gesamten Bereich.
Erst Formel schreiben und dann Formeln gegen Werte tauschen.

[Wastl]

Moin,

folgendes is mir aufgefallen:

- früher gingen Sonderzeichen in Tabellenblättern nicht, du hast als Endung .xls, also ist früher
- Eine Sub-Name kann nicht mit Ziffern beginnen
- Ich würde die korrekte Syntax Excel überlassen und den Teil aufzeichnen
- Du willst nicht wirklich mit einer Schleife den Sverweis fast 500x eintragen lassen? dauert ewig…
- End Sub fehlt

[Klaus-Dieter]

Hallo Wastl,

- Du willst nicht wirklich mit einer Schleife den Sverweis fast 500x eintragen lassen? dauert ewig…

so einen Rechner hatte ich auch mal ... 

[Bernd_Stromberg]

Vielen Dank für die schnellen Antworten, Klaus-Dieter und RPP63!
Ich habe "XY!" zu "XY" geändert und habe nun die Fehlermeldung "Laufzeitfehler 1004" - Anwendungs- oder objektorientierter Fehler.

Die Namensbezeichnungen des Worksbooks und des Sheets stimmen ansonsten...

[Klaus-Dieter]

Hallo,

dann lade doch mal deine Datei hoch, so stochern wir doch nur im Nebel.

[Bernd_Stromberg]

Moin,

folgendes is mir aufgefallen:

- früher gingen Sonderzeichen in Tabellenblättern nicht, du hast als Endung .xls, also ist früher
- Eine Sub-Name kann nicht mit Ziffern beginnen
- Ich würde die korrekte Syntax Excel überlassen und den Teil aufzeichnen
- Du willst nicht wirklich mit einer Schleife den Sverweis fast 500x eintragen lassen? dauert ewig…
- End Sub fehlt

1. OK, Sonderzeichen sind draußen
2. :16: 
4. Änderungsvorschläge?
5. End Sub habe ich nicht mit kopiert, steht aber im Makro.

[Wastl]

hi,

Code:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-16],R[-37]C[-15]:R[961]C[-4],9,0)"

bringt bei mir das Aufzeichnen für Formel in Zelle Q39

Änderungsvorschlag zur Schlefe haste weiter oben bekommen von RPP63
Nochn Gedicht…