Excel2019 - Alte Tabelle, VBA, #BEZUG
22.07.2021 10:57:15
FFaw
ich habe aufgrund meiner eigentlichen "Expertise" von einer Bekannten eine Excel-Tabelle zugesandt bekommen, die von "jetzt auf gleich" nicht mehr korrekt funktioniert.
Sie hat mich gebeten mal drauf zu schauen. Da ich Excel eigentlich ganz gut kann, und auch die ein oder andere Zeile Code hin bekomme (wobei VBA nicht dazugehört) war ich auch guter Dinge, eigentlich ..
Nun komme ich hier überhaupt nicht klar.
Es sind mehrere Probleme vorhanden, die ich aber aus Datenschutzgründen nun hier nicht einfach ins Forum schmeißen möchte.
Erste Grundfrage ist aber :
Wenn sortierte Daten über ein VB Script gezogen werden sollen
ActiveWorkbook.Worksheets("TABLENAME").ListObjects("Tabelle2").Sort.SortFields _
.Clear
ActiveWorkbook.Worksheets("TABLENAME").ListObjects("Tabelle2").Sort.SortFields _
.Add2 Key:=Range("Tabelle2[Mitarbeiter]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("TABLENAME").ListObjects("Tabelle2").Sort.SortFields _
.Add2 Key:=Range("Tabelle2[Datum]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TABLENAME").ListObjects("Tabelle2").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.RefreshAll
und mir meldet Excel in den entsprechenden Feldern dann überall nur #BEZUG!, wie komme ich dann dahinter welche Werte nicht gefunden werden? Auch in entsprechenden Formeln wird nur #BEZUG! angezeigt.Augenscheinlich stimmt alles. Die Tabelle TABLENAME sowie Tabelle2 gibt es. Die Spalten Mitarbeiter und Datum ebenfalls
Auch komisch (aber dafür reichen auch meine Kenntnisse nicht aus) ist, dass ich einen INDEX 9 Fehler bekomme, wenn ich statt
Active.Workbook.Worksheets("TABLENAME") den "echten" Namen eintrage (bspw. Tabelle4)
Beim ListObjects dasselbe. Ändere ich Tabelle2 gegen den visuellen Tabellennamen ("TABLENAME") dann erhalte ich auch einen Indexfehler.
Ist das normal ?
Erstellt wurde die Tabelle offenbar unter Excel 97-2003. Sie hat aber einen Zeitstempel (erstellt am ...) von 2020. Aktuell genutzt wird Office 365 bzw. Office 2019.
Bei der Kompatibilitätsprüfung von Excel wird u.a. als Fehler gemeldet:
"Einige Formeln enthalten Bezüge auf Tabellen, die im ausgewählten Dateiformat nicht unterstützt werden. Diese Bezüge werden in Zellbezüge konvertiert. Speicherort:'Trallallatabelle'"
-> Das Dateiformat ist xlsm :/
Wenn jemand Zeit, Lust und viel Geduld hat, würde ich mich auch über eine PN freuen
Vielen Dank an alle, und bleibt gesund !