Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung zur VLookup-Eigenschaft

Forumthread: Fehlermeldung zur VLookup-Eigenschaft

Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 10:44:28
Dagmar
Hallo VBA-Experten,
ich bekomme bei dem folgenden Code immer wieder die Fehlermeldung:
Die VLookup-Eigenschaft des WorksheetFunction-Objekts kann nicht zugeordnet werden.
Code:
Sub Fehlerabschätzung()
Dim pos As Integer
Dim sparte As String
sparte = ActiveSheet.Cells(1, 1)
pos = Application.WorksheetFunction.VLookup(sparte, Range("Steuerung"), 4, False)
Wer kann mir sagen, wie ich die Fehlermeldung wegkriege?
Vielen Dank bereits im Voraus für gute Tipps!
Dagmar
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 10:51:36
Hajo_Zi
Hallo Dagmar,
kann es sein, dass das Ergebnis > Absolut 32.768 ist?

AW: Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 10:55:25
Rudi
Hallo,
dann würdest du einen Fehler 6-Überlauf bekommen.
Gruß
Rudi
AW: Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 11:10:19
Dagmar
Nein, das Ergebnis ist eine Jahreszahl
Anzeige
AW: Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 10:52:34
Rudi
Hallo,
Sub Fehlerabschätzung()
Dim pos As Integer
Dim sparte As String
sparte = ActiveSheet.Cells(1, 1)
pos = Application.VLookup(sparte, Range("Steuerung"), 4, False)
If Is Error(pos) then
...
end if
Gruß
Rudi
AW: Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 12:27:19
Dagmar
Weshalb muss ich das "WorksheetFunction" weglassen? Wenn ich dies mache, dann kommt raus pos = Fehler2023 bei der Überwachung, aber das kann nicht sein in ActiveSheet.Cells(1,1) steht bspw. AAA und dies kommt in der Matrix (Range("Steuererung")) eindeutig vor.
Wer kann mir weiterhelfen? Vielen Dank bereits für Eure Mühe!
Dagmar
Anzeige
AW: Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 12:41:16
Rudi
Hallo,

Weshalb muss ich das "WorksheetFunction" weglassen?


Musst du nicht. Ohne kannst du den Fehler aber sauber verarbeiten, ohne dass das Makro abbricht.


kommt in der Matrix (Range("Steuererung")) eindeutig vor.


Garantiert auch ohne Leerzeichein o.ä.?
Lade mal die Tabelle hoch.
Gruß
Rudi

Anzeige
AW: Fehlermeldung zur VLookup-Eigenschaft
05.06.2009 09:57:50
Dagmar
Hallo Rudi,
vielen Dank für Deine Rückmeldung. Die Tabelle hochladen kann ich leider nicht, da es sich um vertrauliche Daten handelt. Sorry.
Inzwischen läuft mein Programm auch und war nachdem ich den Bereich neu definiert habe. Eigentlich ist es der selbe wie vorher (A:E), aber da ich zwischenzeitlich dachte es liegt an der Bereichsgröße habe ich auf (A1:E100) eingeschränkt und dann doch wieder auf (A:E) vergrößert. Keine Ahnung, was da jetzt anders dran sein soll. Auf jeden Fall läuft es jetzt. Vielen Dank auf jeden Fall für Deine Mühe - und natürlich auch an die anderen, die sich über mein Problem Gedanken gemacht haben.
Grüße
Dagmar
Anzeige
AW: Fehlermeldung zur VLookup-Eigenschaft
04.06.2009 10:53:42
Markus
so:
Dim sparte As Range
Set sparte = ActiveSheet.Cells(1, 1)
LG
Markus
Unsinn owT
04.06.2009 10:56:13
Rudi
AW: Unsinn owT
04.06.2009 11:06:45
Markus
Und warum ist die Fehlermeldung dann weg und das Ergebnis stimmt?
Lass deine Unsinnigen Komentare!
Anzeige
AW: Unsinn owT
04.06.2009 11:12:18
Dagmar
Welche Unsinnigen Kommentare meinst Du?
AW: Unsinn owT
04.06.2009 11:18:41
Markus
Hallo Dagmar
Den wo ich darauf geantwortet habe
Unsinn owT - von Rudi Maintaire am 04.06.2009 10:56:13
AW: Unsinn owT
04.06.2009 12:14:16
Dagmar
Ja, aber ich meinte inhaltlich. Was war da nicht richtig, was er geschrieben hat?
Anzeige
AW: Unsinn owT
04.06.2009 12:25:21
Markus
Er betitelt meinen Beitrag doch als Unsinn. Aber es funktioniert bei mir so wie angegeben, indem ich diese zwei Codezeilen verändere wie bei mir angegeben.
Also wenn er meint das sei Unsinn, soll er doch bitte auch dazuschreiben warum und nicht einfach nur "Unsinn" kommentieren.
Damit kann ich nämlich nichts anfangen und muss wiederum seinen Beitrag als Unsinn abtun.
Seine Antwort auf deine Frage habe ich ja nicht kommentiert, sondern nur seine Rückmeldung auf meinen Beitrag.
Anzeige
AW: Unsinn owT
04.06.2009 12:46:36
Rudi
Hallo,
weil deine nachgebaute Tabelle nicht mit Dagmars übereinstimmt.
Ob ich einer Variablen einen String zuweise oder einer Zelle und deren Inhalt dann verarbeite, ist egal.
Der Fehler besagt eindeutig, dass der Wert nicht gefunden wird.
Gruß
Rudi
AW: Unsinn owT
04.06.2009 13:32:31
Markus
Ja,
aber auch in meinem Tabellennachbau bekam ich mit der Ursprungsversion einen Fehler bzgl. Object in der Zeile "pos=..."
Mit meiner Version gings dann: Suche und Ausgabe eines Wertes.
Allerdings ohne Abfang, wenn Werte einfach nicht vorhanden ist.
Markus
Anzeige
;

Forumthreads zu verwandten Themen

VLookup funktioniert nicht immer
Thomas

Hallo Zusammen,
ich habe ein kleines Problem mit "VLookup". Wenn ich es richtig verstanden habe, ist das die Funktion in VBA die in Excel dem "sverweis" entspricht. Ich möchte aus einem Formular per "VLookup" aufgrund der Auswahl in einer Kombibox einen entsprechenden Wert anzeigen. Dieser...
29.06.2012 20:27:01
Thread-ID: 1269465
7 Beiträge
VBA Fehler abfangen
Peter

Guten Tag an alle Forumsteilnehmer,
ich habe ein kleines Problem mit folgendem Code.
ActiveSheet.Shapes("AutoShape 1").Rotation = Range("A1").Value
Wie schalte ich die Fehlermeldung aus, wenn Zelle A1 leer ist.
Würde mich freuen, wenn Ihr mir weiterhelfen könntet.
Vielen Dan...
03.03.2013 14:33:27
Thread-ID: 1302021
5 Beiträge
VBA - Fehler in Unterprogramm abfangen
Max

Hallo liebe Community,
ich habe ein kleines VBA - Problem.
Über einen Button lasse ich verschiedene Programm nacheinander ablaufen.
Private Sub Aktualisieren_Click() Call Copytest Call TextAendern Call DatenKopierenIgnorNeu Call TextAendernIgnorMeld Call DatenKopierenSperrNeu Call...
11.07.2013 08:47:18
Thread-ID: 1321968
4 Beiträge
Vlookup funktioniert nicht
Dietz

Hallo,
ich versuche gerade mittels Vlookup mir Werte ermitteln zu lassen. Leider funktioniert folgende Formel nicht, warum?:
=VLOOKUP([@[Employee Name]],Team!B:B,2) Ich bekomme einen #REF!. Trage ich anstatt der 2 eine 1 ein zeigt er mir den Namen an, es soll aber der Wert rechts in de...
22.09.2015 14:56:32
Thread-ID: 1448685
7 Beiträge
VBA vlookup funktioniert nicht, als Formel schon
flw201

Hallo zusammen,
mit Hilfe von UweD habe ich mir eine Lösung zusammengebaut. Allerdings habe ich das Problem, dass VLOOKUP nicht wie gewünscht funktioniert (einfach nicht bei ELSE weitermacht, obwohl es mit vlookup als normale Formel funktionier) und die Vergleichswerte in einer anderen Tabe...
15.07.2016 16:50:55
Thread-ID: 1504791
6 Beiträge
VBA vlookup funktioniert nicht, als Formel schon
flw201

Hallo zusammen,
mit Hilfe von UweD habe ich mir eine Lösung zusammengebaut. Allerdings habe ich das Problem, dass VLOOKUP nicht wie gewünscht funktioniert (einfach nicht bei ELSE weitermacht, obwohl es mit vlookup als normale Formel funktionier) und die Vergleichswerte in einer anderen Tabe...
15.07.2016 16:55:49
Thread-ID: 1504793
2 Beiträge
VBA-Fehlermeldung abfangen...
Ina
Hallo Forum,
einen schönen Montagmorgen wünsche ich in die Runde!
Ich habe ein kleines Problem...
In Tabelle1 werden abhängig vom Inhalt der Zellen B9:B39 per rechtem Mausklick eine UserForm (AUSWAHL_1 oder AUSWAHL_2) mit ListBox zur Auswahl von Werten geöffnet.
Enthält die Zelle E4...
01.03.2004 10:40:07
Thread-ID: 390692
7 Beiträge
VBA: Fehlermeldung abfangen
Erwin
Guten Morgen,
mit nachfolgendem Corde entferne ich derzeit Zeilen, die einen bestimmten Namen enthalten:
Sub OTTO_entfernen() Range("A1").Select Cells.Find(What:="OTTO", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _...
12.09.2022 08:57:20
Thread-ID: 1898264
4 Beiträge
VLookup funktioniert nicht mehr
ContainerPeter
Hallo alle,

bin neu hier, weil ich ein Problem habe. Bisher kam ich mit VBA-Makros ganz gut zurecht. Jetzt funktioniert ein Makro, dass ich vor ein paar Wochen geschrieben habe, nicht mehr. Die VLOOKUP anweisung wird mit dem Fehler 1004 angemeckert.
Ein kleines Testmakro:
Sub VLook...
22.01.2024 17:57:46
Thread-ID: 1961616
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Fehlermeldungen bei VLookup in Excel VBA beheben

Schritt-für-Schritt-Anleitung

Um die Fehlermeldung "Die VLookup-Eigenschaft des WorksheetFunction-Objekts kann nicht zugeordnet werden" zu beheben, folge diesen Schritten:

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel (Alt + F11).

  2. Erstelle ein neues Modul oder öffne ein bestehendes.

  3. Füge den folgenden Code ein:

    Sub Fehlerabschätzung()
   Dim pos As Variant
   Dim sparte As String
   sparte = ActiveSheet.Cells(1, 1).Value
   pos = Application.VLookup(sparte, Range("Steuerung"), 4, False)

   If IsError(pos) Then
       MsgBox "Wert nicht gefunden", vbExclamation
   Else
       MsgBox "Gefundener Wert: " & pos
   End If
End Sub

  4. Ändere den Bereich in Range("Steuerung"), wenn nötig. Stelle sicher, dass die Datenquelle korrekt definiert ist.

  5. Führe das Makro aus und teste es mit verschiedenen Eingabewerten.

Häufige Fehler und Lösungen

  1. Fehlermeldung: vba error 2042

    • Diese Fehlermeldung tritt auf, wenn der gesuchte Wert nicht gefunden werden kann. Verwende IsError, um diesen Fehler abzufangen.

  2. VLookup funktioniert nicht

    • Überprüfe, ob der Suchwert korrekt ist und ob er in der angegebenen Matrix vorhanden ist. Achte auf Leerzeichen oder Groß-/Kleinschreibung.

  3. Die VLookup-Eigenschaft kann nicht zugeordnet werden

    • Stelle sicher, dass du Application.VLookup anstelle von Application.WorksheetFunction.VLookup verwendest, um die Fehlerbehandlung zu verbessern.

Alternative Methoden

  • Verwendung von Application.VLookup: Diese Methode ermöglicht es, Fehler wie vba error 2042 leichter abzufangen.

  • Nutzung von If Not IsError(...): Damit kannst du sicherstellen, dass der Code nicht abbricht, wenn der gesuchte Wert nicht gefunden wird.

  • Array-Formeln: Wenn du komplexere Suchen durchführen möchtest, könntest du auch Array-Formeln in Excel verwenden, um mehrere Bedingungen abzufragen.

Praktische Beispiele

Hier sind einige Beispiele für die Verwendung von VLookup in Excel VBA:

  1. Einfaches Beispiel:

    Sub Beispiel1()
   Dim result As Variant
   result = Application.VLookup("AAA", Range("Steuerung"), 4, False)
   If IsError(result) Then
       MsgBox "Wert nicht gefunden"
   Else
       MsgBox "Der Wert ist: " & result
   End If
End Sub

  2. Mehrere Suchwerte:

    Sub Beispiel2()
   Dim i As Integer
   For i = 1 To 10
       MsgBox Application.VLookup(Cells(i, 1).Value, Range("Steuerung"), 4, False)
   Next i
End Sub

Tipps für Profis

  • Verwende Named Ranges: Anstatt feste Zelladressen zu verwenden, kannst du benannte Bereiche nutzen, um deinen Code klarer und flexibler zu gestalten.

  • Fehlerprotokollierung: Implementiere eine Fehlerprotokollierung, um herauszufinden, wo und warum Fehler auftreten.

  • Debugging: Nutze die Debugging-Tools in VBA, um den Code Schritt für Schritt durchzugehen und mögliche Fehlerquellen zu identifizieren.

FAQ: Häufige Fragen

1. Was bedeutet der Fehler "Die VLookup-Eigenschaft kann nicht zugeordnet werden"? Dies bedeutet, dass der gesuchte Wert in der angegebenen Matrix nicht gefunden werden konnte oder dass ein anderer Fehler in der Formel vorliegt.

2. Wie kann ich Fehler bei VLookup in VBA abfangen? Verwende If IsError(...) Then, um zu überprüfen, ob ein Fehler aufgetreten ist, bevor du mit dem Ergebnis weiterarbeitest.

3. Warum muss ich 'WorksheetFunction' weglassen? Wenn du Application.VLookup verwendest, kannst du Fehler einfacher abfangen, ohne dass das Makro abbricht.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige