Ok.
Da ich mehr Rate als es zu wissen was du vorhast.
Mit dem selbst gefunden Teil erstellst du dir deine Formel in der obersten Zelle deines Bereiches
Range("A1").FormulaLocal = "=SVerweis(B1;C1:D10;2;0)
Dann
Range("A1:A11").Select ‚Bereich markieren
Selection.FillDown ‚Formel fortführen lassen
PS. Wenn du mit VBA unterwegs bist, könntest du die Werte die der Sverweis holen soll auch mit VBA eintragen lassen.
Ich versuche mein Glück noch einmal und diesmal etwas ausführlicher. Vielen Dank erstmals für die super Unterstützung.
Ich möchte gerne in dem jetzigen Makro einen SVERWEIS mit unterbringen.
Der SVERWEIS soll in der Tabelle 2 ausgeführt werden.
In der Tabelle 2 soll der SVERWEIS bzw. das Ergebnis aus dem SVERWEIS in der Spalte G sich wiederfinden.
Der SVERWEIS den ich derzeit manuell aufsetze und runterziehe lautet =SVERWEIS(B:B;I:J;2;FALSCH).
Ich hoffe, dass ist weitaus verständlicher.
Wie kann ich diese Idee nun in einem Makro umsetzen? Vielen Dank für deine Hilfe.
Liebe Grüße
Hi
Zitat:Ich hoffe, dass ist weitaus verständlicher.
Leider nein. Ist doch der gleiche Text wie in #29.
Zitat:Der SVERWEIS den ich derzeit manuell aufsetze und runterziehe lautet =SVERWEIS(B:B;I:J;2;FALSCH).
Und wo ist jetzt das Problem.
Bei der Formel an sich (falsche Ergebnisse)?
Oder beim Versuch die Formeln mittels VBA in die Zellen schreiben?
Ich will diesen SVERWEIS im Makro hinterlegen.
Wie mache ich es? Welchen Quelltext muss im Makro anwenden, damit das Ganze ausgeführt wird.
Hi
mal ein Bsp. nach deinen Angaben. Sollte uns das nicht weiter bringen stelle bitte eine Bsp. Datei zur Verfügung.
____|_A_|___B___|_C_|_____G____|_H_|____I___|___J__|
1| | | |Ergebnis | | | |
2| |wert1 | | 1| |wert7 | 1000|
3| |wert4 | | 4| |wert3 | 3|
4| |wert3 | | 3| |wert9 | 1000|
5| |wert5 | | 5| |wert11 | 1000|
6| |wert2 | | 2| |wert5 | 5|
7| | | | | |wert6 | 6|
8| | | | | |wert12 | 1000|
9| | | | | |wert2 | 2|
10| | | | | |wert10 | 1000|
11| | | | | |wert1 | 1|
12| | | | | |wert8 | 1000|
13| | | | | |wert4 | 4|
Nachbildung des Sverweis per VBA. Habe den Code zum testen ins Doppelklick-Ereignis geschrieben.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i, LeZe As Long
On Error Resume Next
LeZe = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To LeZe
Sheets("Tabelle2").Range("G" & i).Value = WorksheetFunction.VLookup(Sheets("Tabelle2").Range("B" & i).Value, Sheets("Tabelle2").Range("I:J"), 2, 0)
Next i
End Sub
Alternativ kannst du dich auch zu der Range.Find Methode belesen.
Gruß Elex
Guten Morgen,
vielen Dank für deine Unterstützung. Ich bin leider noch nicht zum Testen gekommen. Ich werde es die Tage versuchen mit aufzunehmen.
Liebe Grüße