Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro um mehrere Dateien zu öffnen und abzuändern

Forumthread: Makro um mehrere Dateien zu öffnen und abzuändern

Makro um mehrere Dateien zu öffnen und abzuändern
16.02.2016 09:58:07
Bettina
Hallo zusammen,
ich versuche gerade alle Dateien die in einem Ordner liegen (C:\Desktop\Dateien2015) nacheinander zu öffnen und jeweils in dem Tabellenblatt "Bestand" eine weitere Spalte hinter der Spalte AB einzufügen mit folgender Formel: =WENN(ODER(S2="Modell1";S2="Modell2";S2="Modell6";S2="Modell9");RUNDEN(E2-N2;0);AA2).
Die Dateien sollen dann jeweils in einen Ordner gespeichert werden (C:\Desktop\DateienNEU).
Vielen Dank im Voraus für eure Hilfe!!
LG

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro um mehrere Dateien zu öffnen und abzuändern
16.02.2016 10:25:50
selli
hallo bettina,
dann zeige uns doch mal wie du es versuchst.
gruß
selli

AW: Makro um mehrere Dateien zu öffnen und abzuä
16.02.2016 10:37:50
Bettina
Hallo Selli,
da ich leider ein blutiger Anfänger in Sachen VBA-PRogrammierung bin, hab ich versucht das ganze über eine Makro-Aufzeichnung zu lösen...
So weit bin ich bis jetzt gekommen:
Sub Makro1()
' Makro1 Makro
Columns("AC:AC").Select
Selection.Insert Shift:=xlToRight
Range("AC1").Select
ActiveCell.FormulaR1C1 = "StandzeitNEU"
Range("AC2").Select
Selection.AutoFill Destination:=Range("AC2:AC6267")
Range("AC2:AC6267").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Desktop\DateienNEU", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Wie oben ersichtlich kann ich mit dem Makro gerade mal die Spalte einfügen - ich bin also noch garnicht weitergekommen..
Würde mich über Hilfe freuen :-)
Danke, LG

Anzeige
AW: Makro um mehrere Dateien zu öffnen und abzuä
16.02.2016 10:55:02
Rudi
Hallo, 
Sub aaaa()
Dim sFile As String, wkb As Workbook, lLast As Long
Const sPfadAlt = "c:\desktop\dateien2015\"
Const sPfadNeu = "c:\desktop\dateienneu\"
Application.ScreenUpdating = False
sFile = Dir(sPfadAlt & "*.xls*")
Do While sFile  ""
Set wkb = Workbooks.Open(sPfadAlt & sFile)
With wkb
With .Sheets("Bestand")
lLast = .Cells(Rows.Count, 1).End(xlUp).Row
.Columns("AC").Insert
.Cells(1, 29) = "StandzeitNEU"
.Range(.Cells(2, 29), .Cells(lLast, 29)).FormulaR1C1 = _
"=IF(OR(RC[-10]=""Modell1"",RC[-10]=""Modell2"",RC[-10]=""Modell6"",RC[-10]=""Modell9" _
"),ROUND(RC[-24]-RC[-15],0),RC[-2])"
End With
.SaveAs sPfadNeu & sFile
.Close
End With
sFile = Dir
Loop
End Sub
Gruß
Rudi

Anzeige
AW: Makro um mehrere Dateien zu öffnen und abzuä
16.02.2016 13:52:18
Bettina
Hallo Rudi,
vielen Dank für die Hilfe!!! Es funktioniert super :-)
Danke, LG
;

Forumthreads zu verwandten Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Anzeige
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 Beiträge
flexible txt-Datei öffnen mit VBA
Mike

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...
05.02.2009 15:36:31
Thread-ID: 1047405
3 Beiträge
Worksheet aus anderer Datei übernehmen
tco99

Hallo zusammen,
ich habe folgende Frage bzw. Bitte:
Ich habe zwei Excel-Dateien. Die eine Datei liegt immer im selben Verzeichnis, immer mit dem Namen "Daten" und hat ein einziges Worksheet mit dem Namen "Daten".
Jetzt müsste per Makro in der zweiten Datei das Blatt "Daten" der er...
05.02.2009 21:00:00
Thread-ID: 1047509
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige