Resize ListObject
27.10.2020 13:39:53
Sven
ich habe ein ListObject über die Spalten A bis C und hänge vorne eine Spalte dran. Dann geht das ListObject also von B bis D. Diese neue Spalte möchte ich in das ListObjact integrieren:
With ThisWorkbook.Worksheets("DWH").ListObjects("Abfrage_FR")
.ShowAutoFilterDropDown = False
.Resize Range("$A$1:$D" & lonZeilen)
.ShowAutoFilterDropDown = True
End With
Das klappt auch. Aber: Wenn ich jetzt nicht weiß, dass das ursprüngliche ListObject drei Spalten breit ist und ich auch für breitere gewappnet sein möchte, wie mache ich das, damit D nicht fest im Code steht? Das vorne eine Spalte angefügt wird ist hingegen unveränderlich.Danke und Grüße
Sven