SVERWEIS in VBA - aber nicht alleine

Hallo,
ich habe eine Formel um einen Zellenwert mit Werten einer Liste zu vergleichen, also eine Klassische SVERWEIS Abfrage.
Nun würde ich diese gerne in VBA Code wandeln, da die Tabelle nicht gesperrt werden darf und sonst unnötig die Datenqualität leidet.
Die Formel lautet: =WENNFEHLER(WENN(SVERWEIS(A2;'KBK-Zuständigkeit'!$A$2:$B$99999;2;FALSCH);SVERWEIS(A2;'KBK-Zuständigkeit'!$A$2:$B$99999;2;FALSCH);"");"")
Am liebsten sogar kein einfügen der Formel in die passende Zelle, sondern nur das Ergebnis dort lassen :)
In A stehen Kundennummern z.b. 8647169
in B soll das Ergebnis stehen
in der Mappe KBK
steht in A eine Auswahl von Kundennummern
in B jeweils der zu übernehmende Wert z.b. 1,2,3
Kann mir dabei jemand helfen?
Ich verzweifel hier seit ca 4 Stunden :P
VG Timo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wokesay,
und warum schreibst du nicht einfach deine SVERWEIS-Formel per VBA in deinen Zellbereich und ersetzt dann das Formelergebnis durch die Werte.
Den Blattnamen musst du an deine Gegebenheiten anpassen.
Den Bereich in den die Formel eingetragen wird habe ich mal von B2 bis B letzte belegte Zelle in Spalte A gewählt, da ich davon ausgegangen bin, dass in Zeile 1 Überschriften vorhanden sind.

Public Sub test()
Dim loLetzte As Long, raBereich As Range
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereich = .Range(.Cells(2, 2), .Cells(loLetzte, 2))
raBereich.FormulaLocal = "=WENNFEHLER(WENN(SVERWEIS(A2;'KBK-Zuständigkeit'!$A$2:$B$99999;2; _
FALSCH);" _
& "SVERWEIS(A2;'KBK-Zuständigkeit'!$A$2:$B$99999;2;FALSCH);"""");"""")"
raBereich.Value = raBereich.Value
End With
set raBereich = Nothing
End Sub

Gruß Werner

Public Sub test() Dim loLetzte As Long, raBereich As Range With Worksheets("Tabelle1") 'Blattname anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row Set raBereich = .Range(.Cells(2, 2), .Cells(loLetzte, 2)) raBereich.FormulaLocal = _ "=WENNFEHLER(WENN(SVERWEIS(A2;'KBK-Zuständigkeit'!$A$2:$B$99999;2;FALSCH)" _ & ";SVERWEIS(A2;'KBK-Zuständigkeit'!$A$2:$B$99999;2;FALSCH);"""");"""")" raBereich.Value = raBereich.Value End With End Sub

Public Sub test() Dim lastrow As Long With Worksheets("Quelle").Cells(lastrow + 1, 8) .FormulaLocal = "=WENNFEHLER(WENN(SVERWEIS(Datentransfer!L30;'KBK-Zuständigkeit'!" _ & "$A$2:$B$99999;2;FALSCH);SVERWEIS(Datentransfer!L30;" _ & "'KBK-Zuständigkeit'!$A$2:$B$99999;2;FALSCH);"""");"""")" .Value = .Value End With End Sub

Beliebteste Forumthreads (12 Monate)

SVERWEIS in VBA - aber nicht alleine

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVERWEIS in VBA - aber nicht alleine

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread