Wert in Matrix - Daten linksrechts

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nilo
bei deinem Code wie du ihn im Original zeigst stimmt so einiges nicht.
Probier den unteren mal aus. Der sollte laufen, wurde von mir getestet.
zu den einzelnen Fehlern: - Set rSearch = wsSrc.Range("A2:I3")
du legst den Suchbereich auf 2 Zeilen fest, sprichst aber in deinem Text von 50.000 Zeilen
Daten in Tabelle Matrix in A1 bis I50000 - Die For Next Schleife richtet sich nach "A2:I3"
wsSrc.Range("A2:I3").Copy - Du kopierst immer aus dieser Zeile, egal wo du die Daten findest!
wsSrc.Range("A2:I3").Copy
Worksheets("Suche").Range("H18:O18")
Du kopierst bis Spalte I, und willst nur bis Spalte "O" einfügen. Das kann so nicht hinhauen!
Es waren mehrere Fehler warum das Makro so nicht laufen konnte. Bei suchen in 50.000 Zeilen
ist es besser die Find Methode zu verwenden. Eine For Next Schleife ist da echt zu langsam!!
Würde mich freuen wenn es jetzt klappt.
mfg Piet

Option Explicit      '22.7.2016   für Herber Forum
Sub kopieren_neu()
Dim rFind As Object, z As Long
Dim wsSrc As Object, AI As Long
AI = CLng(Worksheets("Suche").Range("A3"))
'belegt die Variable wsSrc als Object:  (Tabelle)
Set wsSrc = Worksheets("Matrix")
'kurzer Suchlauf (ohne Directory Vorgabe) nach ganzem Wert
Set rFind = wsSrc.Range("A:I").Find(What:=AI, After:=Range("A1"), LookAt:=xlWhole)
'If rFind Is Nothing Then Exit Sub  'Ende ohne Msg Meldung
If rFind Is Nothing Then MsgBox AI & "  No Find ": Exit Sub
z = rFind.Row  'z=Zeile in "Matrix" notieren
wsSrc.Range("A" & z & ":I" & z).Copy 'kopiert Daten im aktuelle Worksheet
Worksheets("Suche").Range("H18:p18").PasteSpecial Paste:=xlPasteValues, Transpose:=False
End Sub

…MatrixFmln aus, Nilo;
wenn man etwas nicht kennt, liest man in der Xl-Hilfe nach. Dort gibt's das Stichwort Matrixformel! Außerdem habe ich dazu alle Zellen geschrieben; dann muss man auch alle Zellen der ErgebnisZeile auswählen, denn es wdn ja mehrere Werte!
Ansonsten bin ich davon ausgegangen, dass du entweder zellen- oder zeilenweise vorgehen und nicht alles auf 1× übertragen willst. Das könnte evtl für die dann zu verwendende MatrixFml zuviel wdn.
Wie verweist du denn sonst auf Blätter anderer Dateien? Das musst du dann hier auch machen. Allerdings sind derartige FernBezüge störanfällig (DateiVerschiebungen u.ä.); dagegen solltest du dich dann absichern.
Morrn, Luc :-?

Beliebteste Forumthreads (12 Monate)

Wert in Matrix - Daten linksrechts

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert in Matrix - Daten linksrechts

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

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread