Bitte um VBA Hilfe,
Wie kann ich in meiner dynamischen Tabelle die letzte benutzte Spalte ab Zeile 5 bis Ende in die daneben liegende Spalte mit einem Makro kopieren?
Vielen Dank für die Hilfe
Gruß Gerhard
Option Explicit
Sub Spalte()
Dim InSpalte As Integer
InSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(5, InSpalte), Cells(1048576, InSpalte)).Copy Cells(1, InSpalte + 1)
End Sub
´Sub ttt()
With Cells(5, Columns.Count).End(xlToLeft)
With Range(Cells(5, .Column), Cells(Rows.Count, .Column).End(xlUp))
Debug.Print .Address
.Copy .Offset(, 1)
End With
End With
End Sub