ActiveSheet.ListObjects.Add Range
12.06.2023 08:50:58
OFV_Tigier
Ich möchte ein Makro/VBA haben, das mir eine bedingte Formatierung in eine vorhandene einfügt.
Folgender Code funktioniert für mein Demo-Sheet
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$M$29"), , xlYes).Name = _
"Tabelle1"
Range("Tabelle1[#All]").Select
ActiveSheet.ListObjects("Tabelle1").TableStyle = "TableStyleLight1"
ABER, da die anderen Sheets nicht zwingend mit Zelle M29 enden, benötige ich etwas wie:
ActiveSheet.ListObjects.Add(xlSrcRange, .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)), , xlYes).Name = _
"Tabelle1"
Range("Tabelle1[#All]").Select
ActiveSheet.ListObjects("Tabelle1").TableStyle = "TableStyleLight1"
Leder laufe ich auf einen Laufzeitfehler 1004, "...entfernen Sie bitte den Autofilter". :(