Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren in noch nicht vorhandenes Sheet

Forumthread: Kopieren in noch nicht vorhandenes Sheet

Kopieren in noch nicht vorhandenes Sheet
11.02.2003 09:52:44
Frederik Fuhrmann
Guten Morgen!

Ich möchte eine AutoFilter - Auswahl in ein neues Blatt kopieren und habe mir das so gedacht:

Cells.SpecialCells(xlCellTypeVisible).Copy Sheets.Add(Inv_Nr(Zähler_Aggregat)).Range("a1")


Inv_Nr(Zähler_Aggregat) ist eine Variable!
Das geht aber so nicht, weiß jemand was ich falsch mache?

Gruß
F.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kopieren in noch nicht vorhandenes Sheet
11.02.2003 10:00:04
Michael Scheffler

Hallo,

Du kannst das nicht in eine Zeile schreiben:

Dim shtNew As Worksheet
Set shtNew = Sheets.Add(Inv_Nr(Zähler_Aggregat)).Range("a1")

Und dann kanst Du kopieren.

Gruß

Micha

Re: Kopieren in noch nicht vorhandenes Sheet
11.02.2003 10:04:04
Frederik Fuhrmann

Hallo Micha!

Fehler 1004!
Die Methode 'Add' für das Objekt "Sheets" ist fehlgeschlagen.

Gruß
F.

Anzeige
..noch jemand eine Idee?
11.02.2003 10:17:09
Frederik Fuhrmann

.

Alles klar, habe es hinbekommen
11.02.2003 10:41:34
Frederik Fuhrmann

Do Until Zähler_Aggregat = 16
Sheets("Tabelle1").Range("a1").AutoFilter Field:=2, Criteria1:=Inv_Nr(Zähler_Aggregat) & "*", Operator:=xlAnd
With Sheets.Add
.Name = Inv_Nr(Zähler_Aggregat)
End With
Sheets("Tabelle1").SpecialCells(xlCellTypeVisible).Copy Sheets(Inv_Nr(Zähler_Aggregat)).Range("a1")
Loop


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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