Tacho Leute,
hab ein kleines Problem:
Hab per Formular alle offenen Arbeitsmappen in einer Listbox anzeigen und davon eins auswählen lassen. Von dem ausgewählten werden dann wiederum die entsprechenden Tabellenblätter der Mappe in einer neuen Listbox angezeigt.
Nun soll das gewählte Tabellenblatt ausgelesen werden. Leider erhalte ich mit meinem Code dabei immer die Fehlermeldung. 'Sub oder Function nicht definiert'
___________________________________
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 = Worksheet(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.