Office: Neue Spalten per Makro einfügen

Hallo Leute,

ich importiere per Makro eine Tabelle und möchte nun dieser Tabelle weitere Spalten hinzufügen. Hier der Import-Code:
Code:

Ich möchte bspw. hinter der Spalte B zwei Spalten mit Überschrift einfügen und bspw hinter der Spalte G noch sieben weitere Spalten mit einer eigenen Überschrift hinzufügen. Hat da jemand eine Lösung/Ansatz parat?

Vielen Dank im Voraus.
Gruß Waldemar

:)

 

hi

Code:

so?

 

Hallo,

Code:

Ich bekomme dann folgenden Fehler: Run-time error '1004': Insert method of range class failed

Außerdem möchte ich den hinzugefügten Spalten auch sofort einen festen Namen vergeben.

Gruß

 

Hallo Waldemar,

quick and dirty:
Code:

 

Hi,

Method data meber not found *frown.gif*

 

Hi

bei mir geht es.
Zeichne es doch mal auf
markiere C:D und H:N drücke Strg++
was steht bei Dir?

und Waldemar das war dirty ^^

ThisWorkbook.Worksheets("Req-KPI").Range("D1")
nicht das Blatt vergessen ;)
wobei das mit With ja reichen würde


With ThisWorkbook.Worksheets("Req-KPI")
'....
.range("c1").value="was auch immer"
'....usw
end with

 

Hallo,

also ich bin nicht so VBA erfahren*Smilie

habe jetzt folgenden Code:
Code:

Bekomme aber einen Fehler: This Operation is not allowed. This operation is attempting to shift Cells in Tables on your Worksheet.

Danke im Voraus.