ich gebe zu, ich wurstle mich ein wenig durch VBA durch, daher nehme ich an, dass es für mein Problem eine relativ einfache Lösung gibt, die ich nur nicht kenne.
Ich möchte in einer Tabelle eine Spalte einfügen. Das passt soweit auch.
Dim tbl_Stat As ListObject
Dim i As Integer
Set tbl_Stat = ActiveSheet.ListObjects(10)
i = tbl_Stat.ListColumns.Count
tbl_Stat.ListColumns.Add (i)
Es wird also vor der letzten Spalte eine neue Spalte eingefügt.
In der Spalte stehen aber in jeder Zelle Formeln. In meiner eingefügten Spalte leider nicht. Da die Formeln in der (jetzt) letzten Spalte vorhanden und angepasst sind, möchte ich sie einfach auf die vorletzte Spalte übernehmen.
Per Hand würde ich einfach die letzte Spalte markieren und "am Knubbel" eine Spalte nach links ziehen. Mit VBA komme ich aber zu keiner Lösung.
Es wäre toll, wenn mir jemand weiterhelfen könnte.
Vielen Dank,
Richard