Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Fehler 9 bei Workbook.Open

Betrifft: Fehler 9 bei Workbook.Open von: Apfel
Geschrieben am: 16.10.2014 16:55:07

Hallo!
Ich bekomme bei dem Öffnen des Workbooks

Workbooks.Open Filename:=ActiveWorkbook.Path & "\MZ11.xls"
die Fehlermeldung "Fehler 9 - Index außerhalb des gültigen Bereichs". Die zu öffnende Datei ist jedoch vorhanden und auch richtig benannt.

In der zu öffnenden Datei soll etwas eingetragen werden, die mit "UF21" aufgerufenen Userformen sind jedoch in der Ursprungsdatei. Muss ich vor den mit "UF21" aufgerufenen Userformen jedesmal noch die das entsprechende Workbook bennen?
Und vor allem, wie bekomme ich den Fehler weg?

Danke!
Private Sub CommandButton1_Click()

On Error GoTo Fehler
If Dir(ActiveWorkbook.Path & "\MZ11.xls") <> "" Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\MZ11.xls"
    Application.EnableEvents = True
    GoTo umgehung
Else
    MsgBox "Fehler 1: Datei MZ11 wurde nicht gefunden!"
    GoTo umgehung
End If

Fehler:
MsgBox "Fehler 2: Öffnen von MZ11 verursacht Fehler." & vbCrLf & _
"Fehlernummer: " & Err.Number & vbCrLf & "Fehlerbeschreibung: " & Err.Description
umgehung:

'### Letzte benutze Zeile in Spalte 1 finden
Dim letztezeile As Integer
letztezeile = Application.Workbooks("MZ11").Worksheets("MZ1.1").Cells(Rows.Count, 1).End(xlUp). _
Row

'### Startzeit, MSN und Seite einfügen
Workbooks("MZ11").Worksheets("MZ1.1").Cells(letztezeile + 1, 1) = Date
Workbooks("MZ11").Worksheets("MZ1.1").Cells(letztezeile + 1, 2) = UF21.TextBox1.Text

'### Prüfen welche Seite
Dim schale As String
If UF21.OptionButton1 = True Then
    schale = "LH"
ElseIf UF21.OptionButton2 = True Then
    schale = "RH"
End If

Workbooks("MZ11").Worksheets("MZ1.1").Cells(letztezeile + 1, 3) = schale
Workbooks("MZ11").Worksheets("MZ1.1").Cells(letztezeile + 1, 4) = Format(Now, "hh" & ":" & "mm"  _
& ":" & "ss")
UF21.Hide
UF31.Show
Ende:

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
   
End Sub

  

Betrifft: bist du sicher das der fehler dort entsteht? von: Tino
Geschrieben am: 16.10.2014 17:58:00

Hallo,
gehe mal mit der Taste F8 Schritt für Schritt vor.

Gruß Tino


  

Betrifft: AW: Fehler 9 bei Workbook.Open von: Ewald
Geschrieben am: 20.10.2014 00:42:57

Hallo,

teste mal mit "ThisWorkbook.Path"

Gruß Ewald


 

Beiträge aus den Excel-Beispielen zum Thema "Fehler 9 bei Workbook.Open"