Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

AutoFilter_Copy nur Spalte A und X -Bitte um Hilfe

AutoFilter_Copy nur Spalte A und X -Bitte um Hilfe
16.01.2014 11:04:45
Thorben
Moinsen Forumfreunde und VBA Junkies ;-)
Ich brauche mal Unterstützung bei folgendem Code
Ich möchte per Code nur das Autofilterergebnis der Spalte A und X in das neue Sheet
nach A und B beginnend mit A1 (keine Überschriften) kopieren...aber ich bin irgendwie Blind...!
Sub AutoFilter_Copy_2_Columns()
Dim wksFilter As Worksheet
Dim wksZiel As Workbook
Dim Zeile1&, Zeile2&, Spalte1&, Spalte24&
Set wksFilter = ActiveSheet
Set wksZiel = Workbooks.Open("Pfad..\blabla\istunwichtig.xlsm", ReadOnly:=False) 'Ziel, hier  _
den richtigen Pfad eingeben!
With wksFilter
With .AutoFilter.Range
Zeile1 = .Row + 1
Zeile2 = .Row + .Rows.Count - 1
Spalte24 = .Column + .Columns.Count - 1
Spalte1 = Spalte2 - 1
End With
.Range(.Cells(Zeile1, Spalte1), .Cells(Zeile2, Spalte24)).SpecialCells(xlCellTypeVisible). _
Copy
End With
With wksZiel.Sheets("60 Teil 1")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = False
End Sub
Vielen Dank schon einmal im Voraus,
MfG
Thorben

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habs nun so gelöst... aber neue Frage siehe Thread
16.01.2014 12:19:59
Thorben

Sub AutoFilter_Copy_2_Columns()
Dim wksFilter As Worksheet
Dim wksZiel As Workbook
Dim Zeile1&, Zeile2&, Spalte1&, Spalte2&, Spalte3&
Set wksFilter = ActiveSheet
Set wksZiel = Workbooks.Open("Pfad..\blabla\istunwichtig.xlsm", ReadOnly:=False) 'Ziel, hier  _
den richtigen Pfad eingeben!
With wksFilter
With .AutoFilter.Range
Zeile1 = .Row + 1
Zeile2 = .Row + .Rows.Count - 1
Spalte1 = .Column + .Columns.Count - 1
Spalte2 = Spalte1 - 29
Spalte3 = Spalte1 - 6
End With
.Range(.Cells(Zeile1, Spalte2), .Cells(Zeile2, Spalte2)).SpecialCells(xlCellTypeVisible). _
Copy
With wksZiel.Sheets("60 Teil 1")
.Cells(.Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = False
.Range(.Cells(Zeile1, Spalte3), .Cells(Zeile2, Spalte3)).SpecialCells(xlCellTypeVisible). _
Copy
With wksZiel.Sheets("60 Teil 1")
.Cells(.Rows.Count, 2).End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = False
End With
End Sub

Anzeige
Nix neue Frage, alles gut... ! owT ;-P
16.01.2014 12:58:52
Thorben
.

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige