Thema Datum  Von Nutzer Rating
Antwort
22.09.2010 21:23:45 Fredy
NotSolved
Blau Aw:Sverweis in VBA
22.09.2010 23:20:31 Severus
NotSolved
23.09.2010 17:32:15 Fredy
NotSolved

Ansicht des Beitrags:
Von:
Severus
Datum:
22.09.2010 23:20:31
Views:
1557
Rating: Antwort:
  Ja
Thema:
Aw:Sverweis in VBA
Fredy schrieb am 22.09.2010 21:23:45:

Hi,

ich probiere jetzt schon seit mehreren Tagen in VBA einen Sverweis hinzubekommen, allerdings kommt jedesmal der Fehler:
"Laufzeitfehler '1004':
Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden."

Ich suche schon seit ein paar Tagen in allemöglichen Foren um eine Lösung zu finden, allerdings wiedersprechen sich hier einige Dinge und beim Ausprobieren hat leider auch keine der Möglichkeiten funktioniert. Ich bekomme zwar immer einen Wert , allerdings immer 25 was falsch ist.

Hier ist der Code:

Range("C11").Select

i = 0
Do

i = i + 1

Loop Until ActiveCell.Offset(0, i) = ""

ActiveCell.Offset(0, i).Value = Application.WorksheetFunction.VLookup([B11], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(1, i).Value = Application.WorksheetFunction.VLookup([B12], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(2, i).Value = Application.WorksheetFunction.VLookup([B13], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(3, i).Value = Application.WorksheetFunction.VLookup([B14], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(4, i).Value = Application.WorksheetFunction.VLookup([B15], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(5, i).Value = Application.WorksheetFunction.VLookup([B16], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(6, i).Value = Application.WorksheetFunction.VLookup([B17], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(7, i).Value = Application.WorksheetFunction.VLookup([B18], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(8, i).Value = Application.WorksheetFunction.VLookup([B19], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(9, i).Value = Application.WorksheetFunction.VLookup([B20], Sheets("Leistungen").[A2:B60], 2)


Vielen Dank schonmal im Voraus,

Fredy

ActiveCell.Offset(0, i).Value = Application.WorksheetFunction.VLookup([B11], Sheets("Leistungen").[A2:B60], 2, False)

Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.09.2010 21:23:45 Fredy
NotSolved
Blau Aw:Sverweis in VBA
22.09.2010 23:20:31 Severus
NotSolved
23.09.2010 17:32:15 Fredy
NotSolved