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

Forumthread: Die ersten 10 Zellen nach Filterung kopieren

Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 11:35:09
NiSt
Hallo zusammen,
ich möchte gerne, nachdem ich die Spalte A nach bestimmten Kriterien gefiltert habe, die ersten 10 Zellen kopieren.
Da die Zellen, bedingt durch den Filter, nicht strikt sortiert sind, (8,9,10,11,12,usw.) kann ich die Zellen ja nicht direkt ansprechen.
Kann mir jmd. weiterhelfen?
Vielen Dank schon mal im Voraus!!
Viele Grüße
niko

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 11:40:16
Fennek
Hallo,
eine Möglichkeit von Hand wäre:
Taste [F5] drücken - Inhalte - sichtbare Zellen
kopieren und an geeigneter Stelle einfügen. (geht auch mit vba)
mfg

AW: Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 11:43:02
NiSt
Ich möchte das ganze gerne via VBA erledigen.
Sorry, habe ich vergessen zu erwähnen.

AW: Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 11:49:11
Werner

Sub coppy()
With Sheets("Tabelle1") 'Tabelle anpassen
.Range(.Cells(2, 1), Cells(11, 20)).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Range("A1") 'Zieltabelle und Zelle anpassen
Application.CutCopyMode = False
End With
End Sub
Kopiert das Filterergebnis von A2 (.Cells(2, 1)) bis T11 (.Cells(11, 20))
Den Bereich musst du an deine Verhältnisse anpassen.
Gruß Werner

Anzeige
AW: Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 13:18:22
NiSt
Ist der Punkt,
.Range(.Cells(2, 1), Cells(11, 20)).SpecialCells(xlCellTypeVisible).Copy _
vor Cells(2.1) so richtig?
Andere Frage:
With Sheets("Sheet1").Range(Cells(9, 1): Cells(18, 1)).SpecialCells(xlCellTypeVisible).Copy_
Bei mir sind ab Zelle 9 die Zellen relevant, habe ich so angepasst. Das ganze soll bis Zelle 18 kopiert werden. Ist das so richtig?
Ich bekomme jetzt eine Fehlermeldung:
Anwendungs- oder objektdefinierter Fehler.

Anzeige
AW: Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 14:25:40
Werner
Hallo,
sollte so gehen, habe es aber nicht getestet.
With Sheets("Sheet1")
.Range(.Cells(9, 1), .Cells(18, 1)).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Tabelle2"). Range("A1") 'Blatt und Zielzelle anpassen
End With
Heißt dein Quellblatt tatsächlich Sheet1 ?
Gruß Werner

Anzeige
AW: Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 14:29:59
Werner
Hallo,
nach dem Punkt bei
Sheets("Tabelle2").
ist ein Leerzeichen rein gerutscht das da nicht hin gehört.
Gruß Werner

AW: Die ersten 10 Zellen nach Filterung kopieren
11.05.2016 14:45:33
NiSt
Ja, das heißt Sheet1.
Danke ich versuche das gleich mal.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige