dein Denkansatz war klasse,
habe jetzt glaube die Lösung.
schaue mal hier
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Übersicht")
With tbl.Range
tbl.Resize .Resize(.CurrentRegion.Rows.Count) 'NOTE: unlike the Range.Resize proprty, the Table.Resize
'method's argument is a Range object (not a size spec).
End With
und wenn ich das im ersten durchgang, beim erstellen der Tabelle durchlaufen lassen, passt er alles gescheit an.
kann ich dich noch mit was anderen nerven Marco?
gruß Marco ;-)
|