Laufzeitfehle 9-Index außerhalb.....
09.02.2005 06:47:54
MIKE
Wenn ich in meinem Tabellenblatt den Schalter betätige wird ein UserForm (Passwortabfrage) geöffnet - nun wenn ich das richtige Passwort eingegeben habe sollte ein anderes File geöffnet werden (was auch funktioniert) und ein bestimmter Zellenwert aus dem ersten Blatt ins zweite Blatt kopiert werden!
Aber ich bekomme in Zeile 5 "Workbooks(""..." immer einen Laufzeitfehler 9!
Hier das Makro:
Private Sub CommandButton1_Click()
If eingegebenesPasswort.Value = "1" Then
Unload Passwortabfrage
Workbooks.Open Filename:="\\Daten\" & Cells(2, 4).Text & ".xls"
Workbooks("" & Cells(2, 4).Text & ".xls").Sheets("Tabelle1").Range ("A1") = Workbooks("Mappe1.xls").Sheets("Tabelle1").Range("D2").Value
Workbooks("" & Cells(2, 4).Text & ".xls").Save
Workbooks("" & Cells(2, 4).Text & ".xls").Close
Else
MsgBox " Falsch"
Unload Passwortabfrage
End If
End Sub
Private Sub CommandButton2_Click()
Unload Passwortabfrage
End Sub
Private Sub UserForm_Initialize()
eingegebenesPasswort.Value = ""
End Sub
Vielen Dank für Eure Hilfe
MfG
MIKE
Anzeige