Office: Daten aus anderem Workbook einlesen

Hallo,
habe ein kleines Problem.
Ich möchte per VBA Werte aus einem anderen Workbook auslesen. Diese Werte stehen in verschiedenen Worksheets. Die Namen der Worksheets sind in meinem Ziel-Worksheets in einem Tabellenblatt aufgelistet, jedoch nicht in der Reihenfolge, in der die Worksheets in dem Quell-Workbook geordnet sind.
Habe folgendes ausprobiert:

For Each B In BewerberListe.Cells
Do Until B.Text = "#NV"
For i = 2 To wkbOrig.Worksheets.Count
If B.Text = wkbOrig.Worksheets(i).Name Then
wkbTarg.Worksheets("Testergebnisse").Range(Cells(B.Row, 4)).Value = wkbOrig.Worksheets(i).Range("B4").Value
wkbTarg.Worksheets("Testergebnisse").Range(Cells(B.Row, 5)).Value = wkbOrig.Worksheets(i).Range("B7").Value
wkbTarg.Worksheets("Testergebnisse").Range(Cells(B.Row, 6)).Value = wkbOrig.Worksheets(i).Range("B8").Value
wkbTarg.Worksheets("Testergebnisse").Range(Cells(B.Row, 7)).Value = wkbOrig.Worksheets(i).Range("B9").Value
wkbTarg.Worksheets("Testergebnisse").Range(Cells(B.Row, 8)).Value = wkbOrig.Worksheets(i).Range("B10").Value
End If
Next i
Loop

Bekomme aber immer eine Fehlermeldung: Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler!

Kann mir jemand weiterhelfen? Vielen Dank!

Gruß
Torte

:)

 

Hallo Torte!

Bei Codeauszügen bitte immer komplette Schleifen posten, und erklären, wie die Variablen deklariert sind / was sie beinhalten.

Deine Frage ist nicht so ganz eindeutig.
Ich verstehe das so, dass in B immer der Name des Tabellenblattes steht.

Ich habe deinen Code etwas modifiziert: Code:

So werden die Tabellenblätter im Workbook "wkbOrig" nicht mehr über ihren Index angesprochen, sondern über ihren Namen.

Dieser Code ist ungetestet

klappt's?
Grüße, Ulrich

 

Hallo Ulrich!

Erstmal Danke für deine Hilfe. Anbei mal das komplette Makro. Soweit funktioniert alles. Nur die "For Each B" Schleife zickt noch rum. Normalerweise sollte bei "Next B" das nächste B ausgewählt werden, jedoch wird dann immer sofort die Do-Schleife verlassen. Bin da irgendwie ratlos.

Code:

Für den ein oder anderen Tipp wär ich sehr dankbar! ;-)

Gruß Torte

 

Hallo Torte,

Code:

wo sprigt "End(xlUp)" im Falle Deiner Tabelle hin? Wenn das die letzte Zeile ist, springt er nach oben an den Anfang, analog zu Strg+Pfeil hoch. Ist der dadurch eingeschlossene Bereich richtig? Oder meinst Du .Cells(Rows.Count,1).End(xlUp) ?

Grüße
EarlFred

 

Hallo
und danke EarlFred!
Hab das ganze jetzt so gelöst und es funktioniert:

With wkbTarg.Worksheets("Testergebnisse")

Set BewerberListe = .Range(.Range("A4"), .Range("A65536").End(xlUp))

Do
For Each B In BewerberListe.Cells
If B.Text = "#NV" Then Exit Do
For i = 2 To wkbOrig.Worksheets.Count
If B.Text = wkbOrig.Worksheets(i).Name Then
.Cells(B.Row, 3).Value = wkbOrig.Worksheets(B.Value).Range("B4").Value
.Cells(B.Row, 4).Value = wkbOrig.Worksheets(B.Value).Range("B7").Value
.Cells(B.Row, 5).Value = wkbOrig.Worksheets(B.Value).Range("B8").Value
.Cells(B.Row, 6).Value = wkbOrig.Worksheets(B.Value).Range("B9").Value
.Cells(B.Row, 7).Value = wkbOrig.Worksheets(B.Value).Range("B10").Value
End If
Next i
Next B
Loop

End With

Danke nochmals für die Tipps!

Gruß Torte