Spalten hinzufügen

[R4di0n]

Hallo zusammen,

ich benötige ein Trick spalten hinzuzufügen. 
Ich habe eine Excel Tabelle wo in der Zeile 2 von A-ALK Formeln enthalten sind .
und ich muss hinter jeder spalte 4 neue spalten einfügen ohne die Formeln zu beschädigen / zu verändern. 
Gibt es da eine Schnellere lösung als die händisch einzutragen.

Grüße
R4

[Kuwer]

Hallo,

lass folgendes Makro drüberlaufen:

Code:

Sub SpaltenEinfuegen()
  Dim i As Long
 
  Application.ScreenUpdating = False
  For i = 999 To 1 Step -1
    Columns(i + 1).Resize(, 4).Insert
  Next i
  Application.ScreenUpdating = True
End Sub

Gruß Uwe

[R4di0n]

Hallo,

danke für deine Antwort leider kann ich diese Aktion nicht ausführen aufgrund von mangeldem Arbeitsspeicher kann man den Makro auch evtl in 2 Schritten aufteilen erst spalten 500 bis 1000 und dann 1 bis 499?

Grüße
R4

[LCohen]

Vermutlich ist ein "Frischaufbau" inkl. neuer Formeln per VBA zielführender. Die Formeln werden vermutlich nicht allzu voneinander abweichend sein?

[R4di0n]

Ne die formeln geben nur eine Zahlenreinfolge von einem anderen reiter wieder

[LCohen]

Sub Spalten()
Z = 9999
Application.ScreenUpdating = False
For i = 999 To 1 Step -1
Range(Cells(1, i * 5), Cells(Z, i * 5)).Formula = _
Range(Cells(1, i * 1), Cells(Z, i * 1)).Formula
Range(Cells(1, i * 1), Cells(Z, i * 1)).Clear
Next
Application.ScreenUpdating = True
End Sub

macht das für die ersten 9999 Zeilen. Dauert ein bisschen (knappe Minute), aber stürzt (bei mir in einer leeren Tabelle) nicht ab.

[Kuwer]

Hallo,

probiere es mal damit:

Code:

Sub SpaltenEinfuegen()
  Dim i As Long
  Dim iCalc As Long
  
  On Error Resume Next
  iCalc = Application.Calculation
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = -4135
  For i = 999 To 1 Step -1
    Columns(i + 1).Resize(, 4).Insert
  Next i
  Application.Calculation = iCalc
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  On Error GoTo 0
End Sub

Gruß Uwe

[snb]

Man kann keine Spatlen hinzufügen; das Max. ist immer

Code:

msgbox columns.count

Leere Spalten kennzeichen eine mangelnde Datenstruktuur.