ich habe ein Problem was plötzlich in einem forhanden skript auftrat und ich weiß nicht wieso...
Ich Öffne mit folgendem Code eine Arbeitsmappe:
Sub DateiOeffnen()
Dim sFile As String, sPath As String
sFile = "doku.xlt"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists("doku.xlt") = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
End If
Else
Workbooks("Hauptmappe.xlt").Activate
End If
Workbooks("Hauptmappe.xlt").Activate
End Sub
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function
Das hat auch immer soweit geklappt - ich benutze im Anschluss daran noch weitere skripts die Werte in diese geöffnete Arbeitsmappe kopieren auf verschiedene Blätter... Jedoch hängt Excel bei jedem öffnen der Datei (diese wird immer nur 1 mal geöffnet und nach der bearbeitung gespeichert und geschlossen) eine folrtlaufende Nummer... Also ich kann die Mappe nicht mehr ansprechen über zB. 'Workbooks("doku.xlt").Activate' da Excel auf bei ersten Aufruf ein doku1 in der Tittelzeile daraus macht...
Wird die Mappe geschlossen und danach nochmal die Funktion DateoOeffnen ausgeführt dann bennent Excel diese Mappe in 'doku2' usw...
Das hatte ich vorhin beim testen meiner Skripte nie - nur jetzt aufmal..
Kann mir da jemand helfen?
Gruß und nen schönen Feiertag!