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

Makro mit variablen dateinamen

Forumthread: Makro mit variablen dateinamen

Makro mit variablen dateinamen
05.12.2012 18:51:45
Manu
Hallo Excelprofis,
ich ein Makro, dass ich noch optimieren möchte, es aber nicht hinbekomme.
Die Namen der Workbooks und Worksheets sollen variabel werden. Diese würde ich gerne in einem Tabellenblatt in Zellen eintragen (z.B. in A1, A2 usw).
Ich hoffe, dass Ihr mit weiterhelfen könnt.
Sub Datei_kopieren()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open "E:\Manu\2. Phase\Fertige Dateien\Dienstplan Nord.xls"
Set QWB = Workbooks("Dienstplan Nord.xls")
Set ZWB = Workbooks("Beispiel Datei öffnen") 'Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Oktober12")
Set ZWS = ZWB.Worksheets("Tabelle3")
QWS.Cells.Copy ZWS.Cells(1, 1)      ' Inhalt in Ziel-Tabelle einfügen
QWB.Close
Application.EnableEvents = True
End Sub
Danke Manu

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro mit variablen dateinamen
05.12.2012 19:31:13
Hajo_Zi
Hallo manu,
auf müssen die ja sein. Bei mir haben alle Dateien einen Dateityp.
Set QWB = Workbooks(Range("A1"))
Set ZWB = Workbooks(Range("b12")) 'Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets(Range("c1"))

Anzeige
AW: Makro mit variablen dateinamen
05.12.2012 19:35:47
Sheldon
Hi Manu,
Sub Datei_kopieren()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim QWB As Workbook, ZWB As Workbook, FileSheet as Worksheet
Set FileSheet = ThisWorkbook.Sheets("Tabelle1")
Workbooks.Open FileSheet.Range("A1")     'In A1 steht E:\Manu\2. Phase\Fertige Dateien\ _
Dienstplan Nord.xls
Set QWB = Workbooks(FileSheet.Range("A2")    'A2=Dienstplan Nord.xls
Set ZWB = ThisWorkbook 'Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Oktober12")
Set ZWS = ZWB.Worksheets("Tabelle3")
QWS.Cells.Copy ZWS.Cells(1, 1)      ' Inhalt in Ziel-Tabelle einfügen
QWB.Close
Application.EnableEvents = True
End Sub
Habe nicht alle Zeilen geändert. Aber das Prinzip ist nun klar, oder?
Gruß
Sheldon

Anzeige
AW: Makro mit variablen dateinamen
06.12.2012 07:40:45
Manu
Hallo Sheldon,
erst mal vielen Dank für die schnelle Meldung. Leider bekomme ich folgende Fehlermeldung.
Laufzeitfehler '13!: Typen unverträglich
Bei: Set QWB = Workbooks(FileSheet.Range("A2")) 'A2=Dienstplan Nord.xls
Hast Du einen Rat?
Danke und Gruß
Manu

Anzeige
AW: Makro mit variablen dateinamen
06.12.2012 14:27:14
Sheldon
Hi Manu,
versuch das mal:
Set QWB = Workbooks(FileSheet.Range("A2").Value)
Klappt das?
Gruß
Sheldon

Vielen Dank - klappt
06.12.2012 17:16:35
Manu
Hallo Sheldon,
ja, damit funktioniert es. Super vielen Dank.
Gruß
Manu

Gern geschehen, danke für die RM :-) owT
06.12.2012 17:53:35
Sheldon
Gruß
Sheldon

Anzeige
Na, bis jetzt ist nichts variabel, ...
05.12.2012 19:46:53
Luc:-?
…Manu;
falls dein Dateiöffnen fktioniert (kann ich jetzt nicht testen), dürfte es wie folgt 1. übersichtlicher sein und 2. ggf auch funktionieren (wie gesagt, nicht getestet!): 
Sub Datei_kopieren()
Dim QWB As Workbook, ZWB As Workbook, QWS As Worksheet, ZWS As Worksheet
With Application
.ScreenUpdating = False: .EnableEvents = False
End With
Workbooks.Open "E:\Manu\2. Phase\Fertige Dateien\Dienstplan Nord.xls"
Set QWB = Workbooks("Dienstplan Nord.xls")
Set ZWB = Workbooks("Beispiel Datei öffnen") 'Ziel, Workbook mit diesem Makro
Set QWS = QWB.Worksheets("Oktober12")
Set ZWS = ZWB.Worksheets("Tabelle3")
QWS.UsedRange.Copy: ZWS.Paste      ' Inhalt in Ziel-Tabelle einfügen
QWB.Close
With Application
.EnableEvents = True: .ScreenUpdating = True
End With
Set QWB = Nothing: Set ZWB = Nothing: Set QWS = Nothing: Set ZWS = Nothing
End Sub
Gruß Luc :-?
Anzeige
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Excel-Makro mit variablen Zeilen
Hans-Peter

Hallo,
Ich bin auf der Suche nach einer Excel-Funktion oder einem Makro, welches es mir ermöglicht, eine variable Anzahl Zeilen (mit definiertem Inhalt in der letzten Zeile) in ein neues Arbeitsblatt zu kopieren.
09.11.2008 22:40:00
Thread-ID: 1023114
5 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Anzeige
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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