Hallo Leute,
ich schaffe es leider nicht den folgenden Code anzupassen, ohne dass kein Fehler auftritt:
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=7, Criteria1:="ja"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Wie kann ich diesen Code darauf anpassen, dass nur noch die Werte in den Spalten B bis L kopiert werden und zwar beim kopieren mit jeweils einer zeile abstand zwischen den Werten?
Vielen dank schon einmal im Voraus!
|