Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro in beliebiger Datei

Makro in beliebiger Datei
12.11.2005 12:12:24
Alex
Hallo,
ich hoffe es kann mir jemand bei meinem Problem helfen.
Folgendes, ich habe ein Makro, das aus einer festen Datei ein paar Zeilen herauskopiert. Diese soll dann immer in der Momentan aktiven Datei eingefügt werden. Ich kriege es nicht hin, das immer die aktive Datei genommen wird. Zur Info, es ist immer ein beleibiger DAteiname. Für hilfe wäre ich sehr dankbar.
Gruß
Alex T

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

Betreff
Datum
Anwender
Anzeige
AW: Makro in beliebiger Datei
12.11.2005 13:25:04
Matthias
Hallo Alex,
Du meinst wahrscheinlich das aktive Blatt...
statt Sheets("Name") einfach ActiveSheet einsetzen.
Wenn's nicht klappt, poste mal das Makro.
Gruß Matthias
AW: Makro in beliebiger Datei
14.11.2005 09:33:09
Alex
Hallo Matthias,
mit aktive sheets komme ich nicht weiter......
anbei das Makro
Sub Kopieren()
'
' Kopieren Makro
'
'
Windows("1 Original A .xls").Activate
Rows("57:71").Select
Range("AP57").Activate
Selection.Copy
Windows("ActiveWindow").Activate (DATEI1, HIER MUß IMMER ZUR DATEI GEWECHSELT WERDEN IN DIE EINGEFÜGT WERDEN SOLL)
Rows("57:57").Select
Range("AP57").Activate
ActiveSheet.Paste
Range("A64:D70").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-24]C[1]"
Range("E64:H70").Select
ActiveCell.FormulaR1C1 = "=R[-24]C[1]"
Range("I64:K70").Select
ActiveCell.FormulaR1C1 = "=R[-24]C[2]"
Range("L64:O70").Select
ActiveCell.FormulaR1C1 = "=R[-24]C[4]"
Range("P64:X66").Select
ActiveCell.FormulaR1C1 = "=Transport!R[-57]C[-14]"
Range("P69:X70").Select
ActiveCell.FormulaR1C1 = "=Transport!A7"
Range("P71").Select
End
Kurz nochmal erklärt: In eine beliebige DATEI1 soll aus der Original 1 etwas hineinkopiert werden. Kann natürlich auch sein, das das ganze makro quatsch ist !!!!!
Danke
Alex
Anzeige
AW: Makro in beliebiger Datei
14.11.2005 11:52:36
DieterB
Hallo Alex,
erstelle dir doch den Code in einer Tabelle, speichere diese als AddIn ab,
nehme eine Schaltfläche in deiner Symbolleiste auf, bei Klick wird aus der entsprechenden Datei rauskopiert, und in die aktive Mappe eingefügt.
Bei deiner derzeitigen vorgehensweise, müsstest du das Makro theoretisch in jede Datei einfügen, in die du hineinkopieren willst.
Dafür gibt es AddIns
Gruß
DieterB

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige