Problem mit GetObject
24.11.2008 10:37:57
Christoph
ich möchte folgenden Code nutzen um Daten aus einer anderen Datei zu übertragen.
Wie kann ich mit UserForm_Initialize die datei so zurechtlegen, dass das Change Makro darauf zugreigfen kann?
geschlossen wird die datei dann wieder mit einem klick auf einen Button.
der untere Code bleibt immer mit fehler 424 stehen.
Private Sub UserForm_Initialize()
Dim strDatei As String
Dim meDatei As Workbook
strDatei = "C:\Kundenliste.xls"
Set meDatei = GetObject(strDatei)
End Sub
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
With Application.WorksheetFunction
letzteZeile = meDatei.Sheets("Tabelle1").Cells(65536, 1).End(xlUp).Row
'hier kommt noch was rein
End With
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton1_Click()
meDatei.Close False
End Sub
Danke