Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle von einer Datei in andere Datei kopieren

Forumthread: Tabelle von einer Datei in andere Datei kopieren

Tabelle von einer Datei in andere Datei kopieren
17.11.2004 11:24:17
einer
Hallo Experden!
Ich möchte aus der Datei: D:\Daten\Blind.xls Tabelle1 alle rot beschrifteten Zeilen in die Datei: D:\Daten\Rapport.xls Blattname Tabelle1 kopieren.
Wer kann mir helfen - sitze schon tagelang vor dem "Problemchen".
Habs noch nich hingekriegt.
Gruß
Egon
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle von einer Datei in andere Datei kopieren
einer
Hallo
so gehts
Sheets("Tabelle1").Copy After:=Workbooks("Mappe3").Sheets(Sheets.Count)
Gruß UD
AW: Tabelle von einer Datei in andere Datei kopieren
17.11.2004 11:42:33
einer
Hallo UD!
Vielen Dank für die schnelle Hilfe...
Habs gleich probiert, geht aber nicht.
Muss nicht zuerst die Datei aufgerufen werden: Also: Öffne D:\Daten\Blind.xls Tabelle1, hole rot beschriftete Zeilen, kopiere diese nach D:\Daten\Rapport.xls Tabelle1

Das Makro soll beim öffnen der Datei: D:\Daten\Rapport.xls "losgehen"
Was kann noch falsch sein-
Gruß aus der Pfalz
Egon
Anzeige
AW: Tabelle von einer Datei in andere Datei kopieren
einer
Sorry hab mich zu stark auf die Überschrift verbissen.
Hier der Code für dein Problem.

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "DieseArbeitsmappe" doppelklicken

  • Im neuen Fenster das Makro einfügen




      
Option Explicit
Private Sub Workbook_Open() 'in D:\Daten\Rapport.xls
    Dim Dateiname$, Neuname$, nC%, nR%, z As Range
    Neuname = "D:\Daten\Blind.xls"
    Dateiname = ActiveWorkbook.Name
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=Neuname
    For Each z In Workbooks(Dateiname).ActiveSheet.UsedRange
        If z.Font.ColorIndex = 3 Then ' wenn Schriftart=rot
        'If z.Interior.ColorIndex = 3 Then ' wenn Muster=rot
            z.Copy Destination:=Cells(z.Row, z.Column)
        End If
    Next
    Windows(Dateiname).Activate
    Application.ScreenUpdating = True
End Sub 
Anzeige

Forumthreads zu verwandten Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Automatisiert Daten aus versch. Tabellen kopieren?
Henrick

Hallo Forumsteilnehmerinnen und -teilnehmer!
Ich bin kein großer Excel-Experte und kein Progammierer. Ich habe als Controller solide Anwenderkenntnisse. Ich bin dabei mein Berichtswesen in Excel neuaufzubauen (da ist in den letzten Jahren hier viel versäumt worden). Nun zu meinem Problem:<...
29.04.2009 16:33:52
Thread-ID: 1071956
8 Beiträge
Anzeige
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 Beiträge
Anzeige
Formelbezug ändert sich bei kopieren von Zellen
Zellen

Hallo zusammen,
ich habe ein Tabellenblatt erstellt, in dem durch mehrere Nutzer Datensätze in Zeilen eingegeben werden. Gleichzeitig sind in die Zeilen schon Formeln eingetragen und per Blattschutz gegen versehentliche Änderungen des Users geschützt.
Wird nun eine Zelle kopiert, ändern...
27.10.2009 22:25:08
Thread-ID: 1112615
4 Beiträge
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Anzeige
Zellen aus einer Pivottabelle kopieren | Herbers Excel-Forum
Rocco
hallo leute,
habe leider ein problem zellen aus einer zuvor aktualisierten pivottabelle zu kopieren und weiss nicht warum ;(
vielleicht hat ja von euch wer einen guten rat für mich. mein code schaut im moment so aus:
'Pivottabelle aktualisieren
Sheets("Pivot").Select
ActiveShe...
18.01.2010 16:26:32
Thread-ID: 1130788
2 Beiträge
Werte aus verschiedenen Tabellen kopieren
Bastian

Moin, Moin,
Ich möchte mich an dieser Stelle den tollen Antwortern für ihre geduldige Hilfe meinen Dank aussprechen. Ich bewundere Euer Wissen im Umgang mit Excel und VBA.
Ich versuche auf diesem Gebiet auch hinzu zu lernen, bin aber leider schon wieder an ein für mich unlösbares Probl...
26.04.2010 10:08:34
Thread-ID: 1153787
8 Beiträge
Bug in Pivottabelle, Fehler in Pivottabelle
wkempf@t-online.de

Guten Tag,
ich habe in Excel 2003 einen Fehler, dem ich bisher noch nicht auf die Spur kommen konnte.
Ich habe die Datei vereinfacht ( Link: https://www.herber.de/bbs/user/69521.xls
), das heißt, die Anzahl der Datensätze reduziert und einige Folgetabellen bzw. Spalten entfernt.
...
14.05.2010 13:11:40
Thread-ID: 1156467
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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