Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren in noch nicht vorhandenes Sheet

Forumthread: Kopieren in noch nicht vorhandenes Sheet

Kopieren in noch nicht vorhandenes Sheet
16.04.2003 12:43:49
Frederik Fuhrmann
Hallo!

Ich möchte mit folgendem Befehl Autogefilterte (sichtbare Zellen) in ein neu angelegtes Blatt einer anderen Datei kopieren:

Range("A1:K" & Range("B65536").End(xlUp).Row).Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks.Open("Produktivitätskennzahlen WW6.xls").Sheets.Add.Range("a1")


Warum geht das so nicht?

Gruß
Frederik

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kopieren in noch nicht vorhandenes Sheet
16.04.2003 13:03:35
Ramses

Hallo,

möglichst wenig Zeilen ist sinnvoll,... aber manchmal geht es nicht :-)

Range("A1:K" & Range("B65536").End(xlUp).Row).Cells.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Open("c:\mappe1.xls").Sheets.Add
ActiveSheet.Paste

Es muss auch der Pfad zu der Datei noch angegeben werden. Wenn ein neues Sheet eingefügt wird, greift EXCEL automatisch auf A1 zu wenn nichts anderes angegeben ist.

Gruss Rainer

Anzeige
Re: Kopieren in noch nicht vorhandenes Sheet
16.04.2003 15:20:26
Frederik Fuhrmann

Hallo Rainer!

Klar, mein Reden!
Aber den Pfad habe ich eine Zeile zuvor im Makro angegeben (chdrive..., chdir...). Die Datei in die ich kopieren möchte wird auch geöffnet, ein neues Tabellenblatt auch angelegt - aber nichts reinkopiert!


Gruß
F.

Re: Kopieren in noch nicht vorhandenes Sheet
16.04.2003 17:13:15
Ramses

Hallo,

nun bin ich mit meinem Latein am Ende.
Ich habe das vorhin schon getestet und nun auch nochmal.
Aber bei mir geht es !?

Gruss Rainer

Anzeige
Re: Kopieren in noch nicht vorhandenes Sheet
17.04.2003 07:25:04
Frederik Fuhrmann

Guten Morgen!

Hat das nach meinem, oder nach deinem Befehl funktioniert!?
Weil so wie du es geschrieben hast, habe ich mir auch beholfen, klar, das geht auch, nur alles in einem Befehl, das geht nicht!
Auch wenn Pfad. etc nekannz ist!
Trotzdem danke,

Gruß
F.

Re: Kopieren in noch nicht vorhandenes Sheet
17.04.2003 10:05:21
Ramses

Hallo,

das geht nicht einem Befehl.

Ansicht - Objektkatalog

Dort kannst du zu jedem Object die zugeordneten Methoden anschauen,... und nach Add wird kein Copy unterstützt.

Deshalb musst du es aufteilen.

Gruss Rainer

Anzeige
Re: Kopieren in noch nicht vorhandenes Sheet
17.04.2003 10:13:03
Frederik Fuhrmann

Da muss ich aber wiedersprechen!

Folgender Code funktioniert nämlich:

Range("A:A,B:B,C:C,D:D,I:I,K:K,L:L,N:N,O:O,AJ:AJ").Copy Workbooks("Produktionskennzahlen 1.4.xls").Sheets.Add.Range("a1")


Gruß
F.

;

Forumthreads zu verwandten Themen

Einen noch Boris :-)
sockel939

So gehts nicht :-(
For Each Zelle In Range("M4:X1000")
If Zelle "" Then
Interior.ColorIndex = 23
End If
Next
23.08.2008 00:34:00
Thread-ID: 1004060
5 Beiträge
Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Anzeige
aus Januar 2009 - 01.01.2009 machen
Karsten

Hallo,
durch eine Verkettung erscheint in einer Zelle Januar 2009 oder Februar 2009 usw. bis Dezember 2009.
Läßt sich diese Verkettung (z.B.Januar 2009) in einer anderen Zelle als "richtiges Datum", eben als 01.01.2009, umwandeln? Ich benötige dies für eine Suchfunktion, für einer Spalt...
08.07.2009 09:41:13
Thread-ID: 1087082
5 Beiträge
Sorry Tino, Bitte nochmal wg. Deinem Beispiel
Joachim

Hallo Tino,
Sorry der Belästigung. Du hast mir doch letzte Woche das Beispiel geschickt, mit dem Zusammenfassen von Datensätzen. Babei sollte man bei gleichem Inhalt in V , die Preise in "E" addieren.
Das war diese Zeile:
.FormulaR1C1 = "=IF(OR(RC22="""",RC22=""S""),RC5,IF(COUNTIF(R...
29.09.2009 09:11:42
Thread-ID: 1106050
4 Beiträge
Bedingte Formatierung noch einmal | Herbers Excel-Forum
Ralf
Hallo
Ich bekomme es einfach nicht hin und eigentlich denke ich es müsste so einfach sein aber vielleicht sehe ich vor lauter bäumen den wald nicht mehr
also ich möchte den Bereich B23 - N25 wenn B23=1 mit einer Farbe füllen
aber ich bekomme bei Bedingte Formatierung immer nur eine ze...
09.01.2010 19:34:23
Thread-ID: 1128575
4 Beiträge
Datum jahr 2010 / 11
Karel

Hallo Forum,
wie kan ich wert in Zelle zu darstellen das bei Monats Anfang Grosser dan Januar 2 Jahres zahlen in Zelle dargestellt wird für die nächste 3 Jahre.
Jahr Ausgabe 1 Ausgabe 2 Ausgabe 3
Jan 2010 2010 2011 2012
Feb 2010 2010 / 11...
19.01.2010 16:53:31
Thread-ID: 1131111
6 Beiträge
Anzeige
Jahre vor 1900
Matthias

Hallo zusammen!Gibt es eine Möglichkeit in Excel auch mit Jahreszahlen vor 1900 zu rechnen oder beginnt das "Excel-Zeitalter" definitiv mit dem 1.1.1900?
Vielen Dank,
Matthias

17.04.2002 10:53:30
Thread-ID: 114014
2 Beiträge
Anzeige
Visual Studio - ja oder nein?
Bertram

Hallo zusammen,
wir bekommen Office 2010 und ich lese und arbeite mich gerade ein in das ganze RibbonX, XML...-Zeug. Habe auch schon den Custom UI Editor entdeckt:-) Das ganze sieht ja recht spannend aus und ich würde das gerne nutzen und vertiefen. Nun bin ich in so einigen Artikeln immer...
09.11.2011 11:08:32
Thread-ID: 1237129
7 Beiträge
Matrixformel - (noch) ein Rätsel?
Ilka

Hallo,
einem Beitrag habe ich folgende Matrixformel entnommen:
{=WENNFEHLER(INDEX(Tabelle1!$B:$B;
KKLEINSTE(WENN(Tabelle1!$A:$A=Tabelle2!A$5;ZEILE($1:$50));ZEILE(A1)));"")}
Wofür ich keine Erklärung habe ist die Prüfung auf Fehler.
Es werden in diesem Fall Daten aus Tab1 nac...
14.11.2011 18:37:01
Thread-ID: 1237852
6 Beiträge
@Hajo! @Rudi @NoNet Das Jahr(2160)
Matthias

Hallo
angeleht an den letzten Beitrag von Hartmut!
Hajo hat hier:
https://www.herber.de/forum/archiv/1128to1132/t1130235.htm#1130237
eine Funktion veröffentlicht, die im Jahr 2160 aber nicht die Konstelation wiederspiegelt, wie sie im Link
von Excelformeln.de dargestellt wi...
30.05.2012 17:30:07
Thread-ID: 1265456
11 Beiträge
einzelne Blätter auf Knopfdruck exportieren + mail
Chris

Hallo,
ich habe es trotz Recherche nichts gefunden.
Folgender Sachverhalt ist gegeben.
Wir haben eine Excel-Tabelle mit ca. 20 Blättern.
Das erste Blatt ist eine Zusammenfassung aller Blätter.
Nun möchte ich quasie per Knopfdruck auf der ersten Seite das jedes Blatt einzeln...
15.02.2013 14:29:42
Thread-ID: 1299489
7 Beiträge
wenn dann ja oder nein
Stefan

Hallo,
ich möchte gern mit einer wenn formel zwei werte überprüfen.
Das heißt ich habe einen oberen und unteren Wert in Zelle A1 und A2. In Zelle b1 schreibe ich einen Messwert der zwischen oder gleich der anderen beiden sein soll. Wenn der Wert zwischen oder gleich der anderen ist dan...
22.02.2013 14:39:09
Thread-ID: 1300587
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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