Spalte sichern
Andreas
ich habe im Forum nachfolgenden Code gefunden. Dieser kopiert die Spalte C in die nächste frei Spalte.
Ich möchte aber nur die Werte und die Formate aus Spalte C kopieren, nicht die Formeln.
Wie muss ich das in den Code einbauen?
Danke für eure Hilfe.
Gruß Andy
Public Sub C_sichern()
Dim rngFreieZelle As Range
Dim lngZ As Long
With Sheets(1)
lngZ = .Range("C" & .Rows.Count).End(xlUp).Row
If lngZ > 1 Then
Set rngFreieZelle = .Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1)
.Range("C1:C" & lngZ).Copy rngFreieZelle
rngFreieZelle.EntireColumn.AutoFit
End If
End With
End Sub
Anzeige