Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige