Aktualisieren per Makro !

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo liebe Vba Experten !
ich habe folgende Problemstellung aus einer Excel Datei xx Tabelle 1 / Spalte B:5 bis B:15 sowie D:5 bis D:15
sollen die Zelleninhalte in eine andere Excel Datei xy Tabelle 2 / Inhalte aus Datei xx Spalte B:5 bis B:15 in Datei xy..Spalte O:87 bis O:101 ausgegeben werden,weiters Inhalte aus Datei xx Spalte D:5 bis D15 in Datei xy..Spalte P:87 bis P:101......
bei einem Makro falls das machbar ist müsste berücksichtigt werden das die Excel Datei xx in einem Ordner liegt und täglich neu angelegt wird,das jeweils letzte Datum der Datei xx sollte abgefragt werden, die Datei xx wird under folgendem Format abgespeichert (03.12.2008.Mi) (04.12.2008.Do) usw...
Wäre für Lösungsvorschläge Dankbar
Lg.Ernst

Wenn eine gestellte Frage keine Antworten fand, stelle sie nicht mit dem gleichen Text neu. Vermutlich haben die Forumsteilnehmer Deine erste Frage gelesen, konnten aber nichts damit _ anfangen. Formuliere die Frage neu. Vor allem: Werde nicht ungeduldig, wenn nach ein, zwei Stunden noch keine Antwort da ist.

Sub aktualisieren() ' aktualisieren Makro ' Makro am 04.12.2008 von Ernst aufgezeichnet Workbooks.Open Filename:= _ "C:\Dokumente und Einstellungen\Ernst\Desktop\test\16.11.2008.So.xls" Range("B5:B26,D5:D26").Select Range("D26").Activate Selection.Copy Windows("xy.xls").Activate Range("O87").Select ActiveSheet.Paste Windows("16.11.2008.So.xls").Activate ActiveWindow.SmallScroll Down:=-21 ActiveWindow.Close End Sub

Hallo,
in ein Modul im Ziel-Workbook (xy.xls)
Ziel muss im gleichen Ordner stehen, wie das zu suchende Wkb.


Sub DatenHolen()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Set wksZiel = ThisWorkbook.Sheets(1)
Set wksQuelle = Workbooks.Open(NeuesteDatei(ThisWorkbook.Path, ThisWorkbook.Name)).Sheets(1)
With wksQuelle
.Range("B5:B15").Copy wksZiel.Range("O87")
.Range("D5:D15").Copy wksZiel.Range("P87")
End With
wksQuelle.Parent.Close False
End Sub


Function NeuesteDatei(strPfad As String, Optional strIgnoredWkb As String) As String
Dim dteMax As Date, strDatei As String
Const strType As String = "*.xls"
If Right(strPfad, 1)  "\" Then strPfad = strPfad & "\"
strDatei = Dir(strPfad & strType, vbNormal)
Do While strDatei  ""
If strDatei  strIgnoredWkb Then
If FileDateTime(strPfad & strDatei) > dteMax Then
dteMax = FileDateTime(strPfad & strDatei)
NeuesteDatei = strPfad & strDatei
End If
End If
strDatei = Dir
Loop
End Function

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread