Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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.

..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

87 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige