Hallo Frank,

wieviele Spalten sind denn mit Daten belegt? Ist das immer gleich oder ändert sich die Anzahl der Spalten?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Es handelt sich nur um ein Tabellenblatt mit ca. 200 Spalten.

Hallo,

handelt es sich um eine Excel 2007 Tabelle? Wenn nicht, funktioniert Dein Vorhaben nicht, da Excel 2000 - 2003 nur über 256 Spalten verfügt, Wenn ich nun von 200 Spalten ausgehe und es soll nach jeder Spalte 8 leere Spalten eingefügt werden, dann sind das auf jeden Fall mehr als 256 Spalten,

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Es handelt sich um eine Excel 2007 Tabelle. Die Daten habe ich schon alle in dem Tabellenblatt.

Hallo Frank,

nachfolgendes Makro fügt Dir bei 200 Spalten jeweils 8 Leerspalten ein.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Spalten_einfuegen()
Dim intColumn   As Integer
Dim intblankColumn  As Integer
Application.ScreenUpdating = False
For intColumn = 200 To 2 Step -1
    For intblankColumn = 1 To 8
        Columns(intColumn).Insert Shift:=xlToRight
    Next
Next
End Sub

Noch eine kleine Anmerkung zum Schreiben eines Beitrags. Ein Hallo am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Wenn Du zum Bäcker gehst sagst Du ja auch beim Reingehen "Guten Tag" und beim Gehen "Auf Wiedersehen". Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo,
sorry sollte nicht so unhöflich rüberkommen.
Danke vielmals für eure schnelle Hilfe.

Gruß
Frank