durch eine Zellen-Eingabe soll diese Anzahl von Spalten eingefügt werden

[solerokoko]

Ich erstelle eine Vorlage (Basisverwendungsdatei) zur Berechnung von Projektkosten für Projekte mit verschiedener Projektdauer (zB 3 bis zu 15 Jahre), die ein Eingabefeld ist. Die jeweiligen Spalten sollen dementsprechend eingefügt werden. 
Die Spaltenüberschriften sollen zB. bei einem 3-jährigen Projekt lauten: Gesamtbudget, 2016, 2017, 2018, Rest, wobei Rest=Gesamtbudget-2015-2016-2017.
Da das eine Vorlage ist, möchte ich gerne, dass durch die Eingabe einer Projektdauer (hier 3 Jahre) die jeweiligen Spalten (hier 2016 -2018 also 3 Spalten) automatisch vor der letzten Spalte "Rest" erstellt/eingefügt werden. Natürlich die Berechnungen/Formeln der jeweiligen Spalten sollen auch kopiert werden.

Ich vermute, dass es mit Makro möglich ist. Habe leider ganz wenig Programmierkenntnisse. Habt ihr einen Lösungsvorschlag für mich? Danke sehr!
Solerokoko

[radagast]

heje excelfreunde,

solerokoko, bring doch einfach mal eine beispieltabelle (inhalt = verschiedene projektbeispiele)...mein vorschlag

[Rabe]

Hi,

Da das eine Vorlage ist, möchte ich gerne, dass durch die Eingabe einer Projektdauer (hier 3 Jahre) die jeweiligen Spalten (hier 2016 -2018 also 3 Spalten) automatisch vor der letzten Spalte "Rest" erstellt/eingefügt werden. Natürlich die Berechnungen/Formeln der jeweiligen Spalten sollen auch kopiert werden.

wenn Du die Rest-Spalte links von den Jahresspalten setzt, müssen keine Spalten dazwischen eingefügt, sondern nur angehängt werden. Die Formel für C2 muß noch automatisiert werden.
Modul Modul1

Option Explicit 

Sub Jahresspalten() 
  ' 
  ' Jahresspalten Makro 
  ' 
  Dim Laufzeit As Integer 
  Dim i As Integer 
  ' 
  Range("C2").FormulaLocal = "=B2-D2-E2-F2"    'noch anpassen! 
   
  Laufzeit = InputBox("Bitte Laufzeit eingeben:") * 1 
  For i = 0 To Laufzeit - 1 
     Cells(1, 4 + i).Value = 2016 + i 
  Next 
End Sub 

Tabelle1

	A	B	C	D	E	F	G	H
1	Projekt	Gesamtbudget	Rest
2	TestProjekt1	1000000	1000000

verwendete Formeln
Zelle	Formel	Bereich	N/A
C2	=B2-D2-E2-F2

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 21.07 einschl. 64 Bit

[schauan]

Hallöchen,

wenn Du Spalten einfügen willst einschließlich Formeln, wäre die Frage, wo die Formeln herkommen sollen...
In welcher Spalte steht denn "Rest" und was steht davor?
Wenn Du Jahre einfügst, stehen dann schon welche drin oder ist das immer was "jungfräuliches"?
Falls schon Jahre drin stehen, was soll dann passieren, wenn Du ein Jahr eingibst, dass schon vorhanden ist?

[Rabe]

Hi,

In welcher Spalte steht denn "Rest" und was steht davor?

wenn ich mir die Ausgangsfrage ansehe, steht Rest immer als nächste Spalte hinter der letzten Jahresspalte:

Gesamtbudget, 2016, 2017, 2018, Rest