VLookUP 2 arr

Private Sub cmd_Menge_fuer_Befestigungsmittel_uebertragen_Click() Dim arrQuelle() As Variant Dim arrZiel() As Variant arrQuelle = [Matrix_Plattendicke].Value 'A22:B33 - 12 Zeilen ; In Spalte A und B stehen vorhandene Werte arrZiel = [Matrix_Schraubenlaenge].Value 'A47:B59 - 12 Zeilen ; In Spalte A stehen bereits die Daten aus der Quelle Spalte A ' In Spalte B des Ziels sollen die Werte aus der Quelle kopiert werden For i = 1 To 12 On Error Resume Next arrZiel(i, 1) = WorksheetFunction.VLookup(arrQuelle(i, 1), arrQuelle, 2, False) Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
1)
&GT&GT VLookUP liege ich komplett daneben. Den SVerweis verstehe ich besser?
Ist das Gleiche einmal englisch ( wird in VBA verwendet) das andere mal Deutsch
2)
Des weiteren sind A47:B59 13 Zeilen
3)&GT&GT Bei meinem Code tut sich gar nichts.
Doch, aber du musst die Werte aus dem Array noch zurück in die Zellen schreiben


Private Sub cmd_Menge_fuer_Befestigungsmittel_uebertragen_Click()
Dim i As Integer
Dim arrQuelle() As Variant
Dim arrZiel() As Variant
arrQuelle = [Matrix_Plattendicke].Value       'A22:B33  - 12 Zeilen  ; In Spalte A und B stehen vorhandene Werte
arrZiel = [Matrix_Schraubenlaenge].Value      'A47:B58  - 12 Zeilen  ; In Spalte A stehen bereits die Daten aus der Quelle Spalte A
' In Spalte B des Ziels sollen die Werte aus der Quelle kopiert werden
For i = 1 To 12
'On Error Resume Next
arrZiel(i, 1) = WorksheetFunction.VLookup(arrQuelle(i, 1), arrQuelle, 2, False)
Next i
[Matrix_Schraubenlaenge].Value = arrZiel
End Sub

ABER....
Was du da machst, ist
- Zeilenweise die Quelle, Spalte A zu durchlaufen und den Wert aus der gleichen Zeile aus Spalte B zurückholst
- genau das schreibst du in den Zielbereich in Spalte A
das kannst du dann auch direkt kopieren ohne Schleife
Das reicht


Private Sub cmd_Menge_fuer_Befestigungsmittel_uebertragen_Click()
[Matrix_Schraubenlaenge].Columns(1).Value = [Matrix_Plattendicke].Columns(2).Value
End Sub

LG UweD

Private Sub cmd_Menge_fuer_Befestigungsmittel_uebertragen_Click() With [Matrix_Schraubenlaenge].Columns(2) .FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],Matrix_Plattendicke,2,0),"""")" .Value = .Value .Replace What:=0, Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End With End Sub

Private Sub cmd_BestellmengeUebertragen_Click() Application.ScreenUpdating = False 'Lösung UweD With [Matrix_Schraubenlaenge].Columns(2) .FormulaR1C1 = "=IFERROR(IF(VLOOKUP(RC[-1],Matrix_Plattendicke,2,0)="""",""""," & _ "VLOOKUP(RC[-1],Matrix_Plattendicke,2,0)),"""")" .Value = .Value End With endmacro: Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread