VBA/Excel - Probleme mit öffnen von Dateien

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich soll in der Arbeit ein Prog zum berechnen von Mietkosten erstellen, da ich so etwas noch nie gemacht habe, bin ich also der volle Newbie.

Trotzdem habe ich schon einiges zustande gebracht. Nur momentan hänge ich, und zwar beim öffnen von Dateien.
Folgendes Problem:
Ich kann zwar eine Datei öffnen lassen, aber wenn ich die gleiche Datei öffnen will, wie die die schon offen ist, bringt er mir einen fehler.

Hier mein bisheriger Code:

Sub LoadExcelFile()
Dim result
Call pfad
result = Application.GetOpenFilename(„Excel-Dateien,*.xl?“, 1)
If result = False Then Call Hauptmenü.Show
Workbooks.Open result

End Sub

Ich würde folgendes gerne erreichen.
Es soll, sobald eine Datei bereits geöffnet ist nur das entsprechende Fenster wieder öffnen, ansonsten die Datei.
Kann mann das nicht so machen das er den Fensternamen mit Windows.caption (oder so) ermittel und das dann mit result vergleicht?

Noch eine Frage!
Wie kann man zwischen Fenstern wechseln, aber so das man sie vorher auswählen kann?

Mein Hirn raucht schon total, und ich komme einfach nicht weiter.
SOS *** ERBITTE HILFE *** SOS

Für jede Hilfe schonmal Danke im voraus.
cu
Paul

#2

Es soll, sobald eine Datei bereits geöffnet ist nur das
entsprechende Fenster wieder öffnen, ansonsten die Datei.

Public Function IsOpen(strWorkbook As String) As Boolean
Dim objWbs As Workbooks
Dim objWb As Workbook
'
For Each objWb In Application.Workbooks
 If UCase$(objWb.Name) = UCase$(Right$(strWorkbook, Len(objWb.Name))) Then
 IsOpen = True
 Call objWb.Activate
 Exit Function
 End If
Next
End Function

Funktion sieht nach, ob die Excel-Datei schon geöffnet ist, „aktiviert“ diesen und liefert True bei „ist schon offen“ und False bei „nicht offen“ zurück.
Vielleicht hilft Dir das weiter - kann sicherlich noch verfeinert werden…
greets from michL (vienna)

#3

Hi !!!

Danke !!! Ich werde es gleich mal Probieren !!!

thx
Paul