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

Autofilter Kopieren und Einfügen

Autofilter Kopieren und Einfügen
07.10.2008 19:34:43
erich
Hallo Excelprofis,
erstmal danke für die vielen hilfen die ich hier bekommen habe.
nun zu meinen Problem:
ich habe eine Tabelle in der Taktzeiten erfast werden (Spalte A Beschreibung Spalte C Zeitdaten und in der Spalte F in die Taktbezeichnung hinterlegt z.B. Takt1, Takt2 usw.
ich mochte nun z.B auf Takt 1 filtern, die Gefilterten Daten Kopieren (aber nur die Daten von den Spalten A; C und F) und in das 2 Tabellenblatt auf Position A -C einfügen, das gleich wiederholen und mit Takt2 und im bereich D - E einfügen,
und das bis zum Takt 30.
wie kann ich das realisieren, bitte um eure hilfe
Grus
erich

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

Betreff
Datum
Anwender
Anzeige
AW: Autofilter Kopieren und Einfügen
07.10.2008 21:48:00
Tino
Hallo,
kenne Deinen aufbau nicht, hier mal ein Beispiel.
Die gefilterten Daten stehen hier in Tabelle 1 ab der Zeile 1.
Option Explicit

Sub KobiereDaten()
Dim Ziel As Range
Dim lngCol As Long, A As Byte
Set Ziel = Tabelle2.Cells(1, Columns.Count).End(xlToLeft)
If Ziel <> "" Then Set Ziel = Ziel.Offset(0, 1)
 
 For A = 0 To 6 Step 3

lngCol = IIf(A = 0, 1, A)
   
   Columns(lngCol).SpecialCells(xlCellTypeVisible).Copy _
   Ziel

   Set Ziel = Ziel.Offset(0, 1)
 
 Next A

End Sub


Gruß Tino

Anzeige
AW: Autofilter Kopieren und Einfügen
08.10.2008 17:22:02
erich
Danke, für die schnelle Hilfe,
passt genau
Gruß
Erich

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige