Daten aus einer Excel Dat. in eine andere kopieren

Hallo, ich benötige dringend Hilfe für ein Makro.
Ich habe 4 verschiedene Excel Dateien, aus denen jeweils der Zellbereich ("H8:I11")
herauskopiert und in eine neue Excel Datei, auf das Blatt "Mail", eingefügt werden soll.
Die 4 Dateien werden täglich aktualisiert, von daher ändert sich jeden Tag der Blattname (immer das Tagesdatum) von dem der Zellbereich kopiert werden soll.
Außerdem kann es vorkommen, dass auch nur mal 3 Dateien vorhanden sind. In diesem fall soll nur ein kurzer Hinweis erscheinen und, entweder soll an dieser Stelle nichts in die neue Datei eingefügt werden
oder es wird etwas in die Zellen geschrieben wie z.B. "No data" o.ä..
Auch der Ordner, in denen sich die Dateien befinden wird täglich erneuert und der Ordnername ist immer das jeweilige Tagesdatum.
Ich hoffe das ist nicht zu viel auf einmal!!
Ich freue mich über Eure Hilfe!
Viele Grüße
Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Tabellenbereiche auslesen Application.ScreenUpdating = False For I = 1 To Dateinamen.Rows.Count 'Püfen ob Datei vorhanden If Dir(Pfad & "\" & Dateinamen(I, 1)) = Dateinamen(I, 1) Then Set wbQuelle = Workbooks.Open(FileName:=Pfad & "\" & Dateinamen(I, 1), ReadOnly:=True) Set wksQuelle = wbQuelle.Worksheets(Blatt) Set rngQuelle = wksQuelle.Range(Bereich) rngQuelle.Copy wksMail.Cells(Zeile, Spalte).PasteSpecial Paste:=xlFormats 'Formate kopieren wksMail.Cells(Zeile, Spalte).PasteSpecial Paste:=xlValues 'Werte kopieren Zeile = Zeile + rngQuelle.Rows.Count + Zwischenzeilen wbQuelle.Close savechanges:=False Else Set wksQuelle = wksMail Set rngQuelle = wksQuelle.Range(Bereich) 'DummyBereich für Bereichsgröße With wksMail .Cells(Zeile, Spalte).Range(.Cells(Zeile, Spalte), .Cells(rngQuelle.Rows.Count, _ rngQuelle.Columns.Count)).Value = "No Data" Zeile = Zeile + rngQuelle.Rows.Count + Zwischenzeilen End With End If Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Hi Robert,
das ist kein Problem, wobei man natürlich auch eine Datei wieder löschen kann.
Ersetze den Codeabschnitt zum Anlegen des Mailblattes in einer neuen Datei durch folgenden Code.


'Prüfen ob altes Blatt noch vorhanden
For Each wksMail In wbThis.Worksheets
If wksMail.Name = "Mailtmp" Then
If MsgBox("Temporäres Mail-Blatt 'Mailtmp' ist noch vorhanden." & vbLf & vbLf _
& "Blatt löschen?", vbOKCancel, "Temporäres Mail-Blatt erstellen") = vbOK Then
Application.DisplayAlerts = False
wksMail.Delete
Application.DisplayAlerts = True
Else
Exit Sub
End If
End If
Next
'Temporäres Blatt als letztes Blatt einfügen
wbThis.Sheets("Mail").Copy After:=wbThis.Sheets(wbThis.Sheets.Count)
Set wksMail = ActiveSheet
wksMail.Name = "Mailtmp"
'Tabellenbereiche auslesen

Das temporäre Blatt wird dann in der Steuerungsdatei als 3 Blatt angelegt.
Zum Löschen des temporären Blattes kannst du folgende Prozedur vewenden. Dabei wird dann keine _ Meldung angezeigt, ob man das Blatt wirklich löschen möchte.


Sub MailtmpLoeschen()
'Temporäres Mail-Blatt löschen
On Error Resume Next
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("Mailtmp").Delete
Application.DisplayAlerts = True
End Sub

Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Daten aus einer Excel Dat. in eine andere kopieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus einer Excel Dat. in eine andere kopieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread