vba select
08.01.2017 19:24:11
Michael
habe mir folgenden Code aus den Netz kopiert um die letzte Spalte zu kopieren und hinten dran zufügen. Klappt super!
Sub Kopieren()
Dim lCol As Integer
lCol = LastColAll()
Union(Columns(lCol - 0), Columns(lCol)).Copy Columns(lCol + 1)
Range(Cells(10, lCol + 2), Cells(59, lCol + 2)).ClearContents
End Sub
Public Function LastColAll(Optional SheetName As Variant) As Long
'letzte Spalte in gesamter Tabelle suchen
If IsMissing(SheetName) Then SheetName = ActiveSheet.Name
LastColAll = Sheets(SheetName).UsedRange.Cells.Find("*", , , , xlByColumns, xlPrevious). _
Column
End Function
Nun möchte ich, dass alle Zellen ohne Formel der eigefügten Spalte, mit einer 0 versehen werden.
Danke für eure Hilfe
Gruß Michael