Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Frage zu Makro kopieren einfügen

Forumthread: Frage zu Makro kopieren einfügen

Frage zu Makro kopieren einfügen
22.10.2004 12:08:39
Silvi
Hallo!
Hab da mal ne Frage zu einem Makro, ist aus der Hilfedatei von Herber kopiert. Dieses Makro filtert und kopiert aber leider nur zeilenweise, ich brauche nur bestimmte Spalten z.B. Spalte A und Spalte C, der Rest soll nicht kopiert werden. Kann mir da mal jemand helfen?
Danke!
Silvi

Sub FilternKopieren()
Dim rngAct As Range
With Worksheets("Tabelle2")
.Cells.Clear
Range("d1").AutoFilter _
Field:=4, Criteria1:=Range("d1").Value
Set rngAct = Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy .Range("A7")
.Rows(1).Delete
.Select
End With
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage zu Makro kopieren einfügen
Beni
Hallo Silvi,
mit diesem Code wwerden nur die Spalte A+C in Spalte A+B kopiert.
Gruss Beni

Sub FilternKopieren()
Dim rngActA, rngActC As Range
With Worksheets("Tabelle2")
.Cells.Clear
Range("d1").AutoFilter _
Field:=4, Criteria1:=Range("d1").Value
lzA = Cells(Rows.Count, 1).End(xlUp).Row
lzC = Cells(Rows.Count, 3).End(xlUp).Row
Set rngActA = Range(Cells(1, 1), Cells(lzA, 1)).SpecialCells(xlCellTypeVisible)
Set rngActC = Range(Cells(1, 3), Cells(lzC, 3)).SpecialCells(xlCellTypeVisible)
rngActA.Copy .Range("A7")
rngActC.Copy .Range("B7")
.Rows(1).Delete
.Select
End With
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige