PROB: Mappe per VBA öffnen - fortlaufende Nummer

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public wkbDoku As Workbook 'Variable für neue Datei aus "doku.xlt" 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 Set wkbDoku = Workbooks.Open(FileName:=sPath) End If Else Workbooks("Hauptmappe.xlt").Activate End If Workbooks("Hauptmappe.xlt").Activate End Sub

Sub Copy2Haz() Dim wkb As Workbook Dim wks As Worksheet Dim rng As Range On Error Resume Next Set wkb = wkbDoku If Err > 0 Or wkb Is Nothing Then Beep MsgBox _ prompt:="Es ist keine Testdatei geöffnet!" Exit Sub End If Set wks = wkb.Worksheets("Hazardous Area Equipment") If Err > 0 Or wks Is Nothing Then Beep MsgBox _ prompt:="Die Testdatei enthält das Zielblatt nicht!" Exit Sub End If Set rng = wkbDoku.Worksheets("Hazardous Area Equipment").Range("a8") Selection.Copy 'CopySelection wkbDoku.Worksheets("Hazardous Area Equipment").Range("a8").PasteSpecial xlValues 'paste als _ WERT Application.CutCopyMode = False End Sub

Hallo Gerd,
wenn man nicht alle Zusammenhänge von Anfang an kennt, dann kann man schon mal was übersehen.
Ob XLT oder XLS-Datei ist für diese Problemstellung ziemlich egal, wobei man bei Musterdateien ggf. schon die XLS-Dateien verwenden sollte, die man dann auch zentral verwalten kann. Man muss dann "nur" zum richtigen Zeitpunkt die entsprechende Datei beim Öffnen einem Objekt zuordnen.
Option Explicit sollte man immer setzen. Man reduziert dadurch Syntax-Fehler und Tippfehler bei Variablen, da Excel vor der Ausführung eine Prüfung durchführt, ob alle Variablen deklariert sind.
Auch die Datei-Öffnen-Prozedur erfordert für deine Anwendung noch eine kleine Anpassung. Wenn die Datei "Doku.xls" bereits geöffnet ist, dann muss das wbkDoku-Objekt natürlich auch gesetzt werden.
In deiner Copy2Haz Prozedur hab ich auch noch ein wenig angepasst und aufgeräumt.
Nachfolgend der komplette Code in meinem Test-Modul.
Gruß
Franz


Option Explicit
Public wkbDoku As Workbook 'Variable neue Datei aus "doku.xls"
Sub DateiOeffnen()
Dim sFile As String, sPath As String
sFile = "doku.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists(sFile) = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
Set wkbDoku = Workbooks.Open(Filename:=sPath)
End If
Else
Set wkbDoku = Workbooks(sFile)
End If
Workbooks("Hauptmappe.xls").Activate
End Sub
Sub Copy2Haz()
Dim wks As Worksheet
On Error Resume Next
If wkbDoku Is Nothing Then
Beep
If MsgBox(prompt:="Es ist keine Testdatei geöffnet! Jetzt öffnen?", _
Buttons:=vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Call DateiOeffnen
End If
End If
Set wks = wkbDoku.Worksheets("Hazardous Area Equipment")
If Err > 0 Or wks Is Nothing Then
Beep
MsgBox _
prompt:="Die Testdatei enthält das Zielblatt nicht!"
Exit Sub
End If
'Werte vom aktiven Blatt übertragen
Selection.Copy 'CopyS election
wks.Range("a8").PasteSpecial Paste:=xlPasteValues 'paste als _WERT
Application.CutCopyMode = False
End Sub
'Zum Testen von mir eingefügt fcs
Function WkbExists(strDateiname As String) As Boolean
'Prüfung ob datei schon geöffnet ist
Dim objWkb As Workbook
For Each objWkb In Workbooks
If LCase(objWkb.Name) = LCase(strDateiname) Then
WkbExists = True
Exit Function
End If
Next
End Function

Beliebteste Forumthreads (12 Monate)

PROB: Mappe per VBA öffnen - fortlaufende Nummer

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

269 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PROB: Mappe per VBA öffnen - fortlaufende Nummer

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

269 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread