Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

354 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige