Hallo Forum-Freunde.
Zuerst meine Muster-Tabelle:https://www.herber.de/bbs/user/42123.xls
Der Datenbereich soll dynamisch aktualisiert werden unter Druckbereich
Die Inhalte von einer Spalte sollen am Ende der Tabelle (intSpalte+1) beginnend nach H stehen umgewandelt als Wert. Ich muss unterschiedliche Spalten parken am Ende der Tabelle, nur noch Werte und keine Formeln mehr.Zwischendurch muss ich manuell einige Spalten löschen nach H und das Makro neu aktivieren. Dabei bleiben aber leere Spalten dazwischen. Beim Schliessen und abschließendem Neustart wird das richtige Ende aber erkannt.
Was ist bei meiner Dynamisierung falsch?
Sub Spalte_kopieren_und_am_Ende_platzieren()
Dim intQuelle As Integer
Dim intZiel As Integer
Range("E:E").Select
intQuelle = ActiveCell.Column
Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Select
lngLZeile = ActiveCell.Row
Range("A1").SpecialCells(xlCellTypeLastCell).Select
intLSpalte = ActiveCell.Column
'Druckbereich definieren zuzüglich 2 Zeilen (Optik)
Range(Cells(2, 1), Cells(lngLZeile + 2, intLSpalte)).Select
Selection.Name = "Druckbereich"
intZiel = intLSpalte + 1
'so werden noch Formeln kopiert, möchte aber daraus Inhalte
Columns(intQuelle).Copy Destination:=ActiveSheet.Columns(intZiel)
End Sub
Wie lautet die Ergänzung meines Copy-Befehles um keine Formeln zu übernehmen?
Wer kann helfen?
mfG
Franz D.