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

Kopie von ungeöffneten Dateien mit variablen Namen

Forumthread: Kopie von ungeöffneten Dateien mit variablen Namen

Kopie von ungeöffneten Dateien mit variablen Namen
07.08.2014 12:04:01
ungeöffneten
Hallo!!!
Folgendes Problem habe ich, welches ich super gerne mit einem Makro lösen würde:
Ich habe eine Masterdatei ("Kontrollübersicht.xls") welche sich aus dem Ordner "Inventuren" mit dem Pfad "C:\Deutschland\Name" Daten der Monatsinventuren ("Name_Monat_Jahr.xls") ziehen soll.
Für mich ist dabei wichtig, dass sich sowohl der Pfad der Dateien (Name), als auch die Excel-Dateinamen selber (Name, Monat, Jahr) aus variablen Zellbezügen zusammensetzt. (Hintergrund: Ich will diese Systematik für ca. 100 unterschiedliche Objekte modellieren, wobei die Inventurangaben stets monatlich von Externen geliefert werden.)
Da ich mich zwar in Excel ganz gut auskenne, aber keine VBA-Kenntnisse habe, wäre es klasse wenn Ihr mir auch eine relativ idiotensichere Erklärung/Beschreibung von einer möglichen Makro-Lösung geben könntet!!!
Vielen lieben Dank für Eure Mühe!
Beste Grüße
Andi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Kopie von ungeöffneten Dateien mit variablen Namen
07.08.2014 14:24:13
ungeöffneten
Braucht Ihr noch mehr Informationen von mir?
Liebe Grüße
Andi

AW: Kopie von ungeöffneten Dateien mit variablen Namen
07.08.2014 17:49:20
ungeöffneten
Hallo Andi,
natürlich braucht man für ein VBA-Programm noch mehr Informationen, aber vielleicht kommst du mit dem folgenden Beispiel weiter.
Das Programm geht davon aus, dass deine Mappe "Kontrollübersicht.xls" mindestens die beiden Blätter "Dateien" und "Ergebnis" hat.
Im Blatt "Dateien" stehen in den Spalten A, B und C ab Zeile 2 jeweils Name, Monat und Jahr.
Das Blatt "Ergebnis" wird bei jeder Programmausführung ab Zeile 2 neu aufgebaut.
Außerdem befindet sich das VBA-Programm in dieser Arbeitsmappe.
Die Arbeitsmappen "Name_Monat_Jahr.xls" enthalten ein Blatt namens "Tabelle1". Aus diesem Blatt werden aus den Zellen B3 und H27 Daten entnommen. 
Sub Übersicht_erstellen()
Dim datei As String
Dim jahr As Long
Dim letzteZeileD As Long
Dim monat As Long
Dim name As String
Dim pfad As String
Dim wbQ As Workbook   ' Quelle
Dim wbZ As Workbook   ' Ziel
Dim wsQ As Worksheet
Dim wsD As Worksheet  ' Blatt "Dateien"
Dim wsE As Worksheet  ' Blatt "Ergebnis"
Dim zeileD As Long    ' Zeilenzählung im Blatt "Dateien"
Dim zeileE As Long    ' Zeilenzählung im Blatt "Ergebnis"
Set wbZ = ThisWorkbook
Set wsD = wbZ.Worksheets("Dateien")
' Spalte mit Fehlermeldungen löschen
wsD.Columns("G").ClearContents
Set wsE = wbZ.Worksheets("Ergebnis")
' Bisherigen Inhalt des Blattes "Ergebnis" löschen
wsE.Range(wsE.Rows(2), _
wsE.Rows(wsE.Rows.Count)).ClearContents
letzteZeileD = wsD.Cells(wsD.Rows.Count, "A").End(xlUp).Row
zeileE = 2
For zeileD = 2 To letzteZeileD
name = wsD.Cells(zeileD, "A")
monat = wsD.Cells(zeileD, "B")
jahr = wsD.Cells(zeileD, "C")
pfad = "C:\Deutschland\" & name & "\Inventuren\"
datei = name & "_" & Format$(monat, "00") & "_" & jahr & ".xls"
If Dir(pfad & datei)  "" Then
' Arbeitsmappe ist vorhanden
' datei vorsorglich schließen
Application.DisplayAlerts = False
On Error Resume Next
Workbooks(datei).Close
On Error GoTo 0
Application.DisplayAlerts = True
Set wbQ = Workbooks.Open(Filename:=pfad & datei)
Set wsQ = wbQ.Worksheets("Tabelle1")
' Werte in das Blatt Ergebnis übernehmen (hier Phantasie)
wsE.Cells(zeileE, "A") = wsQ.Range("B3")
wsE.Cells(zeileE, "B") = wsQ.Range("H27")
zeileE = zeileE + 1
wbQ.Close SaveChanges:=False
Else
' Arbeitsmappe ist nicht vorhanden
wsD.Cells(zeileD, "G") = pfad & datei & " ist nicht vorhanden"
End If
Next zeileD
wsE.Activate
End Sub

Ich lade meine Datei "Kontrollübersicht.xls" hoch:
https://www.herber.de/bbs/user/91958.xls
Viele Grüße
Dieter
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
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
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
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
Variable in Dateiöffnungsdialog integrieren
Robert

Hallo und Mahlzeit!
Meine Versuche schlugen leider fehl, deshalb die Frage und Bitte zugleich:
Ist es möglich, die Variable, in Zeile '0' als Auswahlkriterium in Zeile '4' so zu integrieren, daß nur die Dateien zur Auswahl erscheinen, die auch die Variable enthalten? Wenn ja, wie?
0...
04.09.2009 13:04:27
Thread-ID: 1100612
3 Beiträge
Anzeige
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Noch einmal offen (Tino) Array Variable Splitten)
chris

Hallo VBA Profis,
ich wollte eigentlich warten aber ich brauche schnell eine Lösung sonst kann ich´mit meinem Tool nicht weiter machen :(
Ich hoffe Ihr könnt mir helfen.
gestern habe ich eine Super Lösung für mein Problem von Tino bekommen.
Aber leider kann ich es nicht umbauen...
07.10.2009 08:43:33
Thread-ID: 1107727
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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