Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Letzte aktive Mappe öffnen

Letzte aktive Mappe öffnen
Micha
Hallo liebe Spezialisten,
mit dem unten stehenden Code öffne ich die zuletzt bearbeitete Mappe.
Wenn die Mappe allerdings bereits geöffnet ist, wird die Mappe erneut geöffnet und vorgenommende Änderungen gehen verloren.
Wie muss der Code aussehen um zur zuletzt aktiven Mappe zu wechseln, ohne diese erneut zu öffnen?

Public Sub Letzte_oeffnen()
If Application.RecentFiles.Count > 0 Then
Application.Workbooks.Open Application.RecentFiles(1).Path
End If
End Sub
Vielen Dank für Eure Hilfe
Gruß
Micha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Letzte aktive Mappe öffnen
10.05.2012 14:43:38
MatthiasG
Hallo Micha,
ungetestet:

Public Sub Letzte_oeffnen()
Dim wb As Workbook
Dim p As String
If Application.RecentFiles.Count > 0 Then
p = Application.RecentFiles(1).Path
For Each wb In Workbooks
If UCase(wb.FullName) = UCase(p) Then
wb.Activate
Exit Sub
End If
Next wb
Application.Workbooks.Open Application.RecentFiles(1).Path
End If
End Sub

Gruß Matthias
AW: Letzte aktive Mappe öffnen
10.05.2012 14:47:47
Rudi
Hallo,
Public Sub Letzte_oeffnen()
Dim wkb As Workbook
If Application.RecentFiles.Count > 0 Then
On Error Resume Next
Set wkb = Workbooks(Application.RecentFiles(1).Name)
On Error GoTo 0
If wkb Is Nothing Then
Workbooks.Open Application.RecentFiles(1).Path
Else
wkb.Activate
End If
End If
End Sub
Gruß
Rudi
Anzeige
AW: Letzte aktive Mappe öffnen
10.05.2012 15:07:28
Micha
Hallo Ihr beiden,
funktioniert Prima!
Vielen lieben Dank dafür :-)
Gruß
Micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige