Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1584to1588
1584to1588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SVERWEIS in VBA - aber nicht alleine

Forumthread: SVERWEIS in VBA - aber nicht alleine

SVERWEIS in VBA - aber nicht alleine
24.10.2017 15:50:46
Wokesay
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: SVERWEIS in VBA - aber nicht alleine
24.10.2017 16:17:39
Luschi
Hallo Wokesay,
für die Tabellefunktion SVerweis() gibt es auch eine Vba-Variante WorksheetFunction.VLookup().
Hier ein kleines Beispiel dazu:
https://www.herber.de/bbs/user/117197.xlsm
Gruß von Luschi
aus klein-Paris
PS: 4 Stunden probieren?!? Da hätte doch googeln mit 'sverweis Vba' mehr gebracht!
Anzeige
AW: SVERWEIS in VBA - aber nicht alleine
24.10.2017 16:20:03
Wokesay
Hallo Luschi,
ich habe wohl google bemüht, aber bin genau an deinem Beispiel hängen geblieben...
Ich habe in den 4h versucht meine ganze Formel in VBA Code umzubauen.
VG Timo
AW: SVERWEIS in VBA - aber nicht alleine
24.10.2017 16:28:00
Luschi
Hallo Timo,
da mußt Du schon ein bischen mehr zeigen in Form eine kleinen Mustermappe;
sowas baut Dir sicher niemand nach, um dann zu testen.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: SVERWEIS in VBA - aber nicht alleine
25.10.2017 00:40:48
Werner
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
Anzeige
AW: SVERWEIS in VBA - aber nicht alleine
25.10.2017 00:49:14
Werner
Hallo Wokesay,
nimm lieber den Code hier. Beim anderen habe ich beim Einfügen nicht aufgepasst und die Forensoftware hat eine Zeilenumbruch rein gehauen.
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
Gruß Werner
Anzeige
AW: SVERWEIS in VBA - aber nicht alleine
25.10.2017 10:29:41
Wokesay
Hallo Werner,
ich habs gerade ausprobiert und es läuft!
Vielen Dank. Die finale Variante sieht jetzt so aus...
Dim raBereich As Variant
Set raBereich = Worksheets("Quelle").Cells(lastrow + 1, 8)
raBereich.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);"""");"""")"
raBereich.Value = raBereich.Value
Set raBereich = Nothing
War dann am Ende ja doch recht einfach, aber drauf gekommen wäre ich sicher nie!
1000 Dank und schönen Tag
Anzeige
AW: SVERWEIS in VBA - aber nicht alleine
25.10.2017 12:59:31
Werner
Hallo Wokesay,
-warum raBereich as Variant?
-wenn du die Formel nur in einer Zelle brauchst dann so 
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
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Anzeige
SVerweis ??? in VBA
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich weiß nicht, ob ich mit dem SVerweis in VBA übehaupt richtig liege. in B1 steht mein 1. suchbegriff (25) und in A3, A5 ... A25 (immer in zweierschritten) steht mein 2. suchbegriff.
nun möchte ich in tabelle "Stammdaten" zuerst die s...
08.07.2009 23:26:22
Thread-ID: 1087239
5 Beiträge
SVerweis in VBA
Stefanglander

Hallo Forum,
ich habe folgenden Code in einer Zelle:
=WENN(C4="";"";SVERWEIS(C4;Stoffplan!$A$2:$F$100;2;FALSCH))
Mag mir jamand sagen wie und wo ich das in VBA hinterlegen kann.
Danke im Vorfelde
Stefan
05.10.2009 21:11:52
Thread-ID: 1107351
11 Beiträge
zu langer SVERWEIS in VBA möglich?
Holger

Hallo liebe Leute,
hab diese Frage schon bei "Office-Lösung" gestellt, mir konnte aber nicht geholfen werden.
Folgendes Problem:
ich möchte mit einem SVERWEIS in ca. 15 verschiedenen Tabellen suchen. In Spalte A ist mein Suchkriterium und in Spalte B ein Begriff (Ort). Ich möchte al...
04.01.2010 09:32:17
Thread-ID: 1126969
14 Beiträge
Formel Sverweis in VBA
Marko Albrecht

Hallo,
ich hoffe mir kann bei meinem, nachfolgend beschriebenen, Problem geholfen werden.Das Problem ist , daß in der nachstehenen Formel(Wenn, Istfehler, Sverweis) VBA ein Hochkomma in die Formel schreibt und die Formel dadurch nicht Ihre Funktion erfüllt.Die Bezugszelle der Formel Sverweis...
11.04.2002 14:27:49
Thread-ID: 112467
10 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
SVerweis in VBA umsetzen
Ines

Hallo,
ich habe mir ein Userform erstellt, da ich Daten in Bezug auf das Datum in eine Tabelle eintragen muss.
Mein Problem ist, dass die Daten nicht irgendwo automatisch eingetragen werden sollen.
Ich würde gerne
im Userform 4 Textfelder ausfüllen und das Datum angeben
D...
10.03.2010 21:36:01
Thread-ID: 1145009
9 Beiträge
Formel in VBA umsetzen
Josef


Hallo!
Wie würde bitte die untenstehende Formel in VBA umgesetzt lauten?
=RUNDEN(F11*0,2;2)
F11 wäre in diesem Fall eine TextBox in einer UserForm.
Danke
Josef
15.04.2010 07:06:19
Thread-ID: 1151875
3 Beiträge
Anzeige
SVerweis mittels VBA
Marta

Hallo Liebe Forumer,
habe eine Frage zu nem SVerweis. Wie realisiere ich =SVERWEIS(B59;'04 Fehlermanagement Fs Kommen'!A1:B5837;2;FALSCH) mittels VBA) ich verstehe es mal so gar nicht... :(
hab es mit dem Makrorekorder aufgezeichnet. nur das Problem ist, dass die Zeilenanzahl von Woche...
04.05.2010 10:40:36
Thread-ID: 1155280
2 Beiträge
VBA Anzahl in Zelle C18 schreiben/ einfrieren
Marcy

Hallo Forum,
mit unterem Code entferne ich meine doppelten Einträge in Spalte A ab Zeile 25.
Funktioniert auch.
Jetzt hätte ich allerdings gerne mindestens eine Erweiterung:
In Zelle C18, soll vor dem Löschen die Anzahl der gefüllten Zellen (handelt sich um Zahlen) eingetragen w...
27.10.2011 08:24:59
Thread-ID: 1235504
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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