Makro zum Kopieren und üerbtragen von Daten in ein zweites Tabellenblatt

[Elex]

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.

[snoopy4000_0]

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

[Elex]

Hi

Ich hoffe, dass ist weitaus verständlicher.

Leider nein. Ist doch der gleiche Text wie in #29.

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?

[snoopy4000_0]

Ich will diesen SVERWEIS im Makro hinterlegen.

Wie mache ich es? Welchen Quelltext muss im Makro anwenden, damit das Ganze ausgeführt wird.

[Elex]

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

[snoopy4000_0]

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