Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
396to400
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook mit Variable öffnen

Workbook mit Variable öffnen
15.03.2004 15:35:20
peter
Hallo,
ich will die Formate von 5 Tabellen einer Vorlage kopieren.
VBA Code funktioniert so, scheint mir aber nicht optimal.
dName = Pfad mit Filenamen (K:\..\..\..\Noten Kern.xls)
...
Workbooks("Notenblatt Systemtechniker.xls").Worksheets("Zus").Activate
Range("A1:N40").Copy
'
Workbooks.Open FileName:=dName
ActiveWorkbook.Worksheets("Zus").Activate
Range("A1:N40").PasteSpecial xlPasteFormats
ActiveWorkbook.Save
ActiveWorkbook.Close
'
'
Workbooks("Notenblatt Systemtechniker.xls").Worksheets("TBZ ZLI").Activate
Range("A1:O90").Copy
'
Workbooks.Open FileName:=dName
... (Code wie oben)
Wie kann ich ein Workbook mittels Variable öffnen, etwa wie
Workbooks(dName).Worksheets("TBZ ZLI").Activate
oder wie wechsle ich zwischen Vorlage und Ziel ohne speichern/schliessen zu müssen.
vielen Dank für Tips
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook mit Variable öffnen
15.03.2004 16:38:54
Thorsten
Hallo Peter
Notenblatt Systemtechniker.xls ist die Vorlage, in die auch dieser Code soll, und in Noten Kern.xls willst Du die Formate kopieren?
Dann versuch es mal so:

Sub FormatKopieren()
Dim dName As String
dName = "DeinPfad\Noten Kern.xls"
Workbooks.Open FileName:= dName
'Workbooks(1) ist Notenblatt Systemtechniker.xls und Workbooks(2) ist Noten Kern.xls
Workbooks(1).Sheets("Zus").Range("A1:N40").Copy
Workbooks(2).Sheets("Zus").Range("A1:N40").PasteSpecial xlPasteFormats
Workbooks(1).Sheets("TBZ ZLI").Range("A1:O90").Copy
Workbooks(2).Sheets("TBZ ZLI").Range("A1:O90").PasteSpecial xlPasteFormats
Workbooks(1).Sheets(Deine 3. Tabelle).Range(Dein 3. Bereich).Copy
Workbooks(2).Sheets(Deine 3. Tabelle).Range(Dein 3. Bereich).PasteSpecial xlPasteFormats
Workbooks(1).Sheets(Deine 4. Tabelle).Range(Dein 4. Bereich).Copy
Workbooks(2).Sheets(Deine 4. Tabelle).Range(Dein 4. Bereich).PasteSpecial xlPasteFormats
Workbooks(1).Sheets(Deine 5. Tabelle).Range(Dein 5. Bereich).Copy
Workbooks(2).Sheets(Deine 5. Tabelle).Range(Dein 5. Bereich).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Workbooks(2).Range("A1").Select
Workbooks(2).Save
Workbooks(2).Close
End Sub

Konnte ich Dir damit helfen?
Ciao
Thorsten
Anzeige
AW: Workbook mit Variable öffnen
15.03.2004 18:07:40
Peter
Hallo Thorsten,
ich glaube ich verstehe die Struktur.
Werde es morgen gerne ausprobieren.
Das Workbook mit dem Code ist demzufolge immer Workbooks(1)
Der Wechsel ist so einfach zwischen (1) und (2)
Dieser Wechsel war mein Problem.
Wird sicher viel schneller ablaufen.
Vielen Dank, Peter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige