Tabelle automatisch nach unten ziehen
25.08.2020 16:26:40
Falko
ich habe mich an einem VBA Makro versucht, welches im Wesentlichen eine Bestehende Tabelle in drei Spalten "nach unten verlängern" soll.
In Spalte A und Spalte O soll die Formel aus A4 und P4 kopiert und über Inhalte einfügen -> Formel nach unten gezogen werden.
Im Bereich B2 bis M? sollen die Formeln aus dem Bereich A4:M4 "nach unten gezogen werden". Das "?" wird durch die Variable "vertikal" definiert.
Das Makro kommt hier ins Stocken:
wsCon.Range("B4:M4").Select
Selection.AutoFill Destination:=Bereich, Type:=xlFillDefault
Bereich.Select
Vorab vielen Dank für eure Hilfe!
Beste Grüße
Falko
Sub UpstreamData()
Dim wsCon As Worksheet
Set wsCon = Worksheets("Control")
Dim wsInput As Worksheet
Set wsInput = Worksheets("Inputs")
' Variable definiert die Anzahl der Zeilen die ab Zeile 5 im Tab. Control hinzugefügt werden mü _
_
ssen
Dim vertikal As Integer
vertikal = wsCon.Cells(17, 19).Value - 1
Dim Bereich As Range
Set Bereich = ActiveSheet.Range(Cells(5, 2), Cells(5 + vertikal, 13))
wsCon.Range("A5:O5000").ClearContents
wsCon.Range("T6").Value = Application.WorksheetFunction.EoMonth(wsInput.Range("F20"), 0)
wsCon.Range("S10").Value = Application.WorksheetFunction.EoMonth(wsInput.Range("N42"), 0)
wsCon.Range("B4:M4").Select
Selection.AutoFill Destination:=Bereich, Type:=xlFillDefault
Bereich.Select
wsCon.Range("A4").Select
wsCon.Range(Cells(5, 1), Cells(5 + vertikal, 1)).PasteSpecial xlPasteFormulas
wsCon.Range("O4").Select
wsCon.Range(Cells(5, 15), Cells(5 + vertikal, 15)).PasteSpecial xlPasteFormulas
End Sub