VLookUp- Laufzeitfehler 1004

Hallo zusammen,
ich arbeite erst seit 2 Wochen mit VBA und habe bisher alle kleineren Problemchen selbstständig gelöst. Leider stoße ich seit 3 Tagen an meine Grenzen.
Ich habe ein VLookUp-Funktion benutzt um Daten von einem Tabellenblatt in eine anderes zu laden. Dabei erhalte ich jedoch, egal wie ich es drehe und wende, den Laufzeitfehler 1004.
Hier mein Sub:

Sub Sonnenuntergang_Sonnenaufgang()
Dim i As Integer
Dim SU As Variant
Dim letzteZeile As Integer
Worksheets(5).Range(Cells(2, 1), Cells(letzteZeile, 1)).NumberFormat = "DD.MM.YYYY"
Worksheets(4).Range(Cells(2, 1), Cells(letzteZeile, 1)).NumberFormat = "DD.MM.YYYY"
letzteZeile = Worksheets(5).Cells(Rows.Count, 1).End(xlUp).Row
SU = Worksheets(5).Range(Cells(2, 1), Cells(letzteZeile, 6))
For i = 2 To letzteZeile
Cells(i, 11) = Application.VLookup(Range(Cells(i, 1), Cells(letzteZeile, 1)), SU, 5, False)
Next i
End Sub

Ich hoffe, dass mir hier jemand helfen kann oder einen Tipp erhalte mit dem ich weiterarbeiten kann.
Vielen Dank schonmal im Voraus!!!
Viele Grüße,
Jasmin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Sonnenuntergang_Sonnenaufgang() Dim i As Integer Dim SU As Variant Dim letzteZeile As Integer letzteZeile = Worksheets(5).Cells(Rows.Count, 1).End(xlUp).Row Worksheets(5).Range(Cells(2, 1), Cells(letzteZeile, 1)).NumberFormat = "DD.MM.YYYY" Worksheets(4).Range(Cells(2, 1), Cells(letzteZeile, 1)).NumberFormat = "DD.MM.YYYY"

…Folks; :-]
ich gehe mal davon aus, dass Jasmin das schon richtig argumentiert, nur eben leider wie eine ZellFml-Fkt in einer MatrixFml, was hier aber nicht fktioniert!
1. Jede Fkt, die im Container WorksheetFunction enthalten ist, sollte auch nur als objektbildende Eigenschaft von Application fktionieren, wird nur nicht vom VBE-Intellisense unterstützt.
2. SU enthält eine ausreichende SpaltenZahl.
3. letzteZeile wird zuvor belegt.
4. Entscheidend: Eine WorksheetFunction fktioniert nur so, wie sie auch pgmmiert wurde - die Unterstützung durch die Xl-Steuerung entfällt. Deshalb muss ein skalares Element auch stets skalar angegeben wdn.
Das ist in deinem Konstrukt nicht der Fall, Jasmin,
was aber womöglich nur ein Versehen deinerseits ist, weil ja sonst der ganze Zyklus nicht erforderlich wäre. Die Zeile muss also richtig eher wie folgt lauten:
Cells(i, 11) = Application.VLookup(Cells(i, 1), SU, 5, False)
Feedback nicht unerwünscht! Gruß + FrOst, Luc :-?
Besser informiert mit …

Option Explicit Sub Sonnenuntergang_Sonnenaufgang() Dim i&, lZ4&, lZ5& ' & = "as long" Dim sh4 As Worksheet, sh5 As Worksheet Dim SU As Range ' !!! **************** Set sh4 = Worksheets(4) Set sh5 = Worksheets(5) lZ4 = sh4.Cells(sh4.Rows.Count, 1).End(xlUp).Row lZ5 = sh5.Cells(sh5.Rows.Count, 1).End(xlUp).Row sh4.Range("A1:A" & lZ4).NumberFormat = "DD.MM.YYYY" sh5.Range("A1:A" & lZ5).NumberFormat = "DD.MM.YYYY" Set SU = sh5.Range("A2:F" & lZ5) For i = 2 To lZ4 sh4.Cells(i, 11) = Application.VLookup(sh4.Cells(i, 1), SU, 5, False) Next i End Sub

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VLookUp- Laufzeitfehler 1004

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread