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
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
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
Vermutlich ist ein "Frischaufbau" inkl. neuer Formeln per VBA zielführender. Die Formeln werden vermutlich nicht allzu voneinander abweichend sein?
Ne die formeln geben nur eine Zahlenreinfolge von einem anderen reiter wieder
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.
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
Man kann keine Spatlen hinzufügen; das Max. ist immer
Code:
msgbox columns.count
Leere Spalten kennzeichen eine mangelnde Datenstruktuur.