ListObjects mit Namen
20.06.2016 19:19:45
Andi
Ich brauche von euch mal wieder Hilfe
ich habe einen Code der mir eine Tabelle kopiert und von einer Zelle den Namen automatisch benennt.
Jetzt möchte ich nach dem Kopieren der Tabelle, eine Tabellenkonvertierung mit den Namen der aktiven Tabelle.
bekomme aber eine Fehlermeldung
Für euch sicherlich kein Problem:
Danke im vorraus!
Gruß Andi
Hier ein Teil vom Code
With ActiveSheet
Range("S1").Value = "Gesamt"
.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1).FormulaLocal = "=Summe(G2:R2)"
.ListObjects.Add
.ListObjects ("tbl_" & ActiveSheet.Name)
End With