VBA S-Verweis mehrere Ausgabewerte

Hallo Zusammen,
ich versuche mich derzeit an VBA, leider fehlt mir die notwendige Expertise um folgende Aufgabe zu lösen.
Ich habe mehrer Tabellenblätter (vereinfacht)
in Blatt 1: Materialnr /Name / etc.
123 /Name1/ etc.
124 /Name2/ etc.
in Blatt 2: Materialnr /Herkunftsland/ Zolltarifnr /etc
123 /DE / 567 /
124 /ES / 566 /
123 /TR / 588 /
Hierbei kann eine Materialnummer mehrere mögliche Herkunftsländer und Zolltarifnr. haben hier 123 mit DE/TR. Die Länder sollen durch Trenner spepariert in einem Feld neben der Materialnummer aus Blatt 1 aufgeführt werden. Auf Grund der Datenmenge ist die Nutzung von S-Verweis 2 (Funktion) im Macro nicht möglich - Macro ist zu träge. Für INDEX müsste ich beide Tabellen zusammenführen, was in diesem Fall sehr unübersichtlich würde, welche andere Möglichkeit habe ich?
Vorab schonmal vielen Dank für eure Unterstützung
J.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Raphael,
jetzt bin ich doch noch auf ein Problem gestoßen,
Wenn ich den Code abgeändert ein zweites Mal verwenden möchte, gibt er mir den Fehler 13 - mismatch aus. Woran könnte das liegen? Hier meine abgeänderte Variante:
Dim arrBlatt3 As Variant
Dim arrBlatt4 As Variant
Dim m As Long
Dim n As Long
'Die Sheets in Arrays packen
arrBlatt3 = Sheets("Hallo").UsedRange
arrBlatt4 = Sheets("Moin").UsedRange
'Arrays vergleichen und schreiben wo notwendig
For m = LBound(arrBlatt3) To UBound(arrBlatt3)
For n = LBound(arrBlatt4) + 1 To UBound(arrBlatt4) '+1 weil ich in diesem Beispiel eine Kopfzeile, Beginn Zeile 2
If arrBlatt4(n, 1) = arrBlatt3(m, 1) Then 'hier tritt der Fehler auf, bei (m, 2) meckert er nicht, die Datenbasis ist jedoch in der ersten Spalte und nicht der zweiten
arrBlatt3(m, 7) = arrBlatt3(m, 7) & arrBlatt4(n, 4) & "/"
arrBlatt3(m, 8) = arrBlatt3(m, 8) & arrBlatt4(n, 5) & "/"
arrBlatt3(m, 9) = arrBlatt3(m, 9) & arrBlatt4(n, 6) & "/"
arrBlatt3(m, 10) = arrBlatt3(m, 10) & arrBlatt4(n, 2) & "/"
arrBlatt3(m, 11) = arrBlatt3(m, 11) & arrBlatt4(n, 7) & "/"
arrBlatt3(m, 12) = arrBlatt3(m, 12) & arrBlatt4(n, 8) & "/"
arrBlatt3(m, 13) = arrBlatt3(m, 13) & arrBlatt4(n, 9) & "/"
arrBlatt3(m, 14) = arrBlatt3(m, 14) & arrBlatt4(n, 10) & "/"
arrBlatt3(m, 15) = arrBlatt3(m, 15) & arrBlatt4(n, 11) & "/"
arrBlatt3(m, 16) = arrBlatt3(m, 16) & arrBlatt4(n, 12) & "/"
arrBlatt3(m, 17) = arrBlatt3(m, 17) & arrBlatt4(n, 13) & "/"
arrBlatt3(m, 18) = arrBlatt3(m, 18) & arrBlatt4(n, 14) & "/"
arrBlatt3(m, 19) = arrBlatt3(m, 19) & arrBlatt4(n, 15) & "/"
arrBlatt3(m, 20) = arrBlatt3(m, 20) & arrBlatt4(n, 16) & "/"
arrBlatt3(m, 21) = arrBlatt3(m, 21) & arrBlatt4(n, 17) & "/"
arrBlatt3(m, 22) = arrBlatt3(m, 22) & arrBlatt4(n, 18) & "/"
End If
Next n
Next m
'Ganzes arrBlatt3 wieder ins Tabelle1 kopieren
'Range wird explizit das Sheet "Hallo" zugeteilt
Sheets("Hallo").Range("A1").Resize(UBound(arrBlatt3), 22) = arrBlatt3 'hier anpassen
Der Fehler tritt auch nicht auf, wenn ich die Datei vorher abspeichere und nur den Code ohne alles was dem vorangeht laufen lasse. Ich bin etwas ratlos :( Leider ist es mir nicht möglich die Datenbasis als Excel zur Verfügung zu stellen. Vielleicht, kann man jedoch schon so was erkennen.
Gruss
jeanny

Sub x() Dim arrBlatt3 As Variant Dim arrBlatt4 As Variant Dim m As Long Dim n As Long Dim Spalte As Long 'Die Sheets in Arrays packen arrBlatt3 = Sheets("Hallo").UsedRange arrBlatt4 = Sheets("Moin").UsedRange 'Arrays vergleichen und schreiben wo notwendig For m = LBound(arrBlatt3) To UBound(arrBlatt3) For n = LBound(arrBlatt4) + 1 To UBound(arrBlatt4) '+1 weil ich in diesem Beispiel eine _ Kopfzeile, Beginn Zeile 2 If arrBlatt4(n, 1) = arrBlatt3(m, 1) Then 'hier tritt der Fehler auf, bei (m, 2) _ meckert er nicht, die Datenbasis ist jedoch in der ersten Spalte und nicht der zweiten For Spalte = 7 To 22 If arrBlatt4(n, Spalte - 3) "" Then arrBlatt3(m, Spalte) = arrBlatt3(m, Spalte) & arrBlatt4(n, Spalte - 3) & _ End If Next Spalte End If Next n Next m 'Ganzes arrBlatt3 wieder ins Tabelle1 kopieren 'Range wird explizit das Sheet "Hallo" zugeteilt Sheets("Hallo").Range("A1").Resize(UBound(arrBlatt3), 22) = arrBlatt3 'hier anpassen End Sub

Beliebteste Forumthreads (12 Monate)

VBA S-Verweis mehrere Ausgabewerte

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread