Hallo!
Ich ahbe folgendes Problem: Ich möchte in mein Excel-Sheet Spalten einfügen, dessen Anzahl ich vorher in einer anderen Zelle festgelegt habe. Die Stelle an der die Spalten eingfügt werden ist definert als Start und die Anzahl ist definiert als Start+realeAnzahl. In diese Spalten möchte ich nun in jede Spalte jeweils von der ersten Zelle bis zur 122.Zelle die gleiche Formel einfügen. Ich bin aber nur in der Lage die erste Zelle der Spalte Start mit einer Formel zu hinterlegen. Hat irgentwer vielleicht eine Ahnung wie man das machen könnte? Ich würde mich sehr über Hilfe freuen!!
Edit by der_Kurt:
* Topic verschoben und VB-Tag eingefügt *
Ich ahbe folgendes Problem: Ich möchte in mein Excel-Sheet Spalten einfügen, dessen Anzahl ich vorher in einer anderen Zelle festgelegt habe. Die Stelle an der die Spalten eingfügt werden ist definert als Start und die Anzahl ist definiert als Start+realeAnzahl. In diese Spalten möchte ich nun in jede Spalte jeweils von der ersten Zelle bis zur 122.Zelle die gleiche Formel einfügen. Ich bin aber nur in der Lage die erste Zelle der Spalte Start mit einer Formel zu hinterlegen. Hat irgentwer vielleicht eine Ahnung wie man das machen könnte? Ich würde mich sehr über Hilfe freuen!!
Visual Basic-Quellcode
- Sub eins()
- Dim Start, anzahl, realeAnzahl, realeSpalte As Integer
- Application.ScreenUpdating = False
- Sheets("Tabelle2").Select
- Range("A1").Copy
- Range("A2").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- anzahl = ActiveSheet.Range("A1")
- Start = 2
- realeAnzahl = anzahl - 2
- Sheets("Tabelle1").Select
- Range(Cells(1, Start), Cells(1, Start + realeAnzahl)).EntireColumn.Insert
- Cells(1, Start).Formula = "=A1*J$1"
Edit by der_Kurt:
* Topic verschoben und VB-Tag eingefügt *
