AW: indirekte Datenübernahme aus ExtTab
15.12.2005 02:24:28
Luc:-?
Hallo Sven,
normalerweise geht es bei deiner primären Ausgangslage ohne VBA so...
=INDIREKT("'"&B1&"'!"&A1)
...in der Zelle, in die die Daten übernommen wdn sollen (wenn da nicht schon andere Daten stehen!). Habe jetzt nicht im Blick, ob anführendes ' und ausführendes '! schon in B1 stehen; können dann hier entfallen. Das Ganze dann über deine 500 Zeilen runterziehen.
Alternative1:
VBA-Sub (auf Button), die diese Formel einträgt, Befehle...
For i=1 to 500
Cells(i, spalte).FormulaLocal = "=obigeformelmitverdoppeltenanführungszeichen"
Next i
Alternative2:
Alle benötigten Dateien manuell oder per Makro öffnen bzw nach Daten aus geschlossenen Dateien übernehmen recherchieren und Befehle in der For...Next-Schleife wie folgt:
wb = Mid(Cells(i, 2), Instr(Cells(i, 2), "[") + 1)
sh = Mid(wb, Instr(wb, "]")+1)
wb = Left(wb, Instr(wb, "]")-1)
With Workbook(wb).Sheets(sh)
Cells(i, spalte).Value = .Range(Cells(i, 1).Value).Value
End With
Dabei kann .Value weggelassen wdn. Es wdn nur Daten übernommen und in den Zielzellen stehen danach keine Formeln. Im With-Konstrukt beziehen sich Objekte mit Anfangspkt auf die hinter With gen Quelle, die ohne auf das Ziel.
Gruß Luc :-?