Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten mit arrDaten() vba übertragen

Daten mit arrDaten() vba übertragen
08.02.2018 10:59:04
Gregor
Hallo zusammen
https://www.herber.de/bbs/user/119648.xlsx
Siehe Beispielmappe im Anhang
Ich muss im Blatt "Daten" mit vielen Zeilen die Spalte8, 9 und 10 mit Werten aus dem Blatt "Quelle" ersetzen. In Spalte4 Blatt "Daten" soll die Nummer genommen werden und dann die entsprechenden Werte aus Blatt "Quelle" Spalte B als Such-No und die entsprechenden Werte aus Spalten K, L und M als Ergebnis in Blatt "Daten" Spalte8, 9 und 10 übertragen werden.
Damit es schnell geht, versuchte ich eine Lösung mit arrDaten(), ich komme aber auch mit Beispielen aus dem Forum nicht zum Ziel.
Wie sieht ein solcher Code aus
Vielen Dank und Gruss
Gregor

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten mit arrDaten() vba übertragen
08.02.2018 12:56:14
Rudi
Hallo,
so? 
Sub gregor()
Dim arrD, arrOut(), arrQ
Dim i As Long, j As Long
With Sheets("Daten")
arrD = .Range(.Cells(2, 4), .Cells(Rows.Count, 4).End(xlUp))
End With
ReDim arrOut(1 To UBound(arrD), 1 To 3)
With Sheets("Quelle")
arrQ = .Range(.Cells(3, 2), .Cells(Rows.Count, 2).End(xlUp)).Resize(, 12)
End With
For i = 1 To UBound(arrD)
For j = 1 To UBound(arrQ)
If arrQ(j, 1) = arrD(i, 1) Then
arrOut(i, 1) = arrQ(j, 10)
arrOut(i, 2) = arrQ(j, 11)
arrOut(i, 3) = arrQ(j, 12)
End If
Next j
Next i
Sheets("Daten").Cells(2, 8).Resize(UBound(arrOut), UBound(arrOut, 2)) = arrOut
End Sub

Gruß
Rudi
Anzeige
AW: Daten mit arrDaten() vba übertragen
08.02.2018 13:53:04
Gregor
Hallo Rudi
Genau so!!
Einmal mehr vielen Dank für die Unterstützung.
Gruss Gregor

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige