schließen augeblendeter Tabellen
13.02.2008 09:53:00
Johannes
ich bekomme einmal je Woche eine Liste gemailt, die aber "systembedingt" {das Problem liegt zwischen den Ohren des Absenders} immer ein anderen Namen hat.
Zur Auswertung habe ich einen Ablauf so geschrieben, dass er läuft wenn eben nur diese Liste und meine Auswertedatei offen ist.
In dem Moment, wo aber eine ausgeblendete Datei noch offen ist, klappt es nicht mehr. Da ich nicht immer sicherstellen kann, dass die Namen der ausgeblendeten Dateien bekannt sind, suche ich nach einer Möglichkeit alle ausgeblendeten Dateien sicher zu schließen - dann läuft mein Makro ja wieder.
Das mit nur beiden Dateien habe ich so gelöst:
'Namen der zweiten Datei ermitteln
Dim liWb As Integer, lstrWbName As String
For liWb = 1 To Workbooks.Count
If Workbooks(liWb).Name ThisWorkbook.Name Then
lstrWbName = Workbooks(liWb).Name
End If
Next
'und ab jetzt auf die mail-Datei zugreifen
Workbooks(lstrWbName).Activate
Cells.Select
Selection.Copy
Hat jemand hierzu eine Idee ? Vielen Dank für Eure Hilfe schon jetzt.
Viele Grüße
Johannes
Anzeige