Tacho Leute,
hab ein kleines Problem:
Habe per Formular alle offenen Tabellenblätter in einer neuen Listbox angezeigt.
Nun soll das gewählte Tabellenblatt ausgelesen werden. Leider erhalte ich mit meinem Code dabei immer die Fehlermeldung. 'Index außerhalb des gültigen Beriechs'
___________________________________
Dim wksAufruf As Worksheet
Dim wkbAufruf As Workbook
Dim wksActive As Worksheet
Set wksActive = ThisWorkbook.Worksheets("Datenauswertung(Erzeugung)")
Set wkbAufruf = Workbooks(lstDateinamen.Value)
Set wksAufruf = Worksheets(lstTabellennamen.Value) '!hier wird Fehler angezeigt
wksActive.Columns("B:E").Value = wksAufruf.Columns("J:M").Value
wksActive.Columns("N:P").Value = wksAufruf.Columns("A:C").Value
wksActive.Columns("Q:R").Value = wksAufruf.Columns("F:G").Value
___________________________________
Ich hoffe, jemand weiß Rat,
besten Dank vorab.
|