Spalte einfügen mit VBA

[Lilli]

Hi,

muss für die Abteilung eine Excel-Tabelle mit VBA bearbeiten.

Trifft in diesem Programm eine bestimmt Bedingung ein, dann soll in die vorhandene Tabelle eine Spalte hinzugefügt werden (zwischen zwei vorhandenen Spalten).

Habs das ganze schon mal manuell versucht und mit einem Makro aufgenommen, allerdings war der Quellcode was Excel/VBA da selber schreibt nicht brauchbar (->hat irgendwie die halbe Tabelle umgeformt).

Die Tabelle geht von A-I und hat so ca 85 Zeilen.

In der ersten Zeile sind die Zellen A1-I1 zu einer Zelle zusammengefasst.

Vielleicht hat ja zufällig einer 'ne Idee =)

Vielen Dank schon mal

Gruß

Lilli

[Magoo]

Also ich hab mal vor etwas längerer Zeit so ziemlich das gleiche gemacht. Habe es wie folgt gelöst.

Mal angenommen wir möchten vor der Spalte E eine weitere Spalte einfügen, wenn die Bedingung erfüllt ist. Das ganze habe ich damals so gelöst:

If (Bedingung = wahr) Then

        Range("E3").Select

        Selection.EntireColumn.Insert

End If

Mit Range("E3").Select wird die Zelle E3 gewählt. Anschliessend wird eine neue Spalte eingefügt. Wichtig ist nur, das die Zelle, die angewählt wird nicht mit anderen Zellen (wie A1 bis I1) zu einer Zelle verbunden wurden. Sonst gibt es Probleme.

Ich hoffe das war dein Problem. Wenn nicht, dann erklär das Fehlverhalten deines Makros doch mal etwas genauer!

[Lilli]

thx - so hats geklappt!

mein Fehler war, dass ich die verbundenen Zellen angegeben hab =)