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

Makro

Makro
30.03.2006 15:07:59
Jens
Hallo,
ich habe bei einem Makro folgendes Problem:
Ich möchte gerne, dass das Makro im aktuellen Sheet und in der aktuellen Arbeitsmappe ausgeführt wird.
Geschrieben haben ich das Makro im Sheet "22" - jetzt greift er immer wieder auf dieses Sheet zu (siehe Zeile 1).
Genauso wird sich der Name der Datei änderen (siehe Zeile 5); hier würde ich gerne, dass das Makro in der offenen Arbeitsmappe (egal welcher Name) ausgeführt wird.
Das Makro in der aktuellen Datei geschrieben und abgespeichert; somit soll einfach im aktuellen Ordner, im aktuellen Blatt das Makro ausgeführt werden.
Danke für Anregungen und Hilfe!
Jens
Sheets("22").Select
Windows("BSH - kurz.xls").Activate
Range("E14:E23").Select
Selection.Copy
Windows("BSH-Monatsreport_03_2006-Jens.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("BSH - kurz.xls").Activate

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro
30.03.2006 18:58:21
Herbert
hallo Jens,
probier einmal:


Sub x()
Workbooks("BSH - kurz.xls").Sheets("22").Range("E14:E23").Copy
Workbooks("BSH-Monatsreport_03_2006-Jens.xls").Sheets("xx").Range("a1").PasteSpecial _
                Paste:=xlPasteValues
End Sub

     
das mußt du anpassen:
Sheets("xx").Range("a1")
gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige