Office: Anhand von VBA Tabelle erweitern und kürzen

Hey liebes Forum,

Ich melde mich mal wieder mit einer Frage was die VBA-Programmierung angeht. Ich habe eine Tabelle für eine Wirtschaftlichkeitsberechnung ( 15 Spalten, 1 Spalte = 1 Jahr, in den Zeilen sind die einzelnen Kosten und Erlöse usw. aufgelistet, die meisten Zeilen sind gefüllt mir Formlen und Verweisen) soweit so gut... Nun hätte ich gerne eine Funktion, dass wenn ich in ein Feld zb 5 eingebe meine komplette Tabelle um 5 Spalten und alle dazugehörigen Zeilen nach unten erweitert wird und die Zellen automatisch mit den Formeln gefüllt werden.

Habe zwar eine Datei zur verfügung die so etwas in der Art macht jedoch ist dieser VBA Befehl viel komplexer und umfangreicher und ich habe keinen Überblick mehr was wie gemacht wird.

Wäre super wenn jemand ein paar hilfreiche Ansätze für mich parat hätte*Smilie

Wünsche euch ne schöne Woche

Ps. Im Anhang ein abgespecktes Beispiel wie der Tabellenaufbau aussieht
Grüße mikey

:)

 

Könnte es so in die Richtung funktionieren?

Range("R46").Select
Selection.AutoFill Destination:=Range("R46:U46"), Type:=xlFillDefault
Range("R46:U46").Select
Range("R47").Select
Selection.AutoFill Destination:=Range("R47:U47"), Type:=xlFillDefault
Range("R47:U47").Select
End Sub

war jetzt nur mal für einen kleinen Bereich

 

Hallo,

hab mal für deine Beispieldatei etwas probiert. Bin auch kein VBA-Profi; daher kann es gut und gerne sein, dass es nicht die "sauberste" Art und Weise ist, deinen Wunsch umzusetzen:
Code:

Die Anzahl der zusätzlich gewünschten Tabellenspalten würde in diesem Codebeispiel aus der Zelle A1 ausgelesen werden.

Teste es mal, ob es das tut, was du dir vorgestellt hast.

 

Hey,

Super danke in der Beispiel Tabelle funktioniert es wie gewollt. Jetzt das ganze mal auf meine richtige umbasteln und sehen ob es klappt!

Bringt mich einen riesen Schritt weiter auch was das nachvollziehen der funktion angeht, Danke

Grüße Mikey