Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren von sichtbaren Zellen

kopieren von sichtbaren Zellen
10.02.2009 13:44:00
sichtbaren
Hallo und guten Tag
Ich habe schon mal ein Tread über dieses Thema geöffnet, aber leider ohne Erfolg!
Ich habe folgendes vor.
Ich filtere einen Bereich von B:J in meiner Tabelle2.
Die gefilterten Daten möchte ich nun kopieren und in ein zweites Datenblatt kopieren.
Dazu habe ich auch den macrorecorder überreden können.
Das kam dabei heraus.

Sub Makro6()
' Makro6 Makro
Selection.AutoFilter Field:=9, Criteria1:="1"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub


Leider benötige ich den Bereich B10:J10 nicht, dieser sollte also nicht kopiert werden.
Kopiert werden soll erst ab B11:J11 und alles was danach Sichtbar ist.
Dazu sehe es mit dem Recorder so aus.


Sub Makro7()
' Makro7 Makro
Selection.AutoFilter Field:=9, Criteria1:="1"
Selection.SpecialCells(xlCellTypeVisible).Select
Range("B11:J252").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub


Nun würde ich gern nur den Bereich der nach dem Filtern zu sehen ist kopieren. mit dem Recorder habe ich es bis J252 selectiert.
Der Bereich kann aber auch einmal bis J1000 oder bis J 15 gehen. Wie kann ich das dem Recorder mitteilen?
Von B11: J-irgendwas?
Kann mir hier bitte jemand helfen?
Ich bin für jede Hilfe dankbar.
Gruß Lisa

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren von sichtbaren Zellen
10.02.2009 13:57:41
sichtbaren
Hallo Lisa,
so sollte es gehen:

Sub Sichtbar ()
Range("B11:J252").AutoFilter Field:=9, Criteria1:="1"
Range("B11:J252).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Tabelle1"). _
Range("A1")
End Sub


Gruß Worti

AW: kopieren von sichtbaren Zellen
10.02.2009 14:24:54
sichtbaren
Hallo Worti
Ich habe den VBA- Code in ein CommandButton gelegt, bekomme aber sofort eine Fehlermeldung!
Fehler beim kompilieren!?
Aber so wie ich das sehe, wenn es funktioniert hätte, wären hier die Cellen von zwar b11 aber bis zur makierten kopiert worden. Range("B11:J252).SpecialCells(xlCellTypeVisible).Copy
Der Bereich von b11 ist richtig, aber nach unten hin ist er undefiniert.
Es kann mal bis B1000 oder aber auch blos bis b20 gefiltert werden.
Auch dir lieben Dank für die Bemühungen, aber leider klappt es nicht.
Gibt es vielleicht noch andere LÖsungsansätze?
Gruß Lisa
Anzeige
Da fehlt ein " ...
10.02.2009 14:31:00
RS 

Sub Sichtbar ()
Range("B11:J252").AutoFilter Field:=9, Criteria1:="1"
Range("B11:J252").SpecialCells(xlCellTypeVisible).Copy Destination:= _
Worksheets("Tabelle1"). _
Range("A1")
End Sub


Grüsse RS

AW: Da fehlt ein " ...
10.02.2009 14:59:33
lisa
Hallo RS
Danke das klappt.
Nun noch eine Frage hinterher.
Was wenn der Bereich größer als J252 ist.
Wie kann ich den Bereich undefiniert lassen, so dass allein erkannt wird bis wohin die Werte reichen?
Auch dir Danke für die schnelle Hilfe
Gruß Lisa
Wie kann hier noch im VBA-Code gesagt werden, dass immer ab der nächste freien Zeile in Tabelle1 eingefügt werden soll?
Anzeige
AW: Da fehlt ein " ...
10.02.2009 15:11:00
Worti
Hallo Lisa,
sorry für das fehlende ".
versuchs mal so:
Range("B11:J" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter Field:=9, Criteria1:="1"
Range("B11:J" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Tabelle1").Range("A1")
Gruß Worti
AW: Da fehlt ein " ...
10.02.2009 15:32:15
lisa
Hallo Worti
Du brauchst dich doch nicht zu entschuldigen, schließlich opferst du doch deine Zeit.
Oh ja danke, dass funktioniert gut und auch sehr schnell.
Kannst du evtl. noch einmal nachschauen, ob es möglich ist immer in die nächste frei Zelle der Tab1 zu speichern? oder besser in den angegebenen Pfad in die nächste freie Zeile der Tab1
Ich weiß leider nicht wie ich das einbauen muß!
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
ChDir "P:\Filter"
Workbooks.Open Filename:="P:\Filter\Mappe2.xls"
Anzeige
AW: Einen Nachtrag (evtl. Worti)
11.02.2009 12:27:00
lisa
Hallo
Ich weiß mann sollte doch warten, aber es ist doch so, dass die offenen Threads nach 3 Tagen ins Archiv gestellt werden und bevor die Frage untergeht, wollte ich sie noch einmal aktualisieren.
Kann mir vieleicht doch noch jemand hierbei helfen?
Kannst du evtl. noch einmal nachschauen, ob es möglich ist immer in die nächste frei Zelle der Tab1 zu speichern? oder besser in den angegebenen Pfad in die nächste freie Zeile der Tab1
Ich weiß leider nicht wie ich das:
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
ChDir "P:\Filter"
Workbooks.Open Filename:="P:\Filter\Mappe2.xls"
hier einbauen muß!
Range("B11:J" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter Field:=9, Criteria1:="1"
Range("B11:J" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Tabelle1").Range("A1")
Ich habe es selbst versucht, bekomme aber immer einen Kopilierungs- Fehler
herzlichen Dank für Eure Zeit und Bemühungen!
Gruß Lisa
Anzeige
hat sich alles erledigt oT
12.02.2009 11:10:00
lisa
AW: kopieren von sichtbaren Zellen
10.02.2009 13:58:56
sichtbaren
Hi Lisa
Nur ne Überlegung, also ungetestet.
Versuch mal so:

Sub Makro7()
' Makro7 Makro
Selection.AutoFilter Field:=9, Criteria1:="1"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub


Und lass die Zeile Range("B11:J252").Select weg.
Weil meine Überlegung ist:
Zuerst werden mit Selection.SpecialCells(xlCellTypeVisible).Select nur die sichtbaren Zellen/Zeilen markiert
Im nächsten Schritt (altes Makro) wurden dann alle Zellen von B11 bis J252 markiert - also auch die nicht sichtbaren.
Und wenn man diese 2. Markierung weglässt, werden mit Copy doch nur die zuvor sichtbaren Zellen kopiert, oder?
Hilfts denn, wenn keine bessere Lösung kommt?
(aber ich denk, es gibt ne bessere Lösung, weil man eben zu 99% alle Selects und/oder Activates weglassen kann.
Ciao
Thorsten

Anzeige
AW: kopieren von sichtbaren Zellen
10.02.2009 14:16:00
sichtbaren
Hallo Thorsten
Ich habe mal alle Selects rausgenommen, aber so funktioniert es nicht.
Es werden alle sichtbaren Zellen kopiert, auch die von b1:b 65500 irgendwas.
Lieben Dank für die Bemühungenaber es klappt so nicht.

Private Sub CommandButton3_Click()
' Makro7 Makro
Selection.AutoFilter Field:=9, Criteria1:="1"
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("Tabelle1").Paste
End Sub


300 Forumthreads zu ähnlichen Themen

Autofilter Kopieren und Einfügen
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.
...
07.10.2008 19:34:43
Thread-ID: 1014801
3 Beiträge
Anzeige
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Anzeige
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
ich bin ein Anfänger was VBA angeht. Ich habe mir immer durch die hilfreichen Forums helfen können. Doch zu meiner jetzigen Frage habe ich noch kein Antwort gefunden .
Ich kopiere aus mehreren Text Dateien die Inhalte auf ein Excel-Tabellenblatt (1) Untereinander.
Da...
11.03.2009 16:06:48
Thread-ID: 1059163
3 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
gestern habe ich eine frage gestellt gehabt wobei mir sehr geholfen war.
Nun habe ich festgestellt das es doch noch einen Hacken gibt. Und zwar möchte ich das in Tabellenblatt2 nicht immer ab der Zeile 2 angefangen wird sondern immer ab der nächsten freien Zeile geschri...
12.03.2009 13:40:36
Thread-ID: 1059470
3 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
6
2
1
3
2
2
2
2
1
20
1
5
6
9
2
1
8
4
7
2
14
11
10