Office: Per VBA Datei wechseln?

BB67 · 11. März 2012

Hallo,
ich möchte mit einem Makro von einer Exceldatei X zur anderen geöffneten Exceldatei geöffneten wechseln um dort Daten in die Exceldatei X zu übertragen. Das Problem ist nur, dass die andere Exceldatei täglich einen neuen Dateinamen (immer das aktuelle Datum) bekommt.

Windows("".xls).Activate funktioniert leider nicht :-(

Gruß
Bernd

:)

Hajo_Zi · 13. März 2012

Hasllo Bernd,

das kann nicht gehen, da Du kleine Dateinamen angegeben hast.
Ich sehe Deinen Dateinamen auch nicht, darum auch keinen Vorschlag.
Auf ist die Datei?

BB67 · 13. März 2012

Hallo HaJo,
Danke!
Die Datei in die ich die Daten kopieren möchte heißt Störungen.xls die andere Datei, aus der ich die Daten holen möchte heißt heute 13-03-2012.xls morgen heißt sie aber 14-03-2012.xls usw. also immer das gestrige Datum.

Im Grunde suche ich eine Funktion wie [ALT]+[TAB] bzw. [Strg]+[TAB]

Gruß Bernd

Erich G. · 13. März 2012

Hi Bernd,
schau dir das mal an: Code:

Option Explicit

Sub DatenHolen()
Dim strNam As String, wkb As Workbook, wkbQuell As Workbook

strNam = Format(Date - 1, "dd-mm-yyyy")
For Each wkb In Workbooks
If UCase$(wkb.Name) = strNam & ".XLS" Then
Set wkbQuell = wkb
Exit For
End If
Next
If wkbQuell Is Nothing Then
MsgBox strNam & ".XLS ist nicht geöffnet - Abbruch", vbCritical
Else
ThisWorkbook.Worksheets(1).Range("B3:F7") = _
wkbQuell.Worksheets("Daten").Range("D4:H8").Value
MsgBox "Daten wurden aus " & strNam & ".XLS übertragen", vbInformation
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code geht davon aus, dass er in Störungen.xls steht - deshalb "ThisWorkbook".

Noch eine Frage: Gilt das mit dem Vortag immer? Auch wenn es Wochenenden gibt?

BB67 · 13. März 2012

Hallo Erich,
vielen Dank!
Nein es kann durchaus sein, dass ein anderes Datum geöffnet werden soll. Deshalb such ich auch so verzweifelt nach einem "dynamischen" Befehle wie ALT+TAB

Was immer sichergestellt sein kann ist, dass nur die Störungen.xls und die andere Exceldatei, aus der die Daten geholt werden sollen, geöffnet sind.

Gruß Bernd

EarlFred · 13. März 2012

Hallo Bernd,

darf man fragen, warum Du zu der Datei wechseln willst?
Erichs Code zeigt doch, dass man nicht zu einer Datei "wechseln" muss, um mit dieser zu arbeiten.

Aber wenn Deine Bedingung zutrifft, dass die gesuchte Mappe immer die "andere" ist, dann wäre das mit einer kleinen Abwandlung möglich:
Code:

Option Explicit

Sub DatenHolen()
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name ThisWorkbook.Name Then
Exit For
End If
Next
If wkb Is Nothing Then
MsgBox "Die Datei ist nicht geöffnet - Abbruch", vbCritical
Else
wkb.Activate
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

BB67 · 14. März 2012

Hallo EarlFred,
danke für den Hinweis! Da ich ein blutiger VBA Anfänger bin (werde erst im April auf Schulungen können) habe ich das leider nicht gesehen, dass der Code von Erich einen Wechsel unnötig macht.
Die Daten hole ich immer aus exakt dem gleichen Bereich der anderen Datei von daher ist das sogar ne feine Sache.

Werde jetzt mal beide Codes laufen lassen.

Vielen Dank noch mal!
Gruß Bernd

Erich G. · 14. März 2012

Hi Bernd,
vielleicht passt das hier auch ganz gut: Code:

Sub DatenHolen2()
Dim wkb As Workbook

Select Case Workbooks.Count
Case Is < 2
MsgBox "Statt zweier ist nur eine Mappe geöffnet - Abbruch", vbCritical
Case Is > 2
MsgBox "Es sind mehr als zwei Mappen geöffnet - Abbruch", vbCritical
Case Else
For Each wkb In Workbooks
If wkb.Name ThisWorkbook.Name Then
ThisWorkbook.Worksheets(1).Range("B3:F7") = _
wkb.Worksheets("Daten").Range("D4:H8").Value
MsgBox "Daten wurden aus " & wkb.Name & " übertragen", vbInformation
Exit For
End If
Next
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Per VBA Datei wechseln?

Per VBA Datei wechseln?

Per VBA Datei wechseln?

Per VBA Datei wechseln?

Per VBA Datei wechseln?

Per VBA Datei wechseln? - Similar Threads - VBA Datei wechseln

offene Word-Datei per VBA speichern

VBA Variableninhalt nach import aus zwei verschiedenen Dateien verschieden >Leer< und >""<

Datum einer Datei per VBA auslesen

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Aufrufen Datei aus SharePoint per VBA

per VBA in Datei springen und wieder in Ausgangs Datei zurück

Excel VBA zwischen geöffneten Dateien wechseln und schließen.