Filter setzen und kopieren
06.09.2018 12:23:11
Brigitte
ich habe folgenden Code in ein Modul gepackt und möchte damit erreichen, dass nur die Spalten, 3,4,5,64,70,71,72 kopiert werden.
Soweit so gut.
In der Spalte 64 wird mit einer Formel der Wert berechnet. Dieser Wert und nur dieser Wert soll übernommen werden und nicht die Berechnung. ?
Außerdem soll auf die Spalte 70 ein Filtergesetzt werden. Filter: PKW ?
Wenn möglich auch noch so abändern, dass der Quellordner variabel ist. Zur Zeit September, so dass ich nicht jeden Monat anpassen muss.
Kann mir jemand weiterhelfen, denn ich bin mit meinen VBA-Kenntnissen noch nicht soweit.
Danke Brigitte
Sub Auszahlung()
Dim Spalte As Variant, intI As Integer
Spalte = Array(3, 4, 5, 64, 70, 71, 72)
Application.ScreenUpdating = False
For intI = 0 To 6
Worksheets("September").Select
'Range("BR18:BR" & Cells(Rows.Count, 70).End(xlUp).Row).AutoFilter field:=1, Criteria1:= _
_
"PKW", visibleDropDown:=False
Range(Cells(18, Spalte(intI)), Cells(Worksheets("September").Cells(Rows.Count, Spalte( _
_
intI)).End(xlUp).Row, Spalte(intI))).Copy
Worksheets("Auszahlung").Select
Cells(3, intI + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next
Range("A5").Select
Application.ScreenUpdating = True
End Sub