SVERWEIS für mehrere Einträge

habe mein Problem erkannt - muss eine Seperate SVERWEIS Tabelle erstellen mit den Monaten Jan-Dez und den dazu gültigen preis eintragen!!
Der Groschen fällt halt langsam
Danke an Dich
Gruss
Frank

habe mein Problem erkannt - muss eine Seperate SVERWEIS Tabelle erstellen mit den Monaten Jan-Dez und den dazu gültigen preis eintragen!!
Der Groschen fällt halt langsam
Danke an Dich
Gruss
Frank

Hallo Saskia,

das kommt davon, dass die Einträge in den Tabellen nicht übereinstimmen. So wie ich das in den Screenshots sehe, sind in "Countries" alle Einträge außer AT mit 3 Buchstaben. In deiner Tabelle1 suchst du aber nur nach 2 Buchstaben.

Damit SVERWEIS etwas finden kann, müssen die Einträge schon übereinstimmen.

Es kann auch sein, dass du in einer der Tabellen führende oder nachfolgende Leerzeichen hast und die Werte deswegen nicht übereinstimmen.

Claus

Hallo Thom,

du willst also bestehende Einträge belassen und nur in die leeren Zellen den SVERWEIS einbringen?

Dann musst du mit einer Schleife über alle Zellen gehen und den SVERWEIS nur in die leeren Zellen schreiben:

Sub sverweis()

Dim i As Integer

For i = 7 To 5000

If Len(Cells(i, "M")) = 0 Then

Cells(i, "M") = _

Application.VLookup(Cells(i, "N"), _

Sheets("Herkünfte").[A1:C50], 3, False)

End If

Next

[m7:m5000].SpecialCells(xlCellTypeConstants, 16).ClearContents



End Sub

Mit freundlichen Grüßen

Hallo Enrico,
die Datengültigkeit zeigt immer nur 8 Einträge an.
Außerdem denke ich, dass deine Anforderung eher ein Fall für einen SVERWEIS ist.
Kannst du mal eine Demo-Mappe zur Verfügung stellen (mit entsprechenden Bemerkungen, was wo gewünscht ist)?
Claus