Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VLookup - Fehlermeldung

VLookup - Fehlermeldung
KLE
Hallo,
...ich habe eine Datei, in der ich per VBA einen SVerweis ausführen möchte.
Dazu habe ich einen Bereich "Laender" per Set zugewiesen.
Nun soll der in Laender gesuchte Wert, wenn vorhanden - den passenden Eintrag der 2'ten Spalte und 3'ten Spalte aus Länder in meine Tabelle eintragen.
Dazu gehe ich 2x mit der VLOokup-Funktion vor.
Bei Fehler (wenn kein Treffer) soll in der Tabelle dann "" NICHTS eingetragen werden und er soll weiter suchen...
Hier mein Versuch, der beim 2'ten Lauf (Spalte3) mit einer Fehlermeldung endet:
On Error Resume Weiter
.cells(LZeile, 21) = Application.WorksheetFunction.VLookup(.Cells(LoZeileD, 11).Value, Laender, 2, 0)
Weiter: .cells(Lzeile, 21) = ""
On Error Resume Weiter2
.cells(LZeile, 22) = Application.WorksheetFunction.VLookup(.Cells(LoZeileD, 11).Value, Laender, 3, 0)
Weiter2: .cells(Lzeile, 22) = ""
Wie kann ich es besser (funktionsfähig) machen ?!?
Gruß und Danke
Kay

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VLookup - Fehlermeldung
19.05.2011 14:06:32
Rudi
Hallo,
am besten ohne Worksheetfunction, On Error und GoTo. 
If IsError(Application.VLookup(.Cells(LoZeileD, 11).Value, Laender, 2, 0)) Then
.Cells(LZeile,21) = ""
Else
.Cells(LZeile,21) = Application.VLookup(.Cells(LoZeileD, 11).Value, Laender, 2, 0)
End If

Gruß
Rudi
AW: VLookup - Fehlermeldung
19.05.2011 14:22:53
KLE
Danke Rudi ! Da mein Chef mich drängelte, habe es nach langem überlegen, parallel jetzt so gemacht:
z = Application.WorksheetFunction.CountIf(Laender, .Cells(LoZeileD, 11).Value)
If z 0 Then
.Cells(LoZeileD, 9).Value = Application.WorksheetFunction.VLookup(.Cells(LoZeileD, 11).Value, Laender, 2, 0) ' Main Region
.Cells(LoZeileD, 10).Value = Application.WorksheetFunction.VLookup(.Cells(LoZeileD, 11).Value, Laender, 3, 0) ' Sub Region
Else
.Cells(LoZeileD, 9).Value = ""
.Cells(LoZeileD, 10).Value = ""
End If
Werde aber Deine Version nachher noch probieren...vielen Dank für Deine Antwort!
Gruß
Kay
Anzeige

28 Forumthreads zu ähnlichen Themen

vlookup in vba
Christoph

Hallo,
ich hoffe mir kann jemand weiterhelfen.
ich möchte in einem Makro nach einem Datensatz in einer geschlossenen xls. Datei suchen, ähnlich wie bei Sverweis in excel.
Sprich ich suche nach einer eindeutigen Nr. in Spalte A und möchte dann als String den Wert der Spalte B erhalte...
15.10.2008 20:00:00
Thread-ID: 1016669
10 Beiträge
Anzeige
WorksheetFunction.Vlookup Suche von unten beginnen
unten

Hi,
die WorksheetFunction.Vlookup (Bereich_Verweis = FALSE) sucht in der 1. Spalte einer Matrix nach dem zu erstvorkommenden gesuchten Wert und gibt aus dieser Zeile einen Wert zurück. Gibt es eine Möglichkeit den zuletzt vorkommenden gesuchten Wert in einer Spalte zu finden ohne mit Schlei...
24.02.2012 10:08:00
Thread-ID: 1252277
3 Beiträge
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
Anzeige
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
VBA Application.WorksheetFunction.Median
Lolaley

Hallo,
Ich wollte mir gern von untereinandergeschriebenen Daten pro Monat (hier jetzt nur die mit 31 Tagen) die Mediane ausrechnen lassen. Dabei kommt jetzt aber immer die Fehlermeldung:
"Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden"
Ich schätze mal, die...
11.11.2014 14:45:27
Thread-ID: 1391676
6 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
WorksheetFunction.VLookup
Chris

Hallo Alle Zusammen,ich habe versucht mit VBA den SVERWEIS hinzubekommen. Folgendes will ich erreichen:
Es soll auf dem Sheets(1) in Spalte A gesucht werden. Suchkriteruium ist der Name des Arbeitsblattes 9 - Sheets(9).Name. Spaltenindex ist C = 3 und Bereich_Verweis ist FalschFolgenden Code...
21.08.2002 22:29:52
Thread-ID: 151349
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
2
2
6
2
4
3
5
6
1
5
1
3
4
2
3
1
3
3
6
9
4
4
10
4