Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1852to1856
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

Mappe öffnet nach Prüfung nicht

Mappe öffnet nach Prüfung nicht
10.11.2021 14:30:08
Eisi
Hallo zusammen,
sonst hat der Code immer funktioniert, warum öffnet der Code die Excelmappe nicht mehr?
Vielen Dank für die Hilfe.
VG Eisi :-)
Dim wbkQuelle As Workbook
Dim wbkZiel As Workbook
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim rngCopy As Range
Dim iZeile As Long
Dim iSpalte As Long
Set wbkQuelle = ActiveWorkbook
'___Prüfen ob Datei "AlleAngebote.xlsm" geöffnet ist, wenn nicht, dann öffne die Datei.____________________________
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = LCase("AlleAngebote.xlsm") Then
Exit For
End If
Next
If wbkZiel Is Nothing Then
Set wbkZiel = Workbooks.Open("AlleAngebote.xlsm")
End If

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mappe öffnet nach Prüfung nicht
10.11.2021 14:53:10
Werner
Hallo,
du mußt doch die Set wbkZiel Anweisung auch durchführen, wenn die Datei schon offen sein sollte.
Außerdem würde ich lieber ThisWorkbook als ActiveWorkbook verwenden.

Dim wbkQuelle As Workbook, wbkZiel As Workbook
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim rngCopy As Range, iZeile As Long, iSpalte As Long
Set wbkQuelle = ThisWorkbook
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = "alleangebote.xlsm" Then
Set wbkZiel = wbkZiel
Exit For
End If
Next
If wbkZiel Is Nothing Then
Set wbkZiel = Workbooks.Open("AlleAngebote.xlsm")
End If
Gruß Werner
Anzeige
AW: Mappe öffnet nach Prüfung nicht
10.11.2021 15:06:23
Eisi
Hallo Werner,
danke für die Hilfe, leider tut sich hier gar nichts?
VG Eisi :-)
AW: Mappe öffnet nach Prüfung nicht
10.11.2021 15:15:37
Werner
Hallo,
und damit soll ich jetzt was anfangen?
Ist die Datei offen oder geschlossen?
Geh den Code mal im Einzelschritt durch, dann siehst du doch wo er was macht (oder nicht macht).
Lass mal laufen bei bereits geöffneter Zielmappe:

Dim wbkQuelle As Workbook, wbkZiel As Workbook
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim rngCopy As Range, iZeile As Long, iSpalte As Long
Set wbkQuelle = ThisWorkbook
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = "alleangebote.xlsm" Then
Set wbkZiel = wbkZiel
Exit For
End If
Next
If wbkZiel Is Nothing Then
Set wbkZiel = Workbooks.Open("AlleAngebote.xlsm")
End If
msgbox wbkZiel.name
Gruß Werner
Anzeige
AW: Mappe öffnet nach Prüfung nicht
10.11.2021 15:25:46
Eisi
Hier kommt der Laufzeitfehler: 1004
Wir konnten AlleAngebote.xlsm nicht finden. .......
Hier ist der Auslöser>>
Set wbkZiel = Workbooks.Open("AlleAngebote.xlsm")
AW: Mappe öffnet nach Prüfung nicht
10.11.2021 15:32:11
Werner
Hallo,
und wo ist der Pfad zu deiner Datei? Excel kann nicht hellsehen.

Set wbkZiel = Workbooks.Open("C:\Test\AlleAngebote.xlsm")
Gruß Werner
AW: Mappe öffnet nach Prüfung nicht
10.11.2021 15:37:54
Eisi
Aha, macht Sinn :-)
Wie lautet denn bitte die Angabe für den aktuellen Ordner?
Ich weiß nämlich nicht, in welchen Ordner der User die Mappen später bei sich abspeichert.
Wäre super, die Lösung.
Danke :-)
Anzeige
Ich schaffe es einfach nicht__ Mappe öffnen
11.11.2021 10:56:38
Eisi
Hallo,
jetzt habe ich den Pfad in eine Variable gepackt, aber die Mappe öffnet sich immer noch nicht.
Was fehlt noch?
Danke.
VG Eisi
Dim wbkQuelle As Workbook, wbkZiel As Workbook
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim rngCopy As Range, iZeile As Long, iSpalte As Long
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & "AlleAngebote.xlsm"
Set wbkQuelle = ThisWorkbook
'Prüfen, ob Datei "AlleAngebote.xlsm" geöffnet ist
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = LCase("AlleAngebote.xlsm") Then
Exit For
End If
Next
If wbkZiel Is Nothing Then
Set wbkZiel = Workbooks.Open("strPfad") '("C:\Angebote\AlleAngebote.xlsm")
End If
Anzeige
AW: Ich schaffe es einfach nicht__ Mappe öffnen
11.11.2021 11:11:51
peterk
Hallo
"For Each wbkZiel In Application.Workbooks" : Damit ist wbkZiel IMMER definiert da ja deine Arbeitsmappe immer vorhanden ist!
Damit kommt "If wbkZiel Is Nothing Then" nie zu tragen (im worst case ist wbkZiel deine Arbeitsmappe und somit niemals Nothing)
Daher

'Prüfen, ob Datei "AlleAngebote.xlsm" geöffnet ist
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = LCase("AlleAngebote.xlsm") Then
Exit For
End If
Next
If  LCase(wbkZiel.Name)  LCase("AlleAngebote.xlsm") Then
Set wbkZiel = Workbooks.Open("strPfad") '("C:\Angebote\AlleAngebote.xlsm")
End If
Oder

Dim found as boolean
found = False
'Prüfen, ob Datei "AlleAngebote.xlsm" geöffnet ist
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = LCase("AlleAngebote.xlsm") Then
found = True
Exit For
End If
Next
If  Not found Then
Set wbkZiel = Workbooks.Open("strPfad") '("C:\Angebote\AlleAngebote.xlsm")
End If
Peter
Anzeige
Geht leider nicht?_Mappe öffnen
11.11.2021 11:38:43
Eisi
Hallo Peter,
vielen Dank für Deine Hilfe.
Leider geht es immer noch nicht. Die Mappe öffnet sich einfach nicht.
Woran kann es noch liegen?
Vielen Dank.
VG Eisi :-)
AW: Geht leider nicht?_Mappe öffnen
11.11.2021 11:46:19
peterk
Hallo
Hab ich übersehen
Set wbkZiel = Workbooks.Open(strPfad) statt Set wbkZiel = Workbooks.Open("strPfad") (ohne " )
Peter
Danke :-) AW: Geht leider nicht?_Mappe öffnen
11.11.2021 11:56:41
Eisi
Hallo Peter,
vielen Dank für die Hilfe, aber irgendwie geht es trotzdem nicht.
Da muss in meiner Mappe noch ein anderes Problem stecken, das muss ich später nochmal aufgreifen.
Herzlichen Dank.
GLG Eisi :-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige