Formatierung löschen
12.09.2013 15:55:53
Markus
Ich habe untenstehendes Makro. Dies kopiert Daten von eine Datei in die andere.
Mit allen Werten und Formaten.
Die Frage:
Was wäre besser, das Makro so zu ändern das die gleich nur die Werte kopiert werden oder im nachhinein mit Range("Ax:Mxxx").ClearFormats eine Zeile unten einzufügen?
Wenn ersteres dann muss ich hier um Hilfe oder einen Hinweis zur Umsetzung bitten.
Gruß
Markus
Sub SMWDatenHolen()
Dim wsSource As Worksheet
Dim wbTarget As Workbook
Dim wsTarget As Worksheet
Set wbTarget = Workbooks.Open(Filename:="Datei1.xlsm", UpdateLinks:=0)
Set wsSource = Workbooks("Arbeitsdatei_SMW.xlsm").Worksheets("Eingang")
Set wsTarget = wbTarget.Worksheets("SMW")
wsTarget.UsedRange.Offset(1).Clear
With wsSource
.AutoFilterMode = False
.Range("$A$3:$BN$1146").AutoFilter Field:=2, Criteria1:=Array( _
"FW76921", "FW83778", "FW84118"), Operator:=xlFilterValues
With .AutoFilter.Range
If .Columns(1).SpecialCells(xlCellTypeVisible).Count = 1 Then Exit Sub
Intersect(.Offset(1), .Parent.Range("A:E")).Copy wsTarget.Cells(2, 1)
Intersect(.Offset(1), .Parent.Range("H:H,K:K,N:N,R:T,W:W")).Copy wsTarget.Cells(2, 7)
End With
End With
With wsTarget
With .Cells(2, 6).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 1)
.NumberFormat = "0"
.FormulaR1C1 = "=TODAY()-RC4"
End With
End With
End Sub